Como sempre enviar um novo email de uma conta específica no Outlook?
Suponha que você tenha criado várias contas de email no seu Outlook. Ao enviar um email no Outlook, a conta de email exibida no campo De depende de qual conta você está usando no momento. Não importa em qual conta você esteja, se quiser sempre enviar novos emails de uma conta de email específica, o tutorial a seguir pode ajudá-lo. O método deste tutorial pode ser útil.
Sempre envie um novo email de uma conta específica com código VBA
Sempre envie um novo email de uma conta específica com código VBA
Este código VBA pode ajudá-lo a enviar facilmente novos emails de uma conta específica no Outlook. Por favor, siga os passos abaixo.
1. Pressione "Alt" + "F11" para abrir a caixa de diálogo "Microsoft Visual Basic for Applications".
2. Expanda o "Project1" > "Microsoft Outlook Objects" clicando duas vezes neles. Depois, clique duas vezes em "ThisOutlookSession" para abrir a caixa de diálogo "VbaProject.OTM".

3. Copie e cole o código VBA abaixo na caixa de diálogo.
VBA: sempre enviar um novo email 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 você precisa alterar o "Nome da sua conta" para a conta de email da qual deseja sempre enviar novos emails.

5. Em seguida, pressione a tecla "F5" no teclado para executar o código VBA.
6. Após executar o código VBA, uma nova janela "Mensagem" será exibida. Componha seu email e clique no botão "Enviar" para enviá-lo.
Observação: Este código VBA foi testado com sucesso no Outlook 2007, 2010 e 2013, mas não funciona no Exchange 2007 e 2010.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

