Macro VBA Outlook

[Humig]

Saudações a todos,

Sou principiante em VBA e preciso programar um macro para "montar" um email com destinatario , assunto, etc., abrir este email e aguardar o usuario editar algo se necessario e clicar o botão enviar. Tbém preciso saber se o usuario realmente enviou o email.

Para isso fiz o codigo abaixo, o problema é que se uso o metodo DISPLAY(.T.), a propriedade SENT aparentemente não é atualizada !

Sub toutlook()

Dim oout As Application

Dim omsg As MailItem

Set oout = CreateObject("Outlook.Application")

Set omsg = oout.CreateItem(olMailItem)

omsg.To = "hucf@ig.com.br"

omsg.Subject = "Teste Objeto Outlook no Macro Excel"

omsg.Display (True)

'omsg.Send

If omsg.Sent Then

MsgBox (" Enviado ")

Else

MsgBox (" não Enviado ")

End If

Set oout = Nothing

Set omsg = Nothing

End Sub

Agradeço qualquer ajuda,

HU

(Tentei inserir CODEBOX , mas da erro 404 ?)

[benzadeus]

Tente:

On Error Resume Next
        If omsg.Sent Then
            MsgBox "O email foi enviado!"
        Else
            MsgBox "O email não foi enviado!"
        End If
        On Error GoTo 0

Explicação: tentar acessar omsg.Sent retorna um erro quando o e-mail foi enviado, por isso a necessidade de usar On Error Resume Next. No entanto, se a caixa do Display for cancelada, omsg.Sent retorna Falso.