¿Cómo enviar siempre un nuevo correo electrónico desde una cuenta específica en Outlook?

Supongamos que ha configurado varias cuentas de correo electrónico en Outlook. Al enviar un mensaje, la cuenta que aparece en el campo «De» depende de la cuenta en la que se encuentre en ese momento. Sin embargo, independientemente de la cuenta activa, siempre desea enviar nuevos correos desde una dirección específica. El siguiente tutorial le ayudará a lograrlo, y el método descrito le resultará muy útil.

Enviar siempre un Nuevo Email desde una cuenta específica con código VBA

---

Enviar siempre un Nuevo Email desde una cuenta específica con código VBA

Este código VBA le permite enviar fácilmente un nuevo correo electrónico desde una cuenta específica en Outlook. Siga estos pasos.

1. Pulse «Alt» + «F11» para abrir el cuadro de diálogo «Microsoft Visual Basic para Aplicaciones».

2. Expanda «Project1» > «Objetos de Microsoft Outlook» haciendo doble clic en ellos y, a continuación, haga doble clic en «ThisOutlookSession» para abrir el cuadro de diálogo «VbaProject.OTM».

3. Copie y pegue el siguiente código VBA en el cuadro de diálogo.

VBA: enviar siempre un nuevo correo electrónico desde una cuenta 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. Ahora debe reemplazar «Your Nombre de usuario» por la dirección de correo electrónico desde la que siempre desea enviar nuevos correos.

5. A continuación, pulse la tecla «F5» del teclado para ejecutar el código VBA.

6. Tras ejecutar el código VBA, se abrirá una nueva ventana de «Mensaje». Redacte su correo electrónico y haga clic en «Enviar» para enviarlo.

Nota: Este código VBA ha sido probado con éxito en Outlook 2007, 2010 y 2013, pero no debe ejecutarse en Exchange 2007 ni en Exchange 2010.