Zur Thunderbird-Problematik habe ich leider keine weiteren Ideen, aber:
Es berührt diesen Thread zwar nur am Rande, aber ich denke, eine kleine
"sub" (s.u. - betriebssystem-unabhängig) zum Mail-Versand ist für andere
LO-Nutzer vielleicht auch ganz interessant und/oder nützlich. Ich habe
heute auch erst durch Roberts Thread mitbekommen, dass man so etwas
machen kann ...
Viele Grüße und einen schönen Abend noch
Hans-Werner :-))
Sub MailVersand
Dim A as String ' An
Dim aC() as String ' arr Cc
Dim aB() as String ' arr Bcc
Dim B as String ' Betreff
Dim aA() as String ' arr Anhang
Dim T as String ' Text
Dim oMA as Object ' obj Mail Agent
Dim oMC as Object ' obj Mail Client
Dim oMM as Object ' obj Mail Message
Const SSM = "com.sun.star.system.SimpleSystemMail"
Const SCM = "com.sun.star.system.SimpleCommandMail"
' An:
A = "ooohwh...@t-online.de"
' Kopie:
aC = Array("hanswernerher...@t-online.de")
' Blindkopie:
aB = Array()
' Betreff:
B = "CORONA NEWS " & CDate(date)
' Anhang:
aA = Array(ConvertToUrl("E:\TMP\CALC.ods") ,_
ConvertToUrl("E:\TMP\WRITER.odt"))
' Mailtext:
T = "Community-basiertes Projekt:" & Chr(10) &_
" " & Chr(10) &_
"https://coronatracker.org/"; & Chr(10) &_
" " & Chr(10) &_
"Grüße" & Chr(10) &_
"Hans-Werner ;-))"
If ((GetGUIType() = 1) Or (GetGUIType() = 4)) Then
oMA = CreateUnoService(IIf(GetGUIType() = 1,SSM,SCM))
Else
MsgBox("Betriebssystem weder Windows noch Linux !") : End
EndIf
oMC = oMA.querySimpleMailClient()
oMM = oMC.createSimpleMailMessage()
If (A <> "") Then : oMM.setRecipient(A) : EndIf
If (UBound(aC) <> -1) Then : oMM.setCcRecipient(aC) : EndIf
If (UBound(aB) <> -1) Then : oMM.setBccRecipient(aB) : EndIf
If (B <> "") Then : oMM.setSubject(B) : EndIF
If (UBound(aA) <> -1) Then : oMM.setAttachement(aA) : EndIf
If (T <> "") Then : oMM.Body = T : EndIf
oMC.sendSimpleMailMessage(oMM,0)
End Sub
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
