VBA : eMail aus Excel in Thunderbird
13.01.2013 14:14:56
Marc
ich möchte aus einem ExcelSheet heraus eine Mail generieren ...
mit Outlook hatte das immer problemlos funktioniert aber wegen Systemumstellung musste ich auf ein anderes Mailprogramm -hier Thunderbird von Mozilla - zurückgreifen
Das Maildokument wird korrekt geöffnet und die Felder mailto, subject oder body werden auch korrekt befüllt.. lediglich der Anhang wird nicht integriert,.. WESHALB?
Der Code sieht wie folgt aus:
Private Sub SendMailThunder_Click()
Dim strAn As String
Dim strBetr As String
Dim ..... 'alle anderen; hab die jetzt mal fürs forum rausgenommen
'******** Variable zur Übergabe
strEmpfaenger1 = Range("O19").Value
strEmpfaenger2 = Range("O20").Value
strAn = strEmpfaenger1 & ";" & strEmpfaenger2
strBetr = "Abrechnungsbeleg"
strBody = "Tagesbeleg vom " & Mid(strFile2, 19, 10)
'strFile2 = Range("ah3") 'wird Pfad und Name der aktuellen Datei hinterlegt
strFile2 = "c:\aa\TAG_UP_07.01.2013.txt" 'NUR in Test
'******** Code für Shell Ausführung
strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
strCommand = strCommand & " -compose " & Chr(34) & "mailto:" & strAn & "?"
strCommand = strCommand & "subject=" & Chr(34) & strBetr & Chr(34) & "&"
strCommand = strCommand & "body=" & Chr(34) & strBody & Chr(34) & "&"
strCommand = strCommand & "attachment=" & "C:\aa\TAG_UP_L064_07.01.2013.txt"""
'alternativ könnte man mit file:/// arbeiten ... klappt nicht (?)
'strCommand = strCommand & "attachment=file:///" & Replace(strFile2, "\", "/") ' '& "&" '& "'," _
'strCommand = strCommand & "attachment=""""strFile2""""
Call Shell(strCommand, vbNormalFocus)
End Sub
Habt Ihr eine gute Idee, wie der Code aussehen müsste, damit der Anhang mitgenommen wird ?
vielen Dank für eure Hilfe