Saltar al contenido principal

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

Supongamos que ha creado varias cuentas de correo electrónico en su Outlook, al enviar un correo electrónico en Outlook, la cuenta de correo electrónico que se muestra en el campo De depende de la cuenta en la que se encuentre actualmente. No importa en qué cuenta se encuentre actualmente, siempre desea enviar nuevos correos electrónicos de una cuenta de correo electrónico específica, el siguiente tutorial puede ayudarlo, el método en este tutorial puede ayudarlo.

Envíe siempre un nuevo correo electrónico desde una cuenta específica con código VBA

Pestaña Office: habilite la edición y navegación con pestañas en Microsoft Office, haciendo que el trabajo sea muy sencillo
Kutools para Outlook: mejore Outlook con más de 100 funciones avanzadas para una eficiencia superior
Mejore su Outlook 2021 - 2010 o Outlook 365 con estas funciones avanzadas. ¡Disfruta de una prueba completa gratuita de 60 días y mejora tu experiencia de correo electrónico!

flecha azul burbuja derechaEnvíe siempre un nuevo correo electrónico desde una cuenta específica con código VBA

Este código VBA puede ayudarlo a enviar fácilmente nuevos correos electrónicos desde una cuenta específica en Outlook. Haz lo siguiente.

1. Por favor presione otro + F11 para abrir el Microsoft Visual Basic para aplicaciones caja de diálogo.

2. Ampliar la Proyecto1 > Objetos de Microsoft Outlook haciendo doble clic en ellos. Y luego haga doble clic en el Esta sesión de Outlook para abrir el Proyecto Vba.OTM caja de diálogo.

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

VBA: envíe 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 cambiar el "Su nombre de cuenta”A la cuenta de correo electrónico a la que desea enviar siempre nuevos correos electrónicos. Ver captura de pantalla:

5. Luego presione F5 Tecla en el teclado para ejecutar el código VBA.

6. Después de ejecutar el código VBA, un nuevo Mensaje Aparecerá una ventana emergente, redacte su correo electrónico y haga clic en Enviar botón para enviarlo.

Note: Este código VBA se probó con éxito en Outlook 2007, 2010 y 2013, pero no se ejecuta en Exchange 2007 y 2010.

 


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code does not work if you have multiple Exchange accounts defined in your profile - pointing to different exchange servers.

In that case you need a variation on this code from Microsoft.

https://learn.microsoft.com/en-us/office/vba/outlook/concepts/accounts/create-a-sendable-item-for-a-specific-account-based-on-the-current-folder-outloo
This comment was minimized by the moderator on the site
Hi, the "VBA: always send a new email from specific account." does not work. If you want to send email from Excel, you have to change Outlook settings. Outlook - File - Account settings. Here you have to prioritise different email and different datafiles you have access to besides your usual account (email). This will work even if Outlook is closed then. (W10, O365)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations