gute Antwort (Antwort 2). Von dir lernt man immer wieder schöne Sachen. Ich habe die Sub mal verallgemeinert, vielleicht kann ja jemand die Routine gebrauchen...
Public Sub sendMail(mailto As String, mailcc As String, mailbcc As String, subject As String, body As String)
Dim mailto_list As Variant
Dim mailcc_list As Variant
Dim mailbcc_list As Variant
Dim strMailTo As String
Dim strTo As String
Dim strCC As String
Dim strBCC As String
Dim strSubject As String
Dim strBody As String
Dim str As String
Dim i As Integer
mailto_list = Split(mailto, ",")
strMailTo = mailto_list(0)
strTo = ""
For i = LBound(mailto_list) + 1 To UBound(mailto_list)
strTo = strTo & "to=" & mailto_list(i) & "&"
Next
strCC = ""
mailcc_list = Split(mailcc, ",")
For i = LBound(mailcc_list) To UBound(mailcc_list)
strCC = strCC & "cc=" & mailcc_list(i) & "&"
Next
strBCC = ""
mailbcc_list = Split(mailbcc, ",")
For i = LBound(mailbcc_list) To UBound(mailbcc_list)
strBCC = strBCC & "bcc=" & mailbcc_list(i) & "&"
Next
strSubject = Replace(Replace(Replace(Replace(Replace(subject, "&to:", ""), "&bcc=", ""), "&cc=", ""), "&subject=", ""), "&body=", "")
strBody = Replace(Replace(Replace(Replace(Replace(body, "&to:", ""), "&bcc=", ""), "&cc=", ""), "&subject=", ""), "&body=", "")
str = "mailto:" & strMailTo & "?" _
& strTo _
& strCC _
& strBCC _
& "&subject=" & strSubject _
& "&body=" & strBody
ShellExecute Application.hWndAccessApp, vbNullString, str, vbNullString, vbNullString, 0
End Sub
call sendMail("hinkiiswatchingyou@online.de","ccmail1@test.de,ccmail2@test.de","bccmail1@test.de,bccmail2@test.de","Subjecttest","Bodytest")