Jak rychle importovat snímky z PowerPoint Prezentace do e-mailu aplikace Outlook

Někteří uživatelé chtějí importovat snímky a PowerPoint prezentaci do e-mailu místo přidání prezentace jako přílohy e-mailu. Nyní v tomto článku představíme pohodlnou metodu, jak ji realizovat.

V Microsoft PowerPoint aplikace, existuje nativní funkce podporující uživatele k rychlému odeslání PowerPoint prezentace jako příloha e-mailu. Většina uživatelů by však chtěla prezentaci odeslat jako e-mail, konkrétně importovat snímky prezentace do těla zprávy e-mailu. Nyní, když oba MS Outlook a PowerPoint neposkytují takovou funkci, můžete použít následující kód VBA k dosažení tohoto cíle. Pokud jde o způsob spuštění kódu VBA, můžete si přečíst článek - „Jak spustit kód VBA ve vašem Outlooku".

Importujte snímky z PowerPoint Prezentace do e-mailu

1. Start s, spusťte aplikaci Outlook.
2. Poté otevřete klávesu „Alt + F11“ editor VBA aplikace Outlook.
3. Dále v novém okně povolte „Microsoft PowerPoint Objekt Library “s odkazem na článek -„Jak přidat objekt Library Reference ve VBA".
4. Následně zkopírujte níže uvedený kód VBA do projektu nebo modulu.

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. Poté můžete toto makro spustit. Stiskněte tlačítko „F5“.
6. Po dokončení makra obdržíte nový e-mail. Obsahuje všechny snímky zdroje PowerPoint prezentace v těle e-mailu, například následující snímek obrazovky:

Dávejte pozor na korupci PST

Mnoho uživatelů si často stěžovalo na problémy a poškození aplikace Outlook. Abych byl upřímný, je těžké předvídat nebo předcházet těmto problémům v Outlooku. Mohli byste udělat přiměřená preventivní opatření ke snížení pravděpodobnosti takové události. Měli byste například sledovat všechna potenciální rizika spojená se souborem PST, včetně malwaru, virů atd. Kromě toho se důrazně doporučuje získat v blízkosti vynikající nástroj pro opravu PST DataNumen Outlook Repair. Je schopen vám pomoci získat zpět data z poškozený PST pilník bez námahy.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com