Re [de-users] Mailversand per Makro mit Simple Mail Message

Hallo Robert,

folgender MakroCode funktioniert bei mir [ LO 6.4.4.2 (x64) | Windows 10 
Home | emClient ( https://de.emclient.com/ ) ] fehlerfrei:

Sub MV

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 = "HansWernerHerold@t-online.de"
mSubject = " Test, Test, Test ..."
mCC = Array("OoOHWHOoO@t-online.de","HansWernerHerold@t-online.de")
mBcc = Array("OoOHWHOoO@t-online.de","HansWernerHerold@t-online.de")
mAttachement = 
Array(ConvertToUrl("E:\TMP\WRITER.odt"),ConvertToUrl("E:\TMP\CALC.ods"))
mBody = "hallo, hallo" & Chr(10) & "Und, tschüss" & Chr(10) & "PS:"

' oMailAgent = CreateUnoService("com.sun.star.system.SimpleCommandMail") 
' LINUX
oMailAgent = CreateUnoService("com.sun.star.system.SimpleSystemMail") ' 
WINDOWS
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

Ich vermute, dass könnte mit dem von Dir genutzten MailClient 
zusammenhängen, wenn ich Dich nicht falsch verstanden habe und bei Dir 
auch der MailClient gestartet, die zu versendende Mail mit den 
entsprechenden Einträgen versehen angezeigt und man nur noch auf "SEND" 
klicken muss ...

Vielleicht hilft Dir das weiter,
viele Grüße

Hans-Werner :-))


------ Originalnachricht ------
Von: "LuFle" <LuFle@gmx.at>
An: users@de.libreoffice.org
Gesendet: 01.07.2020 12:22:24
Betreff: Re: [de-users] Mailversand per Makro mit Simple Mail Message

> Am 01.07.20 um 11:42 schrieb Robert Großkopf:
> > Hallo *.
> >
> > für LO gibt es mehrere Möglichkeiten, über Makrocode Mails an das
> > Mailprogramm weiter zu reichen und von dort zu versenden. Ich versuche
> > gerade diese:
> > https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1system_1_1XSimpleMailMessage.html
> >
> > Da besteht nämlich die Möglichkeit, neben dem Inhalt auch noch Anhänge
> > mit zu schicken.
> >
> > Mit den Anhängen klappt es, mit dem Betreff und dem Inhalt hingegen
> > tauchen Schwierigkeiten auf, sobald ein Komma dabei ist. Da muss es
> > irgendwie eine Form der Maskierung geben, die diese SimpleMailMessage
> > nicht automatisch vornimmt. Ich habe die Suchmaschine meines Vertrauens
> > bereits bemüht, komme aber nicht weiter. Ich kann natürlich alle Kommas
> > ersetzen, nur sieht das reichlich blöde aus.
> >
> > Vielleicht hat hier ja irgendwer eine Idee dazu.
> >
> > Gruß
> >
> > Robert
>
> Hallo Robert,
>
> http://www.starbasicfaq.de/WiekannmaneinMailverschicken.html kennst Du
> klarerweise, das Problem liegt also wahrscheinlich beim Mailprogramm,
> evtl. hilft ein simples Austauschen. Versuch' mal mutt, wenn der richtig
> konfiguriert ist, funktioniert er gut.
>
> Ich versende derzeit immer mit Python (smtplib, sollte auf Deiner Suse
> vorinstalliert sein) das verwendte Skript ist hat keine 50 Zeilen, ist
> also leicht portierbar, ggf. kann man das aus Basic raus sogar per
> shell() machen.
>
> LuFle
>
>
> -- Liste abmelden mit E-Mail an: users+unsubscribe@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


--
Liste abmelden mit E-Mail an: users+unsubscribe@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