Кейбір пайдаланушылар a слайдтарын импорттағысы келеді PowerPoint презентацияны электрондық пошта тіркемесі ретінде қосудың орнына электрондық поштаға. Енді осы мақалада біз оны жүзеге асырудың ыңғайлы әдісін енгіземіз.
Microsoft-та PowerPoint қолданбасында пайдаланушыларға жылдам жіберуге қолдау көрсететін жергілікті мүмкіндік бар PowerPoint презентация электрондық пошта қосымшасы ретінде. Дегенмен, пайдаланушылардың көпшілігі презентацияны электрондық пошта ретінде жібергісі келеді, атап айтқанда презентацияның слайдтарын поштаның хабарлама мәтініне импорттағысы келеді. Енді MS Outlook және PowerPoint мұндай функцияны бермеңіз, оған қол жеткізу үшін келесі VBA кодын пайдалануға болады. VBA кодын қалай іске қосу керектігі туралы мақалаға жүгінуге болады – «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
a слайдтарын импорттау PowerPoint Электрондық поштаға презентация
- Бастау үшін Outlook қолданбасын іске қосыңыз.
- Содан кейін «Alt + F11» пернелер түймесі арқылы Outlook VBA редакторына кіріңіз.
- Әрі қарай, жаңа терезеде «Microsoft PowerPoint «Нысан кітапханасы» мақаласына сілтеме жасай отырып – «VBA бағдарламасында объект кітапханасына сілтемені қалай қосуға болады«.
- Одан кейін төмендегі VBA кодын жобаға немесе модульге көшіріңіз.
Sub ImportSlidesOfPowerPointPresentationToMail()
Dim strPresentation As String
Dim objPowerPointApp As PowerPoint.Application
Dim objPresentation As PowerPoint.Presentation
Dim objSllide As PowerPoint.Slide
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
'Change the path to the specific PowerPoint presentation
strPresentation = "E:\DataNumen Products\DataNumen Products.pptx"
Set objPowerPointApp = CreateObject("PowerPoint.Application")
Set objPresentation = objPowerPointApp.Presentations.Open(strPresentation)
objPowerPointApp.Visible = msoCTrue
'Create a new outlook email
Set objMail = Outlook.Application.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
Set objWordApp = objMailDocument.Application
'Copy the contents of presentation into the message body
For Each objSlide In objPresentation.Slides
objSlide.Copy
objWordApp.Selection.Paste
Next
End Sub
- Осыдан кейін сіз осы макросты іске қоса аласыз. «F5» пернесін басыңыз.
- Макросты аяқтаған кезде сізге жаңа электрондық хат келеді. Онда дереккөздің барлық слайдтары бар PowerPoint келесі скриншот сияқты электрондық пошта мәтініндегі презентация:
PST сыбайлас жемқорлыққа назар аударыңыз
Көптеген пайдаланушылар Outlook проблемалары мен сыбайлас жемқорлық туралы көп шағымданды. Шынымды айтсам, Outlook бағдарламасында мұндай мәселелерді болжау немесе алдын алу қиын. Сіз жасай алатын нәрсе - мұндай жағдайдың ықтималдығын азайту үшін тиісті сақтық шараларын жасау. Мысалы, PST файлыңыздың айналасындағы барлық ықтимал қауіптерді, соның ішінде зиянды бағдарламаларды, вирустарды және т.б. Сонымен қатар, жақын жерде көрнекті PST түзету құралын алу ұсынылады, мысалы DataNumen Outlook Repair. Ол сізге деректерді қайтаруға көмектесе алады сыбайлас PST файлды қиындықсыз жеңілдетіңіз.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf бүлінген және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com