Passwort geschützer PDF-Export über Makro

[Caro]

Hallo an alle,
ich versuche gerade ein Makro zu schreiben, das eben voll-automatisch Serienbriefe erstellt und diese einzeln als PDF mit einem Passwort geschützt als Mail versendet. Hierbei soll sowohl das Passwort als auch die eMail-Adresse aus der Datenbank für den Serienbrief entnommen werden.
Je weniger man eingreifen muss ums so besser.
Das Erstellen der Serienbriefe habe ich bereits, beim Rest weiß ich nicht so recht, wie ich anfangen soll. Wäre super, wenn mir jemand helfen könnte.

Vielen Dank
Caro

[F3K Total]

Hallo,
ich vermute, Du benutzt einen ählichen Befehl

Code: Alles auswählen

args1(0).Name = "URL"
args1(0).Value = url_pdf_out
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"

dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document_loadet, ".uno:ExportDirectToPDF", "", 0, args1())

zum Exportieren.
Schau Dich mal hier um:
http://wiki.services.openoffice.org/wik ... ilter_data Da ist bestimmt das Property dabei, was du zum Setzen des Passwortes in den args() aufnehmen mußt.

Gruß R

[hol.sten]

Dieser Beitrag zeigt das Erzeugen eines PDF mit vielen Export-Parametern in Java: http://user.services.openoffice.org/en/ ... =44&t=1804

Und dieser Beitrag zeigt ein einfaches PDF-Export-Beispiel in OOo Basic: http://www.oooforum.org/forum/viewtopic ... 835#271835
Darin wird storeToURL() zum Exportieren eines PDFs benutzt anstatt dem dispatcher Aufruf.

[F3K Total]

... ob store oder Dispatcher... ich vermute die Properties sind die gleichen.

Gruß R

Habe hier einen Code, der funktioniert:

Code: Alles auswählen

Sub export_pdf_with_password

odoc=ThisComponent.CurrentController.Frame

dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "EncryptFile"
args1(0).Value= true
args1(1).Name = "DocumentOpenPassword"
args1(1).Value= "Password"

dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value = url_pdf_out
args2(1).Name = "FilterName"
args2(1).Value = "writer_pdf_Export"
args2(2).Name = "FilterData"
args2(2).Value = args1

dispatcher.executeDispatch(odoc, ".uno:ExportDirectToPDF", "", 0, args2())
end sub

Man muß nur in der Zeile:

Code: Alles auswählen

args1(1).Value= "Password"

das Passwort eintragen. Dies geht natürlich auch mit einer Variablen.

Viel Erfolg
Gruß R

[F3K Total]

Tja, Caro,
Du hast Dich hier innerhalb von 8 Wochen nicht wieder gemeldet.
Netterweise hast Du Deine Frage erneut, vor 4 Wochen, im LibreOfficeForum gestellt:
http://www.libreoffice-forum.de/viewtop ... 1066#p1066
Da habe ich mich um eine Lösung bemüht, und Du gibst nicht einmal Feedback.
Irgendwie drängt sich der Eindruck auf, dass Du nur einen Dummen suchst, der Dir Deine Arbeit umsonst erledigt!
Solche Leute braucht man im Forum wirklich nicht, hier geht es um Erfahrungsaustausch und gegenseitige Hilfestellung.

Bleib wo Du bist