Aktuelle Powerpoint-Präsentation per Button als Email versenden

  • Sonstige

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Aktuelle Powerpoint-Präsentation per Button als Email versenden

    Hallo zusammen,

    ich habe folgende Frage.

    Ich möchte einen Button in Powerpoint haben, der automatisch die Email per Outlook zu mir sendet (ähnlich eines automatisierten Formulars).

    Folgendes habe ich bisher:
    Button:

    Visual Basic-Quellcode

    1. Private Sub CommandButton1_Click()
    2. Dim ret As Boolean
    3. Dim strAddress As String
    4. Dim strMessage As String
    5. Dim strAttachment As String
    6. strAddress = "emailadress"
    7. strAttachment = ActivePresentation.XXXX
    8. strMessage = ActivePresentation.Slides(7).Shapes(5).TextFrame.TextRange + ActivePresentation.Slides(7).Shapes(8).TextFrame.TextRange
    9. ret = SendEMail(strAddress, "From PowerPoint", strMessage)
    10. MsgBox "Email verschickt!"
    11. End Sub


    Modul:

    Visual Basic-Quellcode

    1. Public Function SendEMail(strRecipient As String, strSubject As String, strBody As String) As Boolean
    2. Dim oApp As Object
    3. Dim oMail As Object
    4. Err.Clear
    5. On Error Resume Next
    6. Set oApp = GetObject(Class:="Outlook.Application")
    7. If Err <> 0 Then Set oApp = CreateObject("Outlook.Application")
    8. Err.Clear
    9. Set oMail = oApp.CreateItem(0)
    10. With oMail
    11. .Subject = strSubject
    12. .To = strRecipient
    13. .attachments.Add strAttachment
    14. 'copy to self
    15. .BodyFormat = 1
    16. .Body = strBody
    17. .Send
    18. End With
    19. 'cleanup
    20. Set oMail = Nothing
    21. Set oApp = Nothing
    22. 'All OK?
    23. If Err = 0 Then SendEMail = True Else SendEMail = False
    24. End Function


    Nun ja. Der Emailversand funktioniert. Allerdings habe ich noch nicht herausgefunden, wie ich die aktuell geöffnete Präsentation (egal wo gespeichert) in den Anhang der Email stecken kann. Die aktuelle Präsentation muss dafür gespeichert werden. Ich habe das Gefühl, dass es bei "ActivePresentation" eine Befehl geben müsste (mit XXXX markiert), die für die gesamte Datei stehen könnte, so dass der Versand dann im Anhang erfolgt.

    Außerdem: Ist die Attachment-Funktion in dem Modul so richtig? (mit Referenz nach oben zum Button?)

    Habt ihr Ideen?

    Viele Grüße
    Johannes


    Edit von fufu: Das nächste mal verwendest du die (VB-)Code-Tags bitte selbst!

    Edit by Manschula: Thema aus dem Tipps & Tricks-Unterbereich verschoben

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „joby“ ()