¿Cómo convertir varias notas en correos electrónicos separados de una vez en Outlook?
A veces, es posible que desee crear nuevos correos electrónicos separados con el contenido de las notas en Outlook. Normalmente, puede arrastrar todas las notas al icono Correo en el panel de navegación, pero todas las notas se insertarán en un solo correo electrónico. ¿Cómo podría convertir varias notas en correos electrónicos nuevos por separado en Outlook?
Convertir múltiples notas en correos electrónicos separados de una vez con código VBA
Convertir múltiples notas en correos electrónicos separados de una vez con código VBA
Para crear varios correos electrónicos separados basados en el contenido de las notas, por favor aplique el siguiente código VBA:
1. Vaya al panel de Notas y luego seleccione las notas que desea convertir en correos electrónicos.
2. Luego, mantenga presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Y luego, haga clic en Insertar > Módulo, copie y pegue el siguiente código en el módulo en blanco abierto:
Código VBA: Convertir múltiples notas en correos electrónicos separados de una vez:
Sub BatchCreateEmailsFromNotes()
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xItem As Object
Dim xNote As Outlook.NoteItem
Dim xMail As Outlook.MailItem
Dim xYesNo As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
If xYesNo = VbMsgBoxResult.vbCancel Then
Exit Sub
End If
For Each xItem In xSelection
If xItem.Class = olNote Then
Set xNote = xItem
Set xMail = Outlook.Application.CreateItem(OlMailItem)
With xMail
.Subject = "Note: " & Mid(xNote.Body, 1, 10)
.Body = xNote.Body
.Attachments.Add xNote
.Display
End With
End If
Next
End Sub
4. Luego presione la tecla F5 para ejecutar este código, y aparecerá un cuadro de mensaje para recordarle si desea convertir las notas en correos electrónicos, por favor haga clic en Aceptar, vea la captura de pantalla:
5. Y luego, todas las notas seleccionadas se han convertido en correos electrónicos como se muestra en la siguiente captura de pantalla:
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 una versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!
📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...
📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos 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 de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails 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 en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...
Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!
