Bazı kullanıcılar bir slaytın slaytlarını içe aktarmak ister. PowerPoint sunuyu bir e-posta eki olarak eklemek yerine bir e-postaya gönderin. Şimdi, bu yazıda, bunu gerçekleştirmek için uygun bir yöntem tanıtacağız.
Microsoft’ta PowerPoint uygulama, kullanıcıların hızlı bir şekilde bir e-posta göndermesini destekleyen yerel bir özellik vardır. PowerPoint e-posta eki olarak sunum. Ancak, kullanıcıların çoğu sunumu bir e-posta olarak göndermek, yani sunumun slaytlarını bir postanın mesaj gövdesine aktarmak istiyor. Artık hem MS Outlook hem de PowerPoint böyle bir işlev sağlamayın, bunu elde etmek için aşağıdaki VBA kodunu kullanabilirsiniz. VBA kodunun nasıl çalıştırılacağı ile ilgili olarak, makaleye başvurabilirsiniz – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
Slaytları İçe Aktar PowerPoint E-postaya Sunum
- Öncelikle Outlook uygulamasını başlatın.
- Daha sonra “Alt + F11” tuşu ile Outlook VBA editörüne erişin.
- Ardından, yeni pencerede “Microsoft PowerPoint "Nesne Kütüphanesi" başlıklı makaleye atıfta bulunarak – "VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
- Ardından, aşağıdaki VBA kodunu bir projeye veya modüle kopyalayın.
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
- Daha sonra bu makroyu çalıştırabilirsiniz. “F5” tuş düğmesine basın.
- Makro tamamlandığında, yeni bir e-posta alacaksınız. Kaynağın tüm slaytlarını içeriyor PowerPoint aşağıdaki ekran görüntüsü gibi e-posta gövdesindeki sunum:
PST Bozulmasına Dikkat Edin
Birçok kullanıcı, Outlook sorunları ve yolsuzluk hakkında çok şikayet etti. Dürüst olmak gerekirse, Outlook'ta bu tür sorunları tahmin etmek veya önlemek zordur. Yapabileceğiniz şey, böyle bir olay olasılığını azaltmak için yeterli önlemleri almaktır. Örneğin, kötü amaçlı yazılım, virüsler vb. dahil olmak üzere PST dosyanızın etrafındaki tüm potansiyel risklere dikkat etmelisiniz. Ek olarak, yakınlarda olağanüstü bir PST düzeltme aracı bulmanız şiddetle tavsiye edilir. DataNumen Outlook Repair. Verileri geri almanıza yardımcı olabilir bozuk PST zahmetsiz kolaylıkla dosyalayın.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. hasarlı mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com