Outlook-da bir e-poçtu tez bir zamanda görüş dəvətinə çevirməyin 2 asan yolu

Outlook e-poçtunu görüş dəvətnaməsinə çevirmək istəyirsinizsə, bu yazıya müraciət edə bilərsiniz. Burada sizinlə 2 sürətli yanaşmanı paylaşacağıq.

Planlaşdırılacaq görüş haqqında çoxlu məlumatı özündə əks etdirən e-məktub aldıqda, bu e-poçtdan tez bir zamanda görüş yaratmaq istəyə bilərsiniz. Bu vəziyyətdə, ehtiyaclarınıza uyğun olaraq aşağıdakı 2 üsuldan birini istifadə edə bilərsiniz.

Metod 1: Orijinal e-poçt əlavələri olmadan çevirin

1. Başlamaq üçün istədiyiniz e-poçtu seçin.
2. Sonra, "Ev" sekmesinde "Cavab vermək" qrupunda "Görüş" düyməsini basın.
3. Aşağıdakı şəkildə göstərildiyi kimi dərhal bir görüş dəvəti görünəcək.

Qeydlər:

• Bu yolla, əgər orijinal e-poçtda əlavələr varsa, qoşmalar görüşə kopyalanmayacaq.
• Və gördüyünüz kimi, yığıncaqda orijinal e-poçt başlığı var, məsələn, orijinal göndərən və ya alıcılar və s.

Orijinal e-poçt qoşmalarının görüşə kopyalanmasını və orijinal e-poçt başlığının xaric edilməsini istəyirsinizsə, Metod 2-dən istifadə edə bilərsiniz.

Metod 2: Orijinal e-poçt əlavələri ilə çevirin

1. Başlamaq üçün Outlook VBA redaktorunu işə salmaq üçün "Alt + F11" düymələrini basın.
2. Sonra, aşağıdakı kodu layihəyə və ya modula köçürün.

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. Bundan sonra redaktordan çıxın və bu makronu Tez Giriş Alətlər Panelinə (QAT) əlavə edin.
4. Nəhayət, e-poçtu seçin və ya açın və QAT-da makro düyməsini basın.
5. Aşağıdakı ekran görüntüsündə göstərildiyi kimi dərhal görüş dəvəti görünəcək. Orijinal e-poçt əlavələri daxil edilmişdir və bədəndə orijinal e-poçt başlığı yoxdur.

Outlook problemlərini həll edin

Outlook tam funksiyalı e-poçt klienti olsa da, hələ də həssas olduğu ölümcül bir qüsurdan xilas ola bilmir. Başqa sözlə, asanlıqla pozula bilər. Bu, həm də Outlook məlumatlarınızın həmişə təhlükə altında olduğunu göstərir. Bu vəziyyətdə ən vacib və vacib addım Outlook üçün müntəzəm olaraq məlumatların ehtiyat nüsxələrini çıxarmaqdır. Bundan əlavə, güclü bir proqram əldə etmək ağıllıdır. Outlook düzəlişi kimi alət DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql korrupsiyası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com