2 maneiras fáceis de converter rapidamente um e-mail em um convite de reunião no Outlook

Se você deseja converter um e-mail do Outlook em um convite para reunião, pode consultar esta publicação. Nela, compartilharemos duas abordagens rápidas.

Ao receber um e-mail que contém muitas informações sobre uma reunião a ser agendada, você pode criar rapidamente uma reunião diretamente a partir desse e-mail. Nessa situação, você pode usar um dos 2 métodos a seguir conforme suas necessidades.

Método 1: converter sem anexos de e-mail originais

1. Para começar, selecione o e-mail que você deseja.
2. Em seguida, clique no botão “Reunião” no grupo “Responder” na guia “Página inicial”.
3. Imediatamente, um convite para reunião será exibido, conforme mostrado na figura a seguir.

Observações:

• Dessa forma, se o e-mail original tiver anexos, os anexos não serão copiados para a reunião.
• E, como você pode ver, o corpo da reunião contém o cabeçalho do e-mail original, como remetente ou destinatário original e assim por diante.

Se desejar que os anexos de e-mail originais possam ser copiados para a reunião e o cabeçalho do e-mail original possa ser excluído, você pode usar o Método 2.

Método 2: converter com anexos de e-mail originais

1. Para começar, pressione “Alt + F11” para abrir o editor VBA do Outlook.
2. Em seguida, copie o código a seguir em um projeto ou 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. Depois disso, saia do editor e adicione esta macro à Barra de Ferramentas de Acesso Rápido (QAT).
4. Por fim, selecione ou abra um e-mail e clique no botão de macro no QAT.
5. Imediatamente, um convite para reunião aparecerá, conforme mostrado na captura de tela abaixo. Os anexos de e-mail originais estão incluídos e não há cabeçalho de e-mail original no corpo.

Resolver problemas do Outlook

Embora o Outlook seja um cliente de e-mail completo, ele ainda apresenta uma falha grave: sua vulnerabilidade. Em outras palavras, ele pode ser corrompido facilmente. Isso significa que seus dados do Outlook estão sempre em perigo. Nessas circunstâncias, a ação mais crucial e imperativa é fazer backups regulares dos dados do Outlook. Além disso, é aconselhável adquirir um software de segurança robusto. Correção do Outlook ferramenta, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com