Beberapa pengguna ingin mengimpor slide a PowerPoint presentasi ke dalam email alih-alih menambahkan presentasi sebagai lampiran email. Sekarang, dalam artikel ini, kami akan memperkenalkan metode yang nyaman untuk mewujudkannya.
Di Microsoft PowerPoint aplikasi, ada fitur asli yang mendukung pengguna untuk mengirim dengan cepat PowerPoint presentasi sebagai lampiran email. Namun, sebagian besar pengguna ingin mengirim presentasi sebagai email, yaitu mengimpor slide presentasi ke badan pesan email. Sekarang MS Outlook dan PowerPoint tidak menyediakan fungsi seperti itu, Anda dapat menggunakan kode VBA berikut untuk mencapainya. Adapun cara menjalankan kode VBA, Anda dapat merujuk ke artikel – “Cara Menjalankan Kode VBA di Outlook Anda".
Impor Slide dari a PowerPoint Presentasi ke dalam Email
- Untuk start dengan, luncurkan aplikasi Outlook.
- Kemudian, akses editor Outlook VBA dengan tombol "Alt + F11".
- Selanjutnya, di jendela baru, aktifkan "Microsoft" PowerPoint Obyek Library "dengan mengacu pada artikel -"Cara Menambahkan Object Library Referensi di VBA".
- Selanjutnya, salin kode VBA di bawah ini ke dalam proyek atau modul.
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
- Setelah itu, Anda dapat menjalankan makro ini. Tekan tombol tombol "F5".
- Ketika makro selesai, Anda akan mendapatkan email baru. Ini telah berisi semua slide sumbernya PowerPoint presentasi di badan email, seperti screenshot berikut:
Awasi Korupsi PST
Banyak pengguna telah banyak mengeluh tentang masalah Outlook dan korupsi. Sejujurnya, sulit untuk memprediksi atau mencegah masalah seperti itu di Outlook. Apa yang dapat Anda lakukan adalah membuat tindakan pencegahan yang memadai untuk mengurangi kemungkinan kejadian seperti itu. Misalnya, Anda harus mengawasi semua potensi risiko di sekitar file PST Anda, termasuk malware, virus, dan sebagainya. Selain itu, sangat disarankan untuk mendapatkan alat perbaikan PST yang luar biasa di sekitar, seperti DataNumen Outlook Repair. Ini dapat membantu Anda mendapatkan kembali data dari PST korup mengajukan dengan mudah.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com