2 formas sencillas de convertir rápidamente un correo electrónico en una invitación a una reunión en Outlook

Si deseas convertir un correo electrónico de Outlook en una invitación a una reunión, puedes consultar esta publicación. Aquí te mostraremos dos maneras rápidas de hacerlo.

Cuando recibe un correo electrónico que contiene mucha información sobre una reunión que se va a programar, es posible que desee crear rápidamente una reunión directamente desde este correo electrónico. En esta situación, puede utilizar cualquiera de los 2 métodos siguientes según sus necesidades.

Método 1: convertir sin archivos adjuntos de correo electrónico originales

1. Para empezar, seleccione el correo electrónico que desee.
2. Luego, haga clic en el botón "Reunión" en el grupo "Responder" en la pestaña "Inicio".
3. A la vez, se mostrará una invitación a la reunión, como se muestra en la siguiente figura.

Notas:

• De esta manera, si el correo electrónico original tiene archivos adjuntos, los archivos adjuntos no se copiarán en la reunión.
• Y, como puede ver, el cuerpo de la reunión contiene el encabezado del correo electrónico original, como el remitente o los destinatarios originales, etc.

Si desea que los archivos adjuntos originales del correo electrónico se puedan copiar a la reunión y se pueda excluir el encabezado del correo electrónico original, puede utilizar el Método 2.

Método 2: convertir con archivos adjuntos originales de correo electrónico

1. Para empezar, pulse “Alt + F11” para abrir el editor de VBA de Outlook.
2. Luego, copie el siguiente código en un proyecto o módulo.

Sub ConvertEmailtoMeeting()
    Dim objMail As Outlook.MailItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttachment As Outlook.Attachment
    Dim strFilePath As String
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.currentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objMeeting = Outlook.Application.CreateItem(olAppointmentItem)
 
    'Copy Attachments
    If objMail.Attachments.Count > 0 Then
       For Each objAttachment In objMail.Attachments
           strFilePath = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
 
           objMeeting.Attachments.Add strFilePath
 
           Kill strFilePath
       Next
    End If
 
    With objMeeting
        .Subject = objMail.Subject
        'Exclude Original Email Header
        .Body = objMail.Body
        .MeetingStatus = olMeeting
        .Display
    End With
End Sub

3. Después de eso, salga del editor y agregue esta macro a la barra de herramientas de acceso rápido (QAT).
4. Finalmente, seleccione o abra un correo electrónico y haga clic en el botón de macro en QAT.
5. Inmediatamente, aparecerá una invitación a la reunión, como se muestra en la captura de pantalla a continuación. Los archivos adjuntos de correo electrónico originales están incluidos y no hay un encabezado de correo electrónico original en el cuerpo.

Resolver problemas de Outlook

Aunque Outlook es un cliente de correo electrónico completo, aún presenta una grave vulnerabilidad. En otras palabras, puede corromperse fácilmente. Esto significa que sus datos de Outlook están siempre en peligro. En estas circunstancias, la acción más crucial e imperativa es realizar copias de seguridad periódicas de los datos de Outlook. Además, es recomendable contar con un sistema de seguridad potente. Corrección de Outlook herramienta, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupción sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com