Saltar al contenido

Colocar importancia alta a correo mediante vba

publicado

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

Featured Replies

publicado

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

publicado
  • Autor

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!

publicado
  • Autor

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]

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.