Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

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 Urgente: Kutools para Outlook lança versão gratuita!

Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para lidar com emails facilmente, 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 vários 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 divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...

👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir 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...

Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Desbloqueie instantaneamente o Kutools para Outlook com um clique. Não perca tempo, baixe agora e aumente sua eficiência!

kutools for outlook features1 kutools for outlook features2