Come importare rapidamente le diapositive di a PowerPoint Presentazione nella tua email di Outlook

Alcuni utenti desiderano importare le diapositive di un file PowerPoint presentazione in un messaggio di posta elettronica invece di aggiungere la presentazione come allegato di posta elettronica. Ora, in questo articolo, introdurremo un metodo conveniente per realizzarlo.

In Microsoft PowerPoint applicazione, c'è una funzione nativa che supporta gli utenti per inviare rapidamente a PowerPoint presentazione come allegato di posta elettronica. Tuttavia, la maggior parte degli utenti vorrebbe inviare la presentazione come e-mail, vale a dire importare le diapositive della presentazione nel corpo del messaggio di un messaggio di posta. Ora che sia MS Outlook che PowerPoint non forniscono tale funzione, è possibile utilizzare il seguente codice VBA per ottenerlo. Per quanto riguarda come eseguire il codice VBA, puoi fare riferimento all'articolo - "Come eseguire il codice VBA in Outlook".

Importa le diapositive di a PowerPoint Presentazione in un'e-mail

1. A start con, avvia l'applicazione Outlook.
2. Quindi, accedi all'editor VBA di Outlook tramite il pulsante "Alt + F11".
3. Successivamente, nella nuova finestra, abilita "Microsoft PowerPoint Oggetto library” con riferimento all'articolo – “Come aggiungere un oggetto Library Riferimento in VBA".
4. Successivamente, copia il codice VBA di seguito in un progetto o modulo.

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. Successivamente, puoi eseguire questa macro. Premere il tasto "F5".
6. Al termine della macro, riceverai una nuova email. Ha contenuto tutte le diapositive della fonte PowerPoint presentazione nel corpo dell'email, come la seguente schermata:

Tieni d'occhio la corruzione PST

Molti utenti si sono lamentati molto dei problemi e della corruzione di Outlook. Ad essere onesti, è difficile prevedere o prevenire tali problemi in Outlook. Quello che potresti fare è prendere adeguate precauzioni per ridurre la probabilità che un tale evento si verifichi. Ad esempio, dovresti tenere d'occhio tutti i potenziali rischi relativi al tuo file PST, inclusi malware, virus e così via. Inoltre, si consiglia vivamente di procurarsi un eccezionale strumento di correzione PST nelle vicinanze, come DataNumen Outlook Repair. È in grado di aiutarti a recuperare i dati da PST corrotto file con facilità senza sforzo.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui mdf danneggiato e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com