Agar Outlook elektron pochta xabarini Word hujjatiga saqlamoqchi bo'lsangiz yoki o'zgartirmoqchi bo'lsangiz, ushbu maqolada keltirilgan 2 usuldan foydalanishingiz mumkin.
Outlook elektron pochta xabarini Word hujjati sifatida saqlash yoki aylantirish uchun hech qanday mahalliy xususiyatlarni taklif qilmaydi. Shuning uchun, agar siz bunga erishmoqchi bo'lsangiz, qo'shimcha harakatlar qilishingiz kerak. Bu erda biz sizga 2 ta tezkor usulni o'rgatamiz. Ulardan biri “Saqlash” funksiyasidan oqilona foydalanish. Ikkinchisi - Outlook VBA-dan xushmuomalalik bilan foydalanish. Iltimos, ularni batafsil ko'rib chiqish uchun o'qing.

1-usul: “Saqlash” funksiyasidan foydalaning
- Boshlash uchun Outlook dasturingizni ishga tushiring.
- Keyin elektron pochtaga murojaat qiling.
- Keyin "Fayl" menyusiga o'ting va "Boshqacha saqlash" opsiyasini tanlang.

- Keyinchalik, ochilgan dialog oynasida maqsad papkani tanlang va "Tiri sifatida saqlash" maydonida "Faqat matn" ni tanlang.
- "Saqlash" tugmasini bosgandan so'ng siz Microsoft Word dasturini ochishingiz mumkin.
- MS Word-da "Fayl" menyusiga o'ting va "Ochish" -ni tanlang.
- Qalqib chiquvchi "Ochish" dialog oynasida "Fayl nomi" qatorida "Barcha fayllar" ni tanlang va avval saqlangan matn fayliga o'ting.
- "Ochish" tugmasini bosgandan so'ng, matnli fayl turidagi elektron pochta Word dasturida ochiladi.
- Keyinchalik siz "Fayl" > "Boshqacha saqlash" ni tanlashingiz mumkin.
- Nihoyat, "Boshqa saqlash" dialog oynasida "Tiri sifatida saqlash" bo'limida "Word Document" ni tanlang va "Saqlash" tugmasini bosing.
2-usul: Outlook VBA-dan foydalaning
- Birinchidan, Outlook-da "Alt + F11" tugmachalarini bosing.
- Keyin ochilgan Outlook VBA muharriri oynasida yangi modulni oching.
- Keyin quyidagi VBA kodlarini nusxa ko'chiring va unga joylashtiring.
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
- Keyinchalik, tez kirish asboblar paneliga yangi VBA loyihasini qo'shing.
- Shundan so'ng, elektron pochtani tanlang va Tez kirish asboblar panelidagi so'l tugmasini bosing.
- Bir vaqtning o'zida elektron pochta mazmuni bo'lgan Word hujjati paydo bo'ladi.
- Nihoyat, yangi qalqib chiquvchi Word hujjatini odatdagidek saqlashingiz mumkin.
Zerikarli Outlook muammolarini samarali tarzda yo'q qiling
Outlook xatolar va buzilishlarga moyil bo'lganligi sababli, Outlook ma'lumotlaringizni himoya qilish uchun ko'proq kuch sarflashingiz kerak. Masalan, Outlook ma'lumotlaringiz uchun muntazam zaxira nusxalarini yaratishingiz kerak. Bundan tashqari, ustunlikni qo'lga kiritish oqilona Outlookni tiklash asbob, kabi DataNumen Outlook Repair, bu albatta bir kun foydali bo'ladi.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com



