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:
Modul:
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
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
- Private Sub CommandButton1_Click()
- Dim ret As Boolean
- Dim strAddress As String
- Dim strMessage As String
- Dim strAttachment As String
- strAddress = "emailadress"
- strAttachment = ActivePresentation.XXXX
- strMessage = ActivePresentation.Slides(7).Shapes(5).TextFrame.TextRange + ActivePresentation.Slides(7).Shapes(8).TextFrame.TextRange
- ret = SendEMail(strAddress, "From PowerPoint", strMessage)
- MsgBox "Email verschickt!"
- End Sub
Modul:
Visual Basic-Quellcode
- Public Function SendEMail(strRecipient As String, strSubject As String, strBody As String) As Boolean
- Dim oApp As Object
- Dim oMail As Object
- Err.Clear
- On Error Resume Next
- Set oApp = GetObject(Class:="Outlook.Application")
- If Err <> 0 Then Set oApp = CreateObject("Outlook.Application")
- Err.Clear
- Set oMail = oApp.CreateItem(0)
- With oMail
- .Subject = strSubject
- .To = strRecipient
- .attachments.Add strAttachment
- 'copy to self
- .BodyFormat = 1
- .Body = strBody
- .Send
- End With
- 'cleanup
- Set oMail = Nothing
- Set oApp = Nothing
- 'All OK?
- If Err = 0 Then SendEMail = True Else SendEMail = False
- 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
