Bir Outlook E-postasını Word Belgesine Dönüştürmenin 2 Etkili Yöntemi

Bir Outlook e-postasını kaydetmek veya bir kelime belgesine dönüştürmek istiyorsanız, bu makalede açıklanan 2 yöntemi kullanabilirsiniz.

Outlook, bir Outlook e-postasını kelime belgesi olarak kaydetmek veya dönüştürmek için herhangi bir yerel özellik sunmaz. Bu nedenle, bunu başarmak istiyorsanız, ekstra çaba sarf etmeniz gerekir. Burada size 2 hızlı yöntem öğreteceğiz. Biri “Kaydet” özelliğini akıllıca kullanmaktır. Diğeri, Outlook VBA'yı nazikçe kullanmaktır. Bunları ayrıntılı olarak öğrenmek için lütfen okumaya devam edin.

Yöntem 1: "Kaydet" Özelliğini Kullanın

1. Öncelikle Outlook programınızı başlatın.
2. Ardından bir e-posta ile satış konuşması yapın.
3. Ardından “Dosya” menüsüne dönün ve “Farklı Kaydet” seçeneğini seçin.
4. Ardından, açılan iletişim kutusunda bir hedef klasör seçin ve "Kaydetme türü" alanında "Yalnızca Metin"i seçin.
5. “Kaydet” butonuna tıkladıktan sonra Microsoft Word uygulamanızı açabilirsiniz.
6. MS Word'de “Dosya” menüsüne dönün ve “Aç” ı seçin.
7. Açılır "Aç" iletişim kutusunda, "Dosya adı" satırında "Tüm Dosyalar"ı seçin ve önceden kaydedilmiş metin dosyasına girin.
8. “Aç”a tıkladıktan sonra metin fil tipindeki e-posta word olarak açılacaktır.
9. Daha sonra “Dosya” > “Farklı Kaydet”i seçebilirsiniz.
10. Son olarak "Farklı kaydet" iletişim kutusunda, "Kayıt türü"nde "Word Belgesi"ni seçin ve "Kaydet"e basın.

Yöntem 2: Outlook VBA'yı kullanın

1. İlk olarak, Outlook'ta "Alt + F11" kısayol tuşlarına basın.
2. Ardından, açılan Outlook VBA düzenleyici penceresinde yeni bir modül açın.
3. Sonra aşağıdaki VBA kodlarını kopyalayıp yapıştırın.

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. Ardından, yeni VBA projesini Hızlı Erişim Araç Çubuğuna ekleyin.
5. Bundan sonra, bir e-posta seçin ve Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
6. Hemen, içinde e-posta içeriği bulunan bir Word belgesi görüntülenecektir.
7. Son olarak, yeni açılan Word belgesini her zamanki gibi kaydedebilirsiniz.

Can Sıkıcı Outlook Sorunlarından Etkili Bir Şekilde Kurtulun

Outlook hatalara ve bozulmaya eğilimli olduğundan, Outlook verilerinizi korumak için daha fazla çaba harcamanız gerekir. Örneğin, Outlook verileriniz için düzenli yedeklemeler yapmanız gerekir. Ayrıca, önde gelen birini tutmak ihtiyatlı Outlook kurtarma araç, gibi DataNumen Outlook Repair, ki bu kesinlikle bir gün işe yarayacak.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server onarım ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com