¿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

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar tus correos electrónicos sin esfuerzo: responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

• ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
• 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
• 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete