Егер сіз бүкіл электрондық пошта орнына Outlook электрондық поштасының бір бөлігін а ретінде экспорттағыңыз келсе PDF файл, сіз осы мақаланы оқи аласыз. Мұнда біз сізге VBA кодымен жету үшін бағыт береміз.
Алдыңғы мақалаларымнан - «Outlook электрондық поштасын қалай сақтауға болады PDF файл« және »Бірнеше Outlook электрондық пошталарын қалай экспорттау керек PDF файл», Сіз бүкіл электрондық поштаны экспорттау тәсілдерін біле аласыз PDF файл. Дегенмен, кейде сіз электронды пошта бөлігін а ретінде экспорттағыңыз келеді PDF файл. Сол кезде сіз оны жүзеге асыру үшін келесі VBA кодын пайдалана аласыз. Егер сіз VBA-ны қалай қолдануды білмесеңіз, онда сіз «» мақаласына сілтеме жасай аласыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады»Бұл арада.
Электрондық пошта бөлігін а ретінде экспорттаңыз PDF файл
- Бастау үшін Outlook бағдарламаңызды іске қосыңыз.
- Содан кейін, «Alt + F11» пернелер тіркесімі арқылы Outlook VBA редакторына кіріңіз.
- Осыдан кейін осы жаңа терезеде пайдаланылмаған модульді ашыңыз.
- Кейіннен келесі модульге VBA кодын көшіріңіз және қойыңыз.
Sub ExportSelectionAsPDF()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objDocSelection As Word.Selection
Dim objWordApp As Word.Application
Dim objTempDocument As Word.Document
Dim strPDF As String
'Get the currently opened email
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
If Not objMail Is Nothing Then
'Copy the current selection
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocSelection = objMailDocument.Application.Selection
objDocSelection.Copy
'Paste the selection into a new Word document
Set objWordApp = CreateObject("Word.Application")
Set objTempDocument = objWordApp.Documents.Add
objWordApp.Visible = True
objTempDocument.Activate
objWordApp.Selection.EndKey wdStory
objWordApp.Selection.PasteAndFormat wdPasteDefault
'Export the document as a PDF file
'Change the path as per your needs
strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
objTempDocument.Close False
objWordApp.Quit
End If
End Sub
- Осыдан кейін хабарламалар терезесіне жылдам қол жеткізу құралдар тақтасына жаңа макросты қосу керек.
- Соңында, сіз түсірілім жасай аласыз:
- Алдымен электрондық поштаны ашыңыз.
- Содан кейін экспортталатын мазмұнды таңдаңыз.
- Әрі қарай, жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
- Бірден макрос іске қосылады.
- Макро аяқталғаннан кейін сіз алдын ала анықталған жергілікті қалтаға кіре аласыз, сонда сіз жаңасын көресіз PDF файл.
- Оны ашып, оның келесі скриншотқа ұқсайтынын көресіз:
Перспективаның бұзылуынан кейінгі тиімді шаралар
Көптеген керемет функцияларымен мақтанғанымен, Outlook әлі де зақымданудан қорғалмайды. Шын мәнінде, бұл түрлі факторларға байланысты сыбайлас жемқорлыққа ұшырайды, мысалы вирустар, зиянды бағдарламалар, бағдарламалық жасақтама ақаулары, аппараттық құралдар және т.б. Бұл сценарийде зақымдалған Outlook деректерін құтқару, соның ішінде іске қосу үшін шаралар қабылдау қажет Сканерлеу файлды қалпына келтіру, ең соңғы сақтық көшірмелерді тексеру және қуатты және сенімді PST түзету құралының көмегін пайдалану, мысалы DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com