Mailversand ohne Outlook
Dieter.K
vielleicht kann mir jemand weiterhelfen (meine VBA-Kenntnisse sind mehr als bescheiden).
Mit folgendem Code kann ich Mails über Mozilla versenden:
Sub mail()
'hier wird die zuvor erstellte PDF-Datei über Thunderbird per Mail versandt
Dim strAn As String
Dim strBetr As String
Dim strBody As String
Dim DName As String
Dim Dateiname As String
Dim Pfad As String
Dim strAttPfad As String
Dim strThunderPfad As String
Dim strShell As String
Pfad = "D:\xxxxxxx" 'Pfad anpassen
DName = "xxxxxxx " 'Dateiname anpassen
Dateiname = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD")
strThunderPfad = """C:\Programme\Mozilla Thunderbird\Thunderbird.exe"""
strAn = "meineMail@meinedomain.de" 'mehrere Empfänger durch Komma trennen - Mailadresse _
anpassen!
strBetr = "xxxxxx" 'Betreff anpassen
strBody = "xxxxxx: " & DName & Format(Now, "DD.MM.YYYY") & " als Anlage." & vbCrLf & "" _
& vbCrLf & "xxxxxx" & vbCrLf & "xxxxxx" _
& vbCrLf & "xxxxxx" & vbCrLf & "xxxxxx"
strAttPfad = Dateiname & ".pdf" 'mehrere Dateien durch "file:\\\" trennen - Verzeichnis _
anpassen!!
strShell = strThunderPfad & _
" -compose """ & _
"to='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"attachment='file:///" & Replace(strAttPfad, "\", "/") & "'," & _
"body=" & strBody & _
Call Shell(strShell, vbNormalFocus)
End Sub
Jetzt möchte ich aber die Mail nicht über Mozilla, sondern mit dem
Strato-Communicator versenden. Das öffnen des Communicators
funktioniert ohne Probleme mit folgendem Code:
Sub herber() 'Code aus der Forumssuche)
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "https://com4.strato.de/ox6/ox.html#&store=false"
End Sub
Frage: wie kann ich über VBA hier ebenfalls die benötigten Angaben,
"Betreff:", "Eintrag im Body" und die benötigten Mailadressen automatisch eintragen lassen?
Geht das überhaupt?
Hat jemand einen Lösungsansatz für mich?
Vielen Dank im Voraus.
Dieter.K