Como enviar sempre um novo e-mail a partir de uma conta específica no Outlook?

Suponha que tenha configurado várias contas de e-mail no Outlook. Ao enviar uma mensagem, a conta que aparece no campo “De” depende da conta em que está atualmente. Independentemente da conta ativa, pretende sempre enviar um Novo Email a partir de uma conta de e-mail específica. O tutorial seguinte pode ajudá-lo — o método nele descrito é eficaz para esse fim.

Enviar sempre uma Novo Email de uma conta específica com código VBA

---

Enviar sempre uma Novo Email de uma conta específica com código VBA

Este código VBA permite-lhe enviar facilmente um novo e-mail a partir de uma conta específica no Outlook. Siga os passos indicados a seguir.

1. Prima «Alt» + "F11" para abrir a caixa de diálogo do Microsoft Visual Basic for Applications.

2. Expanda "Project1" > «Microsoft Outlook Objects» clicando duas vezes em cada um. Em seguida, clique duas vezes em «ThisOutlookSession» para abrir a caixa de diálogo «VbaProject.OTM».

3. Copie e cole o seguinte código VBA na caixa de diálogo.

VBA: enviar sempre um novo e-mail a partir de uma conta específica.

Public Sub NewBySpecAccount()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account name" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next
End Sub

4. Agora, substitua «Your Nome de Usuário» pela conta de e-mail a partir da qual pretende enviar sempre Novo Email.

5. Em seguida, prima a tecla "F5" no seu teclado para executar o código VBA.

6. Após executar o código VBA, abrir-se-á uma nova janela «Mensagem». Redija o seu e-mail e clique no botão «Enviar» para o enviar.

Nota: Este código VBA foi testado com sucesso no Outlook 2007, 2010 e 2013, mas não deve ser executado no Exchange 2007 nem no Exchange 2010.