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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint