Hallo alte Hasen,
hier ist vor fast vier Jahren ein Beitrag zum Versenden von Emails mit Anhang aus Excel heraus geschrieben worden.
Schön kurz und funktioniert auch ohne Outlook und immer noch mit Excel 2008.
Kann mir jemand helfen, die Zeilen so anzupassen, dass man
1. beliebige Anhänge ranhängen kann
2. Nachrichtentext übergeben kann und
3. vor dem eigentlichen Versenden nochmal quittieren muss, d.h. sieht, was genau rausgeht.
Die Lesebestätigung funktioniert bei mir offenbar nicht. Außerdem scheint der .SendMail dann gar keine weiteren Argumente zu verwenden.
Hier die Zeilen von damals:
Aber die gewünschte(n) Datei(en) wird nicht von allein angehängt und Zeilenumbrüche im Nachrichtentext gelingen auch nicht.
Wahrscheinlich bin ich kurz davor. Sieht jemand, was ich rausschmeißen oder hinzufügen muss. Vielleicht irgend so ein Add-Befehl. Hab zu wenig Ahnung.
Schon mal vielen Dank an alle, die mir weiterhelfen wollen.
MfG, dePauka
P.S. Wieso sind die Einrückungen wieder raus? Ich komme mit dem Editor hier nicht ganz klar.
hier ist vor fast vier Jahren ein Beitrag zum Versenden von Emails mit Anhang aus Excel heraus geschrieben worden.
Schön kurz und funktioniert auch ohne Outlook und immer noch mit Excel 2008.
Kann mir jemand helfen, die Zeilen so anzupassen, dass man
1. beliebige Anhänge ranhängen kann
2. Nachrichtentext übergeben kann und
3. vor dem eigentlichen Versenden nochmal quittieren muss, d.h. sieht, was genau rausgeht.
Die Lesebestätigung funktioniert bei mir offenbar nicht. Außerdem scheint der .SendMail dann gar keine weiteren Argumente zu verwenden.
Hier die Zeilen von damals:
Ein völlig anderer Versuch, den ich ebenfalls aus anderen Schnipseln zusammen gebastelt habe, ist folgender:
Ehrlich gesagt, außer meinem Versuch, logisch zu denken, habe ich hier wenig beizusteuern. Ich bin völliger Autodidakt. Dennoch funktioniert letzteres auch schon soweit, dass Excel allein weiß, dass ich gern Thunderbird nehme. Es trägt eine ganze Gruppe von Empfängern ein (allerdings wäre mir lieber, wenn ich auch CC: oder BCC: festlegen könnte), Absender stimmt auch. Und ich sehe alles noch einmal, kann also abbrechen, senden oder auch Text ändern und von Hand Anhänge zufügen.Visual Basic-Quellcode
- Private Declare Function ShellExecute Lib "Shell32.dll" _
- Alias "ShellExecuteA" (ByVal hWnd As Long, _
- ByVal lpOperation As String, ByVal lpFile As String, _
- ByVal lpParameters As String, ByVal lpDirectory As String, _
- ByVal nShowCmd As Long) As Long
- Private Sub Mail( _
- eMail As String, _
- Optional Subject As String, _
- Optional Body As String, _
- Optional Attachments As String)
- Call ShellExecute(0&, "Open", "mailto:" + eMail + _
- "?Subject=" + Subject + "&Body=" + Body, "", "", 1)
- End Sub
- Sub MailVersenden()
- Dim sMail As String, sSubject As String
- Dim sBody As String
- Dim strAttPfad As String
- Dim sAttachments As String
- Dim strPathName As String
- strPathName = Worksheets("alle aktuell").Range("S1").Value ' Pfad für Anhang steht in dieser Zelle
- sMail = Worksheets("alle aktuell").Range("X14").Value
- ' Emailadressen aller Empfänger stehen in einer unsichtbaren Zelle der Tabelle
- sSubject = "Testmail aus Excel"
- sBody = "Liebe Kolleginnen und Kollegen, " & vbCrLf & vbCrLf & _
- "hier ist der aktuelle Plan, versendet am " & Date & " um " & Time & vbCrLf & vbCrLf & vbCrLf & _
- "Mit freundlichen Grüßen, " & vbCrLf & _
- Application.UserName
- sAttachments = strPathName
- Call Mail(sMail, sSubject, sBody, sAttachments)
- End Sub
Aber die gewünschte(n) Datei(en) wird nicht von allein angehängt und Zeilenumbrüche im Nachrichtentext gelingen auch nicht.
Wahrscheinlich bin ich kurz davor. Sieht jemand, was ich rausschmeißen oder hinzufügen muss. Vielleicht irgend so ein Add-Befehl. Hab zu wenig Ahnung.
Schon mal vielen Dank an alle, die mir weiterhelfen wollen.
MfG, dePauka
P.S. Wieso sind die Einrückungen wieder raus? Ich komme mit dem Editor hier nicht ganz klar.