Hallo,
ich habe ein Problem, welches ich nicht gelöst bekomme.
Ich habe eine
Calc Datei mit Adressen in einem "Stammdaten"-Tabellenblatt, da es immer wieder nötig ist Post/E-Mails an verschiedene Personen zu schicken habe ich mir eine Spalte eingerichtet, in der ich ein "X" setze zur Auswahl dieser Person.
Mit einem Makro werden dann die Personen, die ausgewählt sind, auf drei Tabellenblätter aufgeteilt. ("EMail", "Fax", "Brief"). Je nachdem welche Möglichkeit besteht an die Person Unterlagen zu schicken.
Nun möchte ich, die E-Mail Adressen der Personen die in Tab. EMail stehen an
Thunderbird "übergeben".
Ich habe hier im Forum folgenden Code gefunden:
Code: Alles auswählen
Sub mail
dim oMailer as object
dim MailProgramm as variant
dim NeueNachricht as variant
If GetGuiType = 1 Then
oMailer = createUnoService("com.sun.star.system.SimpleSystemMail")'Windows
ElseIf GetGuiType = 4 Then
oMailer = createUnoService("com.sun.star.system.SimpleCommandMail")'Unix, Linux
Else
MsgBox "Mailen geht nicht", 16
End If
MailProgramm = oMailer.querySimpleMailClient()
NeueNachricht = MailProgramm.createSimpleMailMessage()
NeueNachricht.setRecipient("xxxxx@gmx.de")
NeueNachricht.setSubject( "test" )
Mailprogramm.sendSimpleMailMessage(Neuenachricht, 0 )
End Sub
Dieser funktioniert mit einer E-Mail Adresse auch wunderbar, aber wie bekomme ich es nun hin mehrer E-Mail Adressen nach Thunderbird zu übergeben.
In Thunderbird kann man meherere Adressen unteranderem verschicken, wenn man die Adressen durch ein "," trennt.
Ich habe folgendes versucht:
NeueNachricht.setRecipient("xxxxx@gmx.de, ooo@web.de") es taucht dann aber in Thunderbird nur die 1.Adresse in der An-Zeile auf.
weiß von euch jemand rat?
Gruß Felix