¿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
- Automatiza el envío de correos electrónicos con Auto CC / BCC, Reenvío automático por reglas; enviar Respuesta automática (Fuera de la oficina) sin necesidad de un servidor Exchange...
- Recibe recordatorios como Advertencia de BCC al responder a todos mientras estás en la lista CCO, y Recordar si faltan archivos adjuntos para apegos olvidados...
- Mejore la eficiencia del correo electrónico con Responder (todos) con archivos adjuntos, Agregar automáticamente saludo o fecha y hora a la firma o al asunto, Responder varios correos electrónicos...
- Optimice el envío de correos electrónicos con Recuperar correos electrónicos, Herramientas de adjunto (Comprimir todo, Guardar todo automáticamente...), Eliminar duplicadosy Informe rápido...
Enví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 profesionales: Guardar 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.