Заримдаа та Outlook имэйлийн ердийн эсвэл интернет толгой хэсгийг л хэвлэх шаардлагатай болдог. Одоо энэ бичлэгт танд 2 хурдан бөгөөд энгийн аргыг хуваалцах болно.
Өмнөх нийтлэлээс - "Outlook имэйлийг толгой болон хэрэглэгчийн нэргүйгээр хэвлэх 2 зөвлөгөө", та зөвхөн шуудангийн мессежийн хэсгийг хэвлэх хялбар аргуудыг сурч болно. Гэхдээ заримдаа та имэйлийн ердийн эсвэл интернетийн толгой хэсгийг, тухайлбал, илгээгч, хүлээн авагч болон имэйлийн бусад мэдээллийг хэвлэхийг хүсч болно. Тиймээс, цаашид бид танд үүнийг авах 2 аргыг заах болно.
Арга 1: Гараар хэвлэх
Интернетийн толгой хэсгийг хэвлэх
- Эхлээд имэйлийг давхар товшоод мессежийн цонхонд нээнэ үү.
- Дараа нь "Файл" цэс рүү очно уу.
- "Мэдээлэл" таб дээр "Properties" товчийг дарна уу.

- "Properties" цонхны "Интернет толгой" талбарт дарна уу.
- Дараа нь "Ctrl + A" товчийг дарж бүгдийг сонгоод, "Ctrl + C" товчийг дарж толгойг бүхэлд нь хуулна.
- Дараа нь шинэ имэйл үүсгээд "Ctrl + V" товчийг дарж толгой хэсгийг үндсэн хэсэгт оруулна уу.
- Эцэст нь шинэ захидал хэвлэхийн тулд "Файл" > "Хэвлэх" хэсэгт очно уу.
Ердийн толгой хэсгийг хэвлэх
- Эхлэхийн тулд эх имэйлийг сонгох эсвэл нээнэ үү.
- Дараа нь "Урагшлах" товчийг дарна уу.
- Дараах дэлгэцийн агшин шиг зөвхөн толгой хэсгийг үлдээхийн тулд гарч ирэх шуудангийн дамжуулалтын эх захидлын эх хэсгийг сонгоод устгана уу.
- Эцсийн эцэст одоогийн дамжуулж буй шуудангаа ердийнхөөрөө хэвлэ.
Арга 2: VBA ашиглан хэвлэх
Интернетийн толгой хэсгийг хэвлэх
- Эхлэхийн тулд хүссэн имэйлээ нээх эсвэл сонгоно уу.
- Дараа нь "Alt + F11" ашиглан Outlook VBA засварлагчийг ажиллуулна уу.
- Дараа нь дараах кодыг модульд оруулна уу.
Sub PrintFullHeaders()
Dim objMail As Outlook.MailItem
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim strHeader As String
Dim objTempMail As Outlook.MailItem
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
'Get full headers
Set objPropertyAccessor = objMail.PropertyAccessor
strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
'Print headers in temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
objTempMail.HTMLBody = "<HTML><BODY>" & strHeader & "</BODY></HTML>"
objTempMail.PrintOut
End Sub
- Эцэст нь багаж самбар дээрх "Ажиллуулах" дүрс дээр дарна уу.
- Нэг удаад цахим шуудангийн гарчиг хэвлэгдэх болно.
Ердийн толгой хэсгийг хэвлэх
- VBA засварлагч хэвээр байгаа тул доорх кодыг модуль болгон хуулна уу.
Sub PrintShortHeaders()
Dim objMail As Outlook.MailItem
Dim objTempMail As Outlook.MailItem
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
Set objTempMail = objMail.Copy
'Remove the body, leave headers only
objTempMail.Body = ""
objTempMail.PrintOut
End Sub
- Үүний дараа энэ макро ажиллуулна уу.
- Нэн даруй имэйлийн ердийн гарчиг хэвлэгдэх болно.
Үл мэдэгдэх шуудангаас болгоомжил
Гарчиг нь имэйлийн IP хаяг зэрэг маш их мэдээллийг ил болгож чадна. Хэрэв та имэйл сэжигтэй эсэхийг тодорхойлохыг хүсвэл гарчгийг нь шалгах шаардлагатай. Үнэнийг хэлэхэд үл мэдэгдэх илгээгчдээс ирсэн имэйлд итгэхгүй байхыг зөвлөж байна, учир нь тэдгээрийн ихэнх нь спам бөгөөд хортой макро агуулдаг. Тэд таны Outlook файлд амархан халдаж болзошгүй. Хэрэв Outlook файл эвдэрсэн бол та оролдох хэрэгтэй Outlook засвар. гэх мэт мэргэжлийн, бат бөх хэрэгсэлд хандахгүй бол энэ нь нэлээд зангилаа юм DataNumen Outlook Repair.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com






