Este fórum está sendo desativado

[barroso]

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:

Código: Selecionar todos

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

Tentei fazer o seguinte e nao funcionou:

Código: Selecionar todos

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

Se eu tiro a condição If e mantenho o .Importance = 2, todos os e-mails sao enviados com alta importancia.

Alguém poderia me ajudar com isso por favor?

Obrigado.