Posso criar uma macro do Outlook 2010 para fornecer uma caixa pop-up?

Question

Estou tentando configurar uma macro para me fornecer uma caixa pop-up para escolher de qual conta de e-mail eu envio um e-mail. Na verdade, eu encontrei macros aqui que fazem isso, mas depois de várias tentativas durante o tempo de trabalho tudo o que eu recebo é um botão na minha barra de ferramentas que não faz nada!

Alguém poderia me dar uma descrição detalhada sobre o que fazer?

Aqui está a macro que eu tentei -

Sub SendfromLE()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem

For Each oAccount In Application.Session.Accounts
   If oAccount = "LeadEmployerRecruitment" Then
      Set oMail = Application.CreateItem(olMailItem)
      oMail.SendUsingAccount = oAccount
      oMail.Display
   End If
Next
End Sub

Não tenho certeza se nomeei a conta corretamente? Precisa ser o endereço de e-mail completo ou apenas o nome?

    

Answer 1

Tente isso

For Each oAccount In Application.Session.Accounts

Debug.Print oAccount
If oAccount = "Whatever you see in the immediate pane" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next