Kako brzo uvesti slajdove a PowerPoint Prezentacija u vašu Outlook e-poštu

Neki korisnici žele uvesti slajdove a PowerPoint prezentaciju u e-poruku umjesto dodavanja prezentacije kao privitka e-pošte. Sada ćemo u ovom članku predstaviti prikladnu metodu za njegovu realizaciju.

U Microsoftu PowerPoint aplikaciji, postoji izvorna značajka koja podržava korisnike da brzo pošalju a PowerPoint prezentacija kao privitak e-pošte. Međutim, većina korisnika željela bi poslati prezentaciju kao e-poruku, odnosno uvesti slajdove prezentacije u tijelo poruke e-pošte. Sada kada su i MS Outlook i PowerPoint ne pružaju takvu funkciju, možete upotrijebiti sljedeći VBA kod da biste to postigli. Što se tiče pokretanja VBA koda, možete pogledati članak – “Kako pokrenuti VBA kod u vašem Outlooku".

Uvezite slajdove a PowerPoint Prezentacija u e-mail

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pristupite Outlook VBA uređivaču tipkom "Alt + F11".
3. Zatim u novom prozoru omogućite “Microsoft PowerPoint "Knjižnica objekata" s referencom na članak – "Kako dodati referencu biblioteke objekata u VBA".
4. Zatim kopirajte donji VBA kod u projekt ili 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

5. Nakon toga možete pokrenuti ovu makronaredbu. Pritisnite tipku "F5".
6. Kada se makronaredba završi, dobit ćete novu e-poštu. Sadržao je sve slajdove izvora PowerPoint prezentaciju u tijelu e-pošte, poput sljedeće snimke zaslona:

Pripazite na PST korupciju

Mnogi korisnici mnogo su se žalili na probleme i korupciju Outlooka. Da budem iskren, teško je predvidjeti ili spriječiti takve probleme u Outlooku. Ono što možete učiniti je poduzeti odgovarajuće mjere opreza kako biste smanjili vjerojatnost takve pojave. Na primjer, trebali biste pripaziti na sve potencijalne rizike oko svoje PST datoteke, uključujući zlonamjerni softver, viruse i tako dalje. Osim toga, toplo se preporučuje nabaviti izvanredan alat za popravak PST-a u blizini, kao što je DataNumen Outlook Repair. Može vam pomoći da vratite podatke iz pokvareni PST turpijajte s lakoćom bez napora.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com