OpenOffice.info

vielen Dank an ALLE

mein Arbeitsleben ist wieder ein Stück leichter und einfacher geworden :-) :lol:

[quote=Marko888 post_id=301089 time=1702018407 user_id=66979]
[b]wie kann ich das hier jetzt als "gelöst" markieren?[/b]
[/quote]

[url=https://i.postimg.cc/nLrLJQFN/Beitrag-gel-st.png]So gehtʼs[/url]

[size=150]Zum Schluß nochmal ne Frage:

[b]wie kann ich das hier jetzt als "gelöst" markieren?[/b][/size]

[size=200]Danke an alle für die Mühe und viel Erfolg an den Rest mit der Lösung[/size]

Danke, das funktioniert

Sub EmailErstellen

'https://kb.mozillazine.org/Command_line_arguments_-_Thunderbird

sAbsender = "Hallo.World@gmail.de"
sEmpfanger = "HierIstDieWelt@gmail.com"

sDateiname = "Datei.pdf"
sSpeicherort = "file:///home/Max/MeineDateien/"
sBetreff = "Rechnung"

sMessage = "from='" & sAbsender & "'"
sMessage = sMessage & ",to='" & sEmpfanger & "'"
'sMessage = sMessage & ",cc='britney@example.com'"
sMessage = sMessage & ",subject='" & sBetreff & "'"
'sMessage = sMessage & ",body='How about dinner tonight?'"
sMessage = sMessage & ",attachment='" & sSpeicherort & sDateiname & "'"

Shell("thunderbird -compose " & sMessage)

End Sub

Da ich schon seit langer Zeit ein macro nutze, das via Shell() Thunderbird aufruft, habe ich keine Erfahrung mit dem System innerhalb Open-/LibreOffice.

Via Kommandozeile sollte es via from: möglich sein - muss ich mal ausprobieren. Die frühere Möglichkeit via preselectId wird als obsolet bezeichnet.

https://kb.mozillazine.org/Command_line_arguments_-_Thunderbird

Guten Abend,

habs ausprobiert, ohne Erfolg
(origianator = Urheber)

Alle anderen Einträge unter
oMailMessage

geben auch keinen Hinweis auf eine Einstellmöglichkeit

oMailMessage.setOriginator("Hugo1@Hugo.de")'Sender?

Moin,
ich habe nochmal geforscht, vielleicht brauchst du nur eine zusätzliche Zeile?
[code]oMailMessage.setOriginator("Hugo1@Hugo.de")'Sender?[/code]
Probier es mal aus.

Gruß R

xray ist nicht installiert. Habe die Zeile gelöscht.

in Writer werden die Änderungen in den Einstellungen übernommen (Extras/Einstellungen/OpenOffice Writer/Serienbrief-E-Mail).

Die Email wird aber trotzdem von dem ersten EmailAccount in Thunderbird erstellt.
In Calc kommt die Fehlermeldung bei Zeile:

getMailServer = aConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", args())

Basic Laufzeitfehler
Variabel nicht definiert

Der Fehler ist weg wenn ich
Dim getMailServer

vorher eingebe

Änderungen bei der Email erstellen sind da aber auch nicht

[quote=Marko888 post_id=301065 time=1701533008 user_id=66979]
...
[code]xray getMailServer[/code]

in dieser Zeile kommt die Fehlermeldung:
[b]Basic-Laufzeitfehler
Prozedur Sub oder Function nicht definiert.[/b]
[/quote]

Hast Du xray installiert?

Wenn nicht: Schreib erstmal REM davor oder lösch die Zeile. Xray schickt nicht Deine Mail raus, sondern soll Dir beim analysieren helfen...

sieht schon mal super aus, Danke schon mal!!!

[size=150]Anmerkung, weil ich es vergessen habe zu erwähnen: ich brauche das für Libre Office [size=200]Calc[/size][/size]
Betriebssystem Linux MX, Emailprogramm: Mozilla Thunderbird

In Calc ist diese Einstellung nicht zu finden.

Habe das im Writer ausprobiert:

xray getMailServer

in dieser Zeile kommt die Fehlermeldung:
[b]Basic-Laufzeitfehler
Prozedur Sub oder Function nicht definiert.[/b]

sub Update_MailServer
Dim aConfigProvider, oNode, args(0) As new com.sun.star.beans.PropertyValue
   aConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
   args(0).Name = "nodepath"
   args(0).Value =  "org.openoffice.Office.Writer/MailMergeWizard"
   getMailServer = aConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", args())
   xray getMailServer
   getMailServer.setPropertyValue("MailAddress","Hugo@WilliMist.de")
   getMailServer.setPropertyValue("MailDisplayName","Hugo")
   getMailServer.setPropertyValue("MailPassword","999999")
   getMailServer.setPropertyValue("MailPort",777)
   getMailServer.setPropertyValue("MailServer","smtp.YYYY.de")
   getMailServer.setPropertyValue("MailUserName","Hugo@HugoSchrott.de")
   getMailServer.commitChanges()
   xray getMailServer
End sub

Moin,
ich habe es nicht ausprobiert, aber mit folgendem Code kann man die Einstellungen des Mailmergewizzards verändern.
Sprich das, was unter
Menü [b]Extras/Einstellungen/OpenOffice Writer/Serienbrief-E-Mail [/b]eingetragen ist.
Wenn du also den Mailserver vor dem Senden per Code änderst, müsste dein Anliegen umsetzbar sein.
[code]sub Update_MailServer
Dim aConfigProvider, oNode, args(0) As new com.sun.star.beans.PropertyValue
aConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
args(0).Name = "nodepath"
args(0).Value = "org.openoffice.Office.Writer/MailMergeWizard"
getMailServer = aConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", args())
xray getMailServer
getMailServer.setPropertyValue("MailAddress","Hugo@WilliMist.de")
getMailServer.setPropertyValue("MailDisplayName","Hugo")
getMailServer.setPropertyValue("MailPassword","999999")
getMailServer.setPropertyValue("MailPort",777)
getMailServer.setPropertyValue("MailServer","smtp.YYYY.de")
getMailServer.setPropertyValue("MailUserName","Hugo@HugoSchrott.de")
getMailServer.commitChanges()
xray getMailServer
End sub[/code]
Mit der X-Ray Zeile kannst du alle Eigeschaften auslesen und ggf. noch verändern.

[attachment=0]MMS.png[/attachment]

Viel Erfolg und Bitte um Rückmeldung.

Gruß R

Hallo an alle,

das Erstellen von Emails per Makro funktioniert super.

oMailAgent = CreateUnoService("com.sun.star.system.SimpleCommandMail")
oMailClient = oMailAgent.querySimpleMailClient()
oMailMessage = oMailClient.createSimpleMailMessage()

oMailMessage.setRecipient(sEmail) 'Empfänger
oMailMessage.setSubject(sBetreff) 'Betreff
oMailMessage.setAttachement(array(converttourl(sSpeicherort & sDateiname))) 'Anhang / Speicherort
oMailMessage.Body = sMessage 'Text
oMailClient.sendSimpleMailMessage(oMailMessage, 0)

Meine Frage:

kann man die Versenderadresse bearbeiten?
Ich möchte verschiedene Emails an verschieden Abteilungen schicken von jeweils anderen Accounts. Momentan mache ich das so, das ich bei den erstellten Emails die Versenderadresse von Hand anpasse.