Como sempre enviar um novo e-mail de uma conta específica no Outlook?
Supondo que você tenha criado várias contas de e-mail em seu Outlook, ao enviar um e-mail no Outlook, a conta de e-mail exibida no campo De depende de qual conta você está atualmente. emails de uma conta de email específica, o tutorial a seguir pode ajudá-lo, o método neste tutorial pode ajudá-lo.
Sempre envie um novo e-mail de uma conta específica com o código VBA
- Automatize o envio de e-mails com Auto CC / BCC, Avanço automático por regras; enviar Resposta automatica (Fora do escritório) sem a necessidade de um servidor Exchange...
- Receba lembretes como Aviso BCC ao responder a todos enquanto você está na lista BCC, e Lembrar quando houver anexos ausentes para anexos esquecidos...
- Melhore a eficiência do e-mail com Responder (todos) com anexos, Adicionar automaticamente saudação ou data e hora à assinatura ou assunto, Responder vários e-mails...
- Simplifique o envio de e-mails com Recuperar e-mails, Ferramentas de Anexo (Compactar tudo, salvar tudo automaticamente...), Remover Duplicados e Relatório Rápido...
Sempre envie um novo e-mail de uma conta específica com o código VBA
Este código VBA pode ajudá-lo a enviar facilmente novos e-mails de uma conta específica no Outlook. Faça o seguinte.
1. Pressione outro + F11 para abrir o Microsoft Visual Basic para Aplicações caixa de diálogo.
2. Expanda o Project1 > Objetos do Microsoft Outlook clicando duas vezes neles. E então clique duas vezes no Esta sessão do Outlook para abrir o VbaProject.OTM caixa de diálogo.
3. Copie e cole o código VBA abaixo na caixa de diálogo.
VBA: sempre envie um novo e-mail 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 “O nome da sua conta”Para a conta de e-mail para a qual deseja sempre enviar novos e-mails. Veja a imagem:
5. Em seguida, pressione F5 chave no teclado para executar o código VBA.
6. Depois de executar o código VBA, um novo Mensagem janela aparecerá, por favor escreva seu e-mail e clique ENVIAR botão para enviá-lo.
Note: Este código VBA foi testado com êxito no Outlook 2007, 2010 e 2013, mas não é executado no Exchange 2007 e 2010.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.