Como escolher uma conta específica para enviar e-mails no Outlook?
No Outlook, não existe uma função incorporada que lhe permita enviar sempre um novo e-mail através de uma conta específica — terá de alterar manualmente a conta «De» na janela de composição antes do envio. Contudo, o código VBA pode ajudá-lo a resolver este problema.
Escolha uma conta específica para enviar Novo Email com código VBA
Responder sempre aos e-mails com a conta de e-mail predefinida com Kutools para Outlook
Escolha uma conta específica para enviar Novo Email com código VBA
O código VBA abaixo permite-lhe enviar sempre um novo e-mail a partir de uma conta específica no Outlook. Siga os passos indicados.
1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela aberta, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela do Módulo.
Código VBA: Enviar sempre e-mail com uma conta de e-mail específica no Outlook
Public Sub NewBySpecAccount()
'Updated by ExtendOffice 20181130
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account address" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub Nota: No código, substitua o endereço «Seu endereço de conta» pelo endereço de e-mail real que utilizará para enviar mensagens.
3. Prima as teclas Alt+Q para fechar a janela do Microsoft Visual Basic for Applications.
4. Clique no botão Personalizar Barra de Acesso Rápido do Outlook e selecione Mais Comandos no menu pendente. Consulte a captura de ecrã:

5. Na janela Opções do Outlook, terá de:
5,1) Selecione Macrosna Escolher comandos deLista suspensa;
5,2) Selecione o nome do VBA Project1.NewBySpeAccountna caixa de comandos;
5,3) Clique no botão Adicionar e, em seguida, no botão OK. Consulte a captura de ecrã:

6. Agora, o botão do VBA foi adicionado à Barra de Acesso Rápido.

A partir de agora, independentemente da conta em que se encontre, ao clicar no botão VBA na Barra de Acesso Rápido, será aberta uma janela de Novo Email com a conta de e-mail específica já definida no campo «De».
Responder sempre aos e-mails com a conta de e-mail predefinida com Kutools para Outlook
Se pretender responder sempre aos e-mails com a conta de e-mail predefinida no Outlook, experimente a funcionalidade Usar conta padrão para responder a emails do Kutools para Outlook.
1. Clique em Kutools > Opções. Consulte a captura de ecrã:

2. Na janela Opções, marque a caixa Usar conta padrão para responder a emails no separador Responder e clique em OK para concluir a configuração.

A partir de agora, todas as respostas a e-mails serão enviadas pela conta predefinida que indicou no Outlook.
Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!


🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint