Skip to main content

Como sempre enviar um novo email de uma conta específica no Outlook?

Author: Siluvia Last Modified: 2025-06-04

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".

steps of always sending a new email from specific account in outlook

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.

steps of always sending a new email from specific account in outlook

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!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 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...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2