Ako rýchlo importovať snímky z a PowerPoint Prezentácia do vášho e-mailu programu Outlook

Niektorí používatelia chcú importovať snímky z a PowerPoint prezentáciu do e-mailu namiesto pridania prezentácie ako prílohy e-mailu. Teraz v tomto článku predstavíme pohodlný spôsob, ako to realizovať.

V spoločnosti Microsoft PowerPoint existuje natívna funkcia podporujúca používateľov rýchleho odoslania a PowerPoint prezentácia ako príloha e-mailu. Väčšina používateľov by však chcela odoslať prezentáciu ako e-mail, konkrétne importovať snímky prezentácie do tela správy e-mailu. Teraz, keď MS Outlook a PowerPoint neposkytujú takúto funkciu, na jej dosiahnutie môžete použiť nasledujúci kód VBA. Ako spustiť kód VBA, môžete si prečítať článok – “Ako spustiť kód VBA v programe Outlook".

Importujte snímky z a PowerPoint Prezentácia do e-mailu

1. Ak chcete začať, spustite aplikáciu Outlook.
2. Potom otvorte editor Outlook VBA pomocou tlačidla „Alt + F11“.
3. Ďalej v novom okne povoľte „Microsoft PowerPoint „Knižnica objektov“ s odkazom na článok – „Ako pridať odkaz na knižnicu objektov vo VBA".
4. Následne skopírujte nižšie uvedený kód VBA do projektu alebo 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. Potom môžete spustiť toto makro. Stlačte tlačidlo "F5".
6. Po dokončení makra dostanete nový e-mail. Obsahuje všetky snímky zdroja PowerPoint prezentácia v tele e-mailu, napríklad nasledujúca snímka obrazovky:

Dávajte pozor na korupciu PST

Mnoho používateľov sa veľa sťažovalo na problémy a poškodenie programu Outlook. Úprimne povedané, je ťažké predvídať alebo predchádzať takýmto problémom v programe Outlook. Čo môžete urobiť, je urobiť primerané opatrenia na zníženie pravdepodobnosti takéhoto výskytu. Mali by ste napríklad dávať pozor na všetky potenciálne riziká okolo vášho súboru PST vrátane škodlivého softvéru, vírusov atď. Okrem toho sa dôrazne odporúča zohnať vynikajúci nástroj na opravu PST v blízkosti, napr DataNumen Outlook Repair. Je schopný vám pomôcť získať späť údaje z skorumpovaný PST spis bez námahy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S