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!!

hola pauloc1989 es importante que leas las normas del foro ya que para publicar codigo tiene que ir entre <> esto para su mejor comprension segundo con referente a tu pregunta e ntu caso

.Importance = olImportanceHigh[/CODE]

saludos

Probaré y te aviso como me fue, en cuanto a las reglas del foro, me pondré al día con ellas =)

Gracias por tu disposición amigo!

de nada saludos desde México

Amigo, lo probé y me funcionó a medias, ya que me marcaba la opción "Importancia baja", sin embargo fue una excelente referencia para lo que quería. Al final lo arregle asi:

.Importance = 2[/CODE]

que bueno que te sirvio esto depende mucho de la versión de outlook , saludos