Thunderbird Email mit mehreren Anhängen versenden

[SvenJ]

Hallo,

1.)
ich möchte gerne mit LibreOffice Basic eine Email mit mehreren Dateien als Anhang versenden.
Als Email Programm nutze ich Thunderbird. Bisher habe ich lediglich eine Lösung gefunden eine Datei als Anhang zu senden.
Folgenen Aufruf nutze ich derzeit:

Sub EMAILversenden
' --------- Mail mit Thunderbird senden ------------------

if zeigerEMAIL = "Email" then
strThunderPfad = """C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"""
strAn = eMail
strBetr = Betreff
strBody = "Sehr geehrte Damen und Herren&#130;<br>" & _
"<br>Text der Email....." & _
"<br>mit freundlichen Grüßen..."

if Zeiger3Portabel.state =1 then
strThunderPfad = """C:\Portable Programme\ThunderbirdPortable\ThunderbirdPortable.exe"""
End If


strShell = strThunderPfad & _
"-compose " & _
"to='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
",body=" & strBody & _
",attachment=" & (file:///C:/Temp/Anhang.pdf)

Call Shell(strShell, vbNormalFocu)
End If


2.)
wenn ich den oben gezeigten code nutze wird die Email erzeugt und geöffnet.
Manuell kann ich dann den "Senden" Button von Thunderbird drücken und die Email wird verschickt.
Gibt es auch eine Möglichkeit die Email direkt zu versenden ohne weitere Eingabe des Users?

Gruß
Sven

[mikele]

Hallo,
in diesem Beitrag
https://forum.openoffice.org/en/forum/v ... ommandMail
wird von splashboard ein Code zur Verfügung gestellt, mit dem du E-Mails aus LO heraus direkt versenden kannst (ohne "Umweg" über einen E-Mail-Client). Mit Anhang (bzw. mehreren) habe ich es allerdings nicht probiert. Ansonsten funktioniert es hervorragend um automatisch Mails zu versenden. Ich bin immer noch am Rätseln, wie man diese Funktionalität herausknobeln kann. Ich habe mir die API stundenlang angesehen und bin nicht so recht schlau daraus geworden. Insbesondere, die Geschichte mit dem Listener bodyObject finde ich ungeheuer spannend.