2 vienkārši veidi, kā ātri konvertēt e-pastu uz sapulces ielūgumu programmā Outlook

Ja vēlaties konvertēt Outlook e-pastu uz sapulces ielūgumu, varat iepazīties ar šo ierakstu. Šeit mēs dalīsimies ar jums divās ātrās pieejās.

Kad saņemat e-pasta ziņojumu, kurā ir daudz informācijas par plānoto sapulci, ieteicams ātri izveidot sapulci tieši no šī e-pasta. Šajā situācijā jūs varat izmantot kādu no šīm 2 metodēm atbilstoši savām vajadzībām.

1. metode: konvertēšana bez oriģinālajiem e-pasta pielikumiem

1. Vispirms atlasiet vajadzīgo e-pastu.
2. Pēc tam cilnes “Sākums” grupā “Atbildēt” noklikšķiniet uz pogas “Sapulce”.
3. Uzreiz parādīsies uzaicinājums uz sapulci, kā parādīts nākamajā attēlā.

Piezīmes:

• Tādējādi, ja oriģinālā e-pastā ir pielikumi, pielikumi netiks kopēti sapulcē.
• Un, kā redzat, sapulces pamattekstā ir oriģināla e-pasta galvene, piemēram, sākotnējais sūtītājs vai adresāti utt.

Ja vēlaties, lai oriģinālos e-pasta pielikumus varētu kopēt uz sapulci un sākotnējā e-pasta galvene varētu tikt izslēgta, varat izmantot 2. metodi.

2. metode: konvertēšana ar oriģinālajiem e-pasta pielikumiem

1. Lai sāktu, nospiediet taustiņu kombināciju “Alt + F11”, lai aktivizētu Outlook VBA redaktoru.
2. Pēc tam kopējiet šo kodu projektā vai 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. Pēc tam izejiet no redaktora un pievienojiet šo makro ātrās piekļuves rīkjoslai (QAT).
4. Visbeidzot, atlasiet vai atveriet e-pastu un noklikšķiniet uz makro pogas QAT.
5. Uzreiz parādīsies uzaicinājums uz sapulci, kā parādīts zemāk esošajā ekrānuzņēmumā. Sākotnējie e-pasta pielikumi ir iekļauti, un pamattekstā nav oriģināla e-pasta galvenes.

Atrisiniet Outlook problēmas

Lai gan Outlook ir pilnvērtīgs e-pasta klients, tas joprojām nevar atbrīvoties no nopietna trūkuma – tā ir ievainojama. Citiem vārdiem sakot, to var viegli sabojāt. Tas arī nozīmē, ka jūsu Outlook dati vienmēr ir apdraudēti. Šādā situācijā vissvarīgākā un nepieciešamākā darbība ir regulāras datu dublējumkopijas programmai Outlook. Turklāt ir ieteicams iegūt jaudīgu... Outlook labojums rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar