Condicao para .Importance = 2 em envío de e-mail com outlook
Enviado: 11 Nov 2018 às 15:07
Olá pessoal boa tarde, tudo bem? Estou tentando fazer com que alguns dos e-mails enviados desde uma planilha de excel/outlook, que tenham determinada condicao sejam enviados com alta importancia. Esta condição é conter a palavra celular no Suject do e-mail.
Este é o código que uso para o envio de e-mails:
Alguém poderia me ajudar com isso por favor?
Obrigado.
Este é o código que uso para o envio de e-mails:
Código: Selecionar todos
Tentei fazer o seguinte e nao funcionou:
Sub BOTAO_enviar()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
On Error Resume Next
Application.DisplayAlerts = False
With OutMail
.To = "meuemail@meuemail.com"
.Subject = Range("g16")
.HTMLBody = "<b>Resultado 1: </b>" & Range("D3").Value & "<br>" & _
"<b>Resultado 2: </b>" & Range("D4").Value & "<br>" & _
"<b>Telefone: </b>" & Range("g17").Value & "<br>"
.Send
End With
Application.DisplayAlerts = True
End Sub
Código: Selecionar todos
Se eu tiro a condição If e mantenho o .Importance = 2, todos os e-mails sao enviados com alta importancia.Sub BOTAO_enviar()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
On Error Resume Next
Application.DisplayAlerts = False
With OutMail
.To = "meuemail@meuemail.com"
.Subject = Range("g16")
If .Subject = "&CELULAR&" Then
.Importance = 2
End If
.HTMLBody = "<b>Resultado 1: </b>" & Range("D3").Value & "<br>" & _
"<b>Resultado 2: </b>" & Range("D4").Value & "<br>" & _
"<b>Telefone: </b>" & Range("g17").Value & "<br>"
.Send
End With
Application.DisplayAlerts = True
End Sub
Alguém poderia me ajudar com isso por favor?
Obrigado.