Outlook E-poçtunu Word Sənədinə çevirməyin 2 Effektiv Metodları

Outlook e-poçtunu saxlamaq və ya Word sənədinə çevirmək istəyirsinizsə, bu məqalədə təqdim olunan 2 üsuldan istifadə edə bilərsiniz.

Outlook, Outlook e-poçtunu söz sənədi kimi saxlamaq və ya çevirmək üçün heç bir yerli funksiya təklif etmir. Buna görə də, buna nail olmaq istəyirsinizsə, əlavə səy göstərməlisiniz. Burada sizə 2 sürətli üsul öyrədəcəyik. Bunlardan biri “Saxla” funksiyasından ağıllı şəkildə istifadə etməkdir. Digəri, Outlook VBA-dan nəzakətlə istifadə etməkdir. Onları ətraflı öyrənmək üçün oxuyun.

Metod 1: "Saxla" funksiyasından istifadə edin

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Sonra e-poçt ünvanına müraciət edin.
3. Sonra "Fayl" menyusuna keçin və "Fərqli Saxla" seçimini seçin.
4. Sonra, açılan informasiya qutusunda təyinat qovluğunu seçin və "Növ kimi saxla" sahəsində "Yalnız mətn" seçin.
5. “Saxla” düyməsini sıxdıqdan sonra Microsoft Word proqramınızı aça bilərsiniz.
6. MS Word-də "Fayl" menyusuna keçin və "Açıq" seçin.
7. Açılan "Açıq" informasiya qutusunda, "Fayl adı" sətrində "Bütün fayllar" seçin və əvvəllər saxlanmış mətn faylını seçin.
8. “Açıq” düyməsini kliklədikdən sonra mətn faylı tipli e-poçt worddə açılacaq.
9. Daha sonra “Fayl” > “Fərqli Saxla” seçə bilərsiniz.
10. Nəhayət, "Fərqli saxla" informasiya qutusunda, "Kimli saxla" bölməsində "Word Document" seçin və "Saxla" düyməsini basın.

Metod 2: Outlook VBA-dan istifadə edin

1. İlk növbədə, Outlook-da "Alt + F11" düymələri qısa yollarını basın.
2. Sonra açılan Outlook VBA redaktoru pəncərəsində yeni modul açın.
3. Sonra aşağıdakı VBA kodlarını kopyalayın və daxil edin.

Sub ConvertEmailtoWordDocument()
    Dim objMail As Outlook.MailItem
    Dim strMessage As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strFilePath, strFileName As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    strMessage = "From: " & objMail.SenderName & vbCrLf & "Sent: " & objMail.SentOn & vbCrLf & "Subject: " & objMail.Subject & vbCrLf & vbCrLf & objMail.Body
 
    'create a word document
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Add
    objWordDocument.Activate
    Set objWordRange = objWordDocument.Range(0, 0)
    'insert the email information to the document
    objWordRange.Text = strMessage
 
    'change the email contents' format
    With objWordRange.Font
         .Name = "Cambria"
         .Color = wdColorBlack
         .Size = 12
    End With
 
    'show the word document
    objWordApp.Visible = True
    objWordDocument.ActiveWindow.Visible = True
End Sub

4. Sonradan, yeni VBA layihəsini Tez Giriş Alətlər Panelinə əlavə edin.
5. Bundan sonra, bir e-poçt seçin və Tez Giriş Alətlər Panelində makro düyməsini basın.
6. Bir anda, içərisində e-poçt məzmunu olan bir Word sənədi görünəcək.
7. Nəhayət, yeni açılan Word sənədini həmişəki kimi saxlaya bilərsiniz.

Zəhlətökən Outlook məsələlərini effektiv şəkildə aradan qaldırın

Outlook səhvlərə və korrupsiyaya meylli olduğundan, Outlook məlumatlarınızı qorumaq üçün daha çox səy göstərməlisiniz. Məsələn, Outlook məlumatlarınız üçün müntəzəm ehtiyat nüsxələrini çıxarmalısınız. Üstəlik, üstünlüyü əldə etmək ehtiyatlıdır Outlook bərpası alət kimi DataNumen Outlook Repair, bu mütləq bir gün lazımlı olacaq.

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 Server təmir və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com