2 moduri ușoare de a converti rapid un e-mail într-o invitație la întâlnire în Outlook

Dacă doriți să convertiți un e-mail Outlook într-o invitație la o întâlnire, puteți consulta această postare. Aici vom împărtăși cu dvs. două abordări rapide.

Când primiți un e-mail care conține multe informații despre o întâlnire care urmează să fie programată, este posibil să doriți să creați rapid o întâlnire direct din acest e-mail. În această situație, puteți utiliza oricare dintre următoarele 2 metode în funcție de nevoile dvs.

Metoda 1: convertiți fără atașamentele originale de e-mail

1. Pentru început, selectați e-mailul dorit.
2. Apoi, faceți clic pe butonul „Întâlnire” din grupul „Răspuns” din fila „Acasă”.
3. Imediat, se va afișa o invitație la întâlnire, așa cum se arată în figura următoare.

note:

• Prin aceasta, dacă e-mailul original are atașamente, acestea nu vor fi copiate în întâlnire.
• Și, după cum puteți vedea, corpul întâlnirii conține antetul original de e-mail, cum ar fi expeditorul sau destinatarii originali și așa mai departe.

Dacă doriți ca atașamentele originale de e-mail să poată fi copiate în întâlnire și antetul original de e-mail să fie exclus, puteți utiliza Metoda 2.

Metoda 2: Convertiți cu atașamentele originale de e-mail

1. Pentru început, apăsați „Alt + F11” pentru a declanșa editorul VBA din Outlook.
2. Apoi, copiați următorul cod într-un proiect sau modul.

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. După aceea, ieșiți din editor și adăugați această macrocomandă în Bara de instrumente Acces rapid (QAT).
4. În cele din urmă, selectați sau deschideți un e-mail și faceți clic pe butonul macro din QAT.
5. Imediat, va apărea o invitație la întâlnire, așa cum se arată în captura de ecran de mai jos. Atașamentele originale de e-mail sunt incluse și nu există antet original de e-mail în corp.

Rezolvați problemele Outlook

Deși Outlook este un client de e-mail complet funcțional, tot nu poate scăpa de un defect mortal, și anume vulnerabilitatea sa. Cu alte cuvinte, poate fi corupt cu ușurință. De asemenea, aceasta înseamnă că datele dvs. Outlook sunt mereu în pericol. În aceste circumstanțe, cea mai importantă și imperativă acțiune este să faceți copii de rezervă regulate ale datelor pentru Outlook. În plus, este înțelept să obțineți un program puternic... Remediere Outlook instrument, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupție sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com