ზოგჯერ, თქვენ მხოლოდ Outlook ელფოსტის ჩვეულებრივი ან ინტერნეტ სათაურის დაბეჭდვა გჭირდებათ. ახლა, ეს პოსტი გაგიზიარებთ 2 სწრაფ და მარტივ მიდგომას.
წინა სტატიიდან - "2 რჩევა Outlook-ის ელფოსტის დასაბეჭდად სათაურის და მომხმარებლის სახელის გარეშე“, შეგიძლიათ ისწავლოთ მხოლოდ ფოსტის შეტყობინების ტექსტის დაბეჭდვის მარტივი გზები. მაგრამ, ზოგჯერ შეიძლება დაგჭირდეთ უბრალოდ დაბეჭდოთ ელ.ფოსტის ჩვეულებრივი ან ინტერნეტ სათაური, კერძოდ, ელ.ფოსტის გამგზავნი, მიმღებები და სხვა ინფორმაცია. ასე რომ, შემდგომში გასწავლით მის მისაღებად 2 მეთოდს.
მეთოდი 1: ხელით დაბეჭდვა
ინტერნეტის სათაურის ამობეჭდვა
- თავდაპირველად, ორჯერ დააწკაპუნეთ ელფოსტაზე, რათა გახსნათ იგი შეტყობინებების ფანჯარაში.
- შემდეგ გადადით მენიუში "ფაილი".
- "ინფორმაციის" ჩანართზე დააჭირეთ ღილაკს "თვისებები".
- "თვისებები" ფანჯარაში დააწკაპუნეთ ველში "ინტერნეტ სათაურები".
- შემდეგი, დააჭირეთ "Ctrl + A" ყველა ასარჩევად და "Ctrl + C" სრული სათაურის კოპირებისთვის.
- მოგვიანებით, შექმენით ახალი ელ. ფოსტა და დააჭირეთ ღილაკს "Ctrl + V", რომ ჩასვათ სათაურები ტანში.
- და ბოლოს, გადადით "ფაილი" > "ბეჭდვა" ახალი ფოსტის დასაბეჭდად.
ნორმალური სათაურის ამობეჭდვა
- დასაწყისისთვის აირჩიეთ ან გახსენით წყაროს ელფოსტა.
- შემდეგ დააჭირეთ ღილაკს "წინ".
- ფოსტის გაგზავნის ამომხტარ ფანჯარაში აირჩიეთ და წაშალეთ ორიგინალური წერილის ტექსტი, რომ დატოვოთ მხოლოდ სათაური, როგორც შემდეგი ეკრანის სურათი.
- საბოლოო ჯამში, დაბეჭდეთ მიმდინარე გადამგზავნი ფოსტა, როგორც ყოველთვის.
მეთოდი 2: ბეჭდვა VBA-ით
ინტერნეტის სათაურის ამობეჭდვა
- დასაწყებად, გახსენით ან აირჩიეთ სასურველი ფოსტა.
- შემდეგ გაუშვით Outlook VBA რედაქტორი "Alt + F11" საშუალებით.
- შემდეგი, ჩადეთ შემდეგი კოდი მოდულში.
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
- და ბოლოს, დააწკაპუნეთ "Run" ხატულაზე ხელსაწყოთა ზოლში.
- ერთდროულად დაიბეჭდება ელ.ფოსტის ინტერნეტ სათაური.
ნორმალური სათაურის ამობეჭდვა
- ჯერ კიდევ 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 კორუფციის და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად