Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón.
Les envío el código con el que estoy trabajando, por si le sirve a alguien:
Sub EnviarEmail()
Dim objOutlook As Object
Dim objItem As Object
Dim objNamespace As Object
Dim ADJUNTO As Variant
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objItem = objOutlook.CreateItem(olMailItem)
objNamespace.Logon "EXCELSPACE", , True, True
ADJUNTO = "Destino.xlsm"
With objItem
.Attachments.Add (ADJUNTO)
.Display
.To = "destinatario"
.CC = ""
.BCC = ""
.Subject = "Prueba" 'Asunto
.Body = " " 'Cuerpo del mensaje
.Send
End With
objNamespace.Logoff
Set objOutlook = Nothing
Set objItem = Nothing
Set objNamespace = Nothing
End Sub
Saludos desde Chile!!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Amigos,
Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón.
Les envío el código con el que estoy trabajando, por si le sirve a alguien:
Sub EnviarEmail()
Dim objOutlook As Object
Dim objItem As Object
Dim objNamespace As Object
Dim ADJUNTO As Variant
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objItem = objOutlook.CreateItem(olMailItem)
objNamespace.Logon "EXCELSPACE", , True, True
ADJUNTO = "Destino.xlsm"
With objItem
.Attachments.Add (ADJUNTO)
.Display
.To = "destinatario"
.CC = ""
.BCC = ""
.Subject = "Prueba" 'Asunto
.Body = " " 'Cuerpo del mensaje
.Send
End With
objNamespace.Logoff
Set objOutlook = Nothing
Set objItem = Nothing
Set objNamespace = Nothing
End Sub
Saludos desde Chile!!