NACHTRAG: Ergänzt um Betriebssystem-Unabhängigkeit (Windows Linux)
Sub MailVersand
Dim mTo as String
Dim mSubject as String
Dim mCC() as String
Dim mBCC() as String
Dim mAttachement() as String
Dim mBody as String
Dim oMailAgent as Object
Dim oMailClient as Object
Dim oMailMessage as Object
mTo = "[email protected]"
mSubject = " Test, Test, Test ..."
mCC = Array("[email protected]","[email protected]")
mBCC = Array("[email protected]","[email protected]")
mAttachement =
Array(ConvertToUrl("E:\TMP\WRITER.odt"),ConvertToUrl("E:\TMP\CALC.ods"))
mBody = "hallo, hallo" & Chr(10) & "Und, tschüss" & Chr(10) & "PS:"
Select Case GetGUIType()
Case 1 ' Windows
oMailAgent = createUnoService("com.sun.star.system.SimpleSystemMail")
Case 4 ' Linux
oMailAgent = CreateUnoService("com.sun.star.system.SimpleCommandMail")
Case Else ' Betriebssysten unbekannt
MsgBox("Das Betriebssystem ist weder Windows noch Linux !")
End
End Select
oMailClient = oMailAgent.querySimpleMailClient()
oMailMessage = oMailClient.createSimpleMailMessage()
oMailMessage.setRecipient(mTo)
oMailMessage.setCcRecipient(mCC)
oMailMessage.setBccRecipient(mBCC)
oMailMessage.setSubject(mSubject)
oMailMessage.setAttachement(mAttachement)
oMailmessage.Body = mBody
oMailClient.sendSimpleMailMessage(oMailMessage,0)
End Sub
--
Liste abmelden mit E-Mail an: [email protected]
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
