Gilt zwar schon als erledigt, aber ich habe selbst lange nach einer Lösung gesucht und viel probiert.
Hier eine m.E, gute Möglichkeit (winXP, Access97, Thunderbird 3.1)
Function ThunderbirdMail(strAn As String, strCC As String, strBCC As String, strBetr As String, strBody As String, strAttPfad As String)
Dim strThunderPfad As String
Dim strShell As String
Dim strEmailpth as String
'compose-parameters: "to='john@example.com,kathy@example.com',cc='britney@example.com',subject='dinner',body='How about dinner tonight?',attachment='C:\temp\info.doc,C:\temp\food.doc'"
' check your correct apllication-path here:
stremailpth= "C:\programme\thunderbird"
strThunderPfad = """" & stremailpth & "Thunderbird.exe " & """"
'strAn = "my email adress," 'seperate multiple receivers with ","
'strBetr = "my regard"
'strBody = "my message"
'for ecel users, if certain range of cells shall be inserted in the message:
'strBody = Range("A1").Value & " " & Range("C4711").Value & " " & Range("X007").Value
strShell = strThunderPfad & _
" -compose """ & _
"to='" & strAn & "'," & _
"cc='" & strCC & "'," & _
"bcc='" & strBCC & "'," & _
"subject='" & strBetr & "'," & _
"body='" & strBody & "'," & _
"attachment='" & strAttPfad & "'" & _
""""
'MsgBox strShell 'just to check wether all this looks correct
Call Shell(strShell, vbNormalFocus)
End Function