¿Cómo responder automáticamente a los mensajes recibidos cuando estás ocupado en Outlook?
A veces, deseas responder automáticamente a los mensajes recibidos en Outlook mientras estás ocupado durante un período. Sin embargo, no hay una función integrada que pueda manejar esta tarea, pero aquí tengo un código VBA para solucionarlo.
Respuesta automática cuando estás ocupado con un código VBA
Respuesta automática cuando estás ocupado con un código VBA
Aquí hay un código VBA, que responderá automáticamente mientras haya algunas citas en tu calendario de Outlook; si no hay nada en el calendario, deja de responder automáticamente.
1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz doble clic en ThisOutlookSession en el panel Project1, copia y pega el siguiente código en el script.
VBA: Respuesta automática mientras estás ocupado en el calendario
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub3. Guarda este código y reinicia Outlook. A partir de ahora, si los correos electrónicos se reciben en el rango de tiempo de tus citas, se enviará una respuesta automática.
Notas:
(1) En el código, puedes cambiar el cuerpo de la respuesta según sea necesario en este script "Lo siento, no puedo responderte en este momento. Te responderé más tarde." & _
(2) Esta macro VBA puede responder automáticamente a los correos electrónicos recibidos en la Bandeja de entrada del archivo de datos predeterminado.
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!
