Ir para conteúdo
Fórum Script Brasil
  • 0

Macro VBA Outlook


Humig

Pergunta

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 ?)

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...