Come allegare rapidamente le diapositive specifiche di a PowerPoint Presentazione alla tua email di Outlook

Se vuoi estrarre le diapositive specifiche di a PowerPoint presentazione a una nuova presentazione separata e allegarla a un'e-mail di Outlook, è possibile utilizzare il modo condiviso in questo articolo.

Invece di allegare un file intero PowerPoint presentazione a un'e-mail, se si desidera allegare le diapositive specifiche della presentazione, in generale, è necessario prima copiare le diapositive specifiche in una nuova presentazione. È troppo fastidioso. Pertanto, qui ti mostreremo un metodo che può realizzarlo in una volta sola.

Allega le Slide Specifiche di a PowerPoint Presentazione a un'e-mail

1. Prima di tutto, apri lo specifico PowerPoint presentazione.
2. Quindi, nel PowerPoint finestra dell'applicazione, premere i tasti "Alt + F11" per accedere all'editor VBA.
3. Successivamente, nella nuova finestra, crea un nuovo modulo premendo "Inserisci" > "Modulo".
4. Successivamente, copia e incolla il seguente codice VBA in questo modulo.

Sub AttachSpecificSlidesToOutlookEmail()
    Dim objActivePresetation As Presentation
    Dim objSlide As Slide
    Dim n As Long
    Dim strName As String
    Dim strTempPresetation As String
    Dim objTempPresetation As Presentation
    Dim objOutlookApp As Object
    Dim objMail As Object
 
    Set objActivePresetation = ActivePresentation
 
    For Each objSlide In objActivePresetation.Slides
        objSlide.Tags.Delete ("Selected")
    Next
 
    'Add a tag "Selected" to the selected slides
    For n = 1 To ActiveWindow.Selection.SlideRange.Count
        ActiveWindow.Selection.SlideRange(n).Tags.Add "Selected", "YES"
    Next n
 
    strName = objActivePresetation.Name
    strName = Left(strName, InStrRev(strName, ".") - 1)
    strTempPresetation = Environ("TEMP") & "\" & strName & ".pptx"
 
    'Copy the active presentation to a temp presentation
    objActivePresetation.SaveCopyAs strTempPresetation
    Set objTempPresetation = Presentations.Open(strTempPresetation)
 
    'Remove the untagged slides
    For n = objTempPresetation.Slides.Count To 1 Step -1
        If objTempPresetation.Slides(n).Tags("Selected") <> "YES" Then
           objTempPresetation.Slides(n).Delete
        End If
    Next n
 
    objTempPresetation.Save
    objTempPresetation.Close
 
    'Attach the temp presentation to a new email
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
 
    'Change the email details as per your needs
    With objMail
         .To = "test@datanumen.com"
         .Subject = strName
         .Body = "Dear," & vbCr & vbCr & vbTab & "Specific slides are extracted and attached."
         .Attachments.Add strTempPresetation
         .Display
    End With
End Sub

5. Successivamente, puoi chiudere la finestra corrente.
6. Successivamente, vai su "File" > "Opzioni" > "Barra di accesso rapido" per aggiungere la nuova macro alla barra di accesso rapido.
7. Infine, puoi provare questa macro.

• Innanzitutto, seleziona le diapositive specifiche che desideri estrarre.
• Quindi, fai clic sul pulsante macro nella barra di accesso rapido.
• Immediatamente, verrà visualizzata un'e-mail di Outlook, in cui è presente un file PowerPoint presentazione estratta dalla presentazione di origine.

Utilizza uno strumento di recupero efficace

Come tutti sappiamo, Outlook è dotato di un'utilità di riparazione integrata: Scansione. Tuttavia, può semplicemente far fronte a piccoli problemi in Outlook. Se quello che ti trovi di fronte è un grave danno, non produrrà effetti. A quel punto, non hai altra scelta che ricorrere a un altro strumento di riparazione potente e affidabile, come DataNumen Outlook Repair. Con esso, sarai in grado di salvare il tuo file Outlook corrotto.

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 corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com