¿Cómo crear una lista desplegable para asuntos en Outlook?
Es posible que tengas diferentes asuntos de correo electrónico predefinidos que necesiten ser distribuidos a diferentes destinatarios en Outlook. Sería muy eficiente tener una lista desplegable en la línea de asunto para seleccionar un asunto sin tener que escribirlo manualmente al redactar un correo electrónico. Al igual que se muestra en el gif a continuación. Este tutorial proporciona tres códigos VBA para ayudarte a crear una lista desplegable con diferentes asuntos predefinidos. Al redactar un correo electrónico, puedes seleccionar cualquier asunto que necesites desde la lista desplegable para completar automáticamente la línea de asunto. Por favor, sigue la guía paso a paso para lograrlo.
Crear una lista desplegable para asuntos en Outlook con código VBA
En realidad, Outlook no permite agregar una lista desplegable en la línea de asunto. Aquí necesitas crear un formulario de usuario y combinarlo con códigos VBA para completarlo.
1. Abre tu Outlook, presiona las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
2. En la ventana "Microsoft Visual Basic para Aplicaciones", haz clic en "Insertar" > "UserForm".
3. Luego, el "UserForm1" se insertará bajo "Project1" en el panel izquierdo del editor de "Visual Basic". Necesitarás agregar un cuadro combinado y un botón de comando a este formulario de usuario arrastrando respectivamente el "ComboBox" y el "CommandButton" desde la "Caja de herramientas" al "UserForm1".
4. Haz clic derecho en el botón de comando y selecciona "Propiedades" en el menú contextual.
5. En el panel "Propiedades – CommandButton1", cambia el campo "Caption" a "OK". Esta acción cambiará el texto mostrado en el botón de comando.
6. Haz doble clic en el área en blanco del UserForm para abrir la correspondiente ventana "UserForm (Código)", luego reemplaza el código existente con el siguiente código VBA.
Código VBA 1: UserForm con una lista desplegable que incluye varios asuntos de correo electrónico predefinidos
Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
With ComboBox1
.AddItem "Subject 1"
.AddItem "Subject 2"
.AddItem "Subject 3"
.AddItem "Subject 4"
.AddItem "Subject 5"
.AddItem "No change"
End With
End Sub
Private Sub CommandButton1_Click()
GCbbIndex = ComboBox1.ListIndex
GSelSubject = ComboBox1.Value
Unload Me
End Sub
Nota: En el código, los "Asunto 1, 2, 3, 4" y "5" son los asuntos de correo electrónico predefinidos que deseas usar en tus correos. “Sin cambios” significa no cambiar nada del asunto de correo electrónico existente. Puedes cambiar los asuntos de correo electrónico predefinidos en el código VBA según tus necesidades.
7. Haz doble clic en "Project1" > "Objetos de Microsoft Outlook" > "ThisOutlookSession". Luego copia el siguiente código VBA en la ventana "ThisOutlookSession (Código)".
Código VBA 2 utilizado en la ventana ThisOutlookSession
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub
8. Continúa haciendo clic en "Insertar" > "Módulo" en el editor de "Visual Basic". Luego copia y pega el siguiente código VBA en la ventana "Módulo (Código)".
Código VBA 3 utilizado en la ventana Módulo
Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
Dim xItem As MailItem
Dim xMail As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set xMail = GInlineMail
Debug.Print "Explorer"
Case "Inspector"
Set xMail = Application.ActiveInspector.CurrentItem
Debug.Print "Inspector"
End Select
UserForm1.Show
If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
xMail.Subject = GSelSubject
End If
End Sub
9. Guarda los códigos y presiona las teclas "Alt" + "Q" para cerrar la ventana "Editor de Visual Basic" y regresar a la aplicación de Outlook.
10. Haz clic en el botón "Nuevo Email" bajo la pestaña "Inicio" para crear un correo electrónico.
11. En la ventana del nuevo mensaje, haz clic en "Personalizar barra de herramientas de acceso rápido" > "Más comandos".
12. En el cuadro de diálogo "Opciones de Outlook", necesitas configurar lo siguiente.
13. Luego podrás ver que un botón 
ha sido añadido a la cinta de la ventana del mensaje.
14. Ahora necesitas reiniciar tu Outlook.
15. Al redactar un mensaje de correo electrónico, si necesitas insertar un asunto predefinido, solo necesitas hacer clic en el botón recién añadido en la cinta para mostrar el formulario de usuario, seleccionar un asunto de la lista desplegable y luego hacer clic en el botón "Aceptar" para completar la línea de asunto.
Notas:
Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS
Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
Esta función admite:
- Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
- Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
- Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
- Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
- Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.
Esta función admite:
- Respuestas inteligentes de correo electrónico
- Contenido optimizado
- Borradores basados en palabras clave
- Extensión inteligente de contenido
- Resumen de correos electrónicos
- Traducción multilingüe
¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
