Hallo Johnny_what,

herzlich willkommen im Forum.

Zu Deinen Fragen :

1. Sequentieller Ausdruck

Da Du mit Word druckst, ist das ganz einfach zu bewerkstelligen.

Einrichtung eines Makros

 
Public Sub Ausdruck_Starten()
 
Dim oldPrinter as String
 
oldPrinter = ActivePrinter
 
    ActivePrinter = "FreePDF_Multidoc"
    Application.PrintOut Pages:="1-3"
    Application.PrintOut Pages:="4-7"
    [...]
 
ActivePrinter = oldPrinter
 
End Sub
 

 

Damit erhältst Du schon einmal alle Ausdrucke einzeln.

Zu der Einrichtung eines Multidoc-Druckers siehe hier.

2. Druckjob einrichten

Richte Dir in meinem Programm FreePDF_Multidoc.exe einen neuen Druckjob ein. In diesem Druckjob musst Du u. a.

a) den Schalter /e setzen (alles einzeln konvertieren)
b) und mit den Mail-Assistenten jetzt eine Mail-Batchsequenz erstellen.

Vorab musst Du dir aber eine Mail-Vorlage erstellen.
Dabei kannst Du wählen zwischen einer Text-Datei oder einer Outlook-Vorlage (für weitere Infos siehe Webseite).

Bei den Mails kannst Du jetzt entscheiden, ob du

0=Mapi (universeller Mail-Versand)
1=Outlook
2=SMTP
verwenden möchtest.

Du kannst alle Mail-Empfänger im Feld An, CC und BCC mit einem '+'-Zeichen verknüpfen und einfügen.

Zu der Problematik der Bedeutung der einzelnen Felder:

Zitat

---

Die Adressfelder Von und CC werden automatisch angezeigt.

Von: Das sind die eigentlichen Empfänger. Es dürfen auch mehrere sein.

CC bedeutet Carbon Copy, also Kopie. Empfänger, die in diesem Feld angeführt sind, sollen nur informiert werden, sie sind nicht die eigentlichen Adressaten. Jeder Empfänger sieht alle anderen, soweit sie in den Feldern Von bzw. CC stehen.

BCC bedeutet Blind Carbon Copy. Diese Empfängeradressen scheinen in der Mail nicht auf, sie sind also geheim. Verwenden Sie BCC immer dann, wenn Sie längere Empfängerlisten haben. Ihre Adressaten werden Ihnen dankbar sein, wenn sie sich nicht durch duzende Namen klicken müssen, ehe sie zur eigentlichen Nachricht vordringen.

---

Als letzte Mail-Möglichkeit gibt es noch 3 = SMTP-Versand.

Hier musst du zwar noch einmal alle Zugangsdaten zu Deinem Mail-Provider einrichten, dafür kannst du aber im SMTP-Mailversand einen echten Mail-Verteiler nutzen.

Dabei wird vor dem Versenden Deine hinterlegte Mail-Vorlage geöffnet und du kannst über einen Options-Haken entscheiden, ob jeder Empfänger im Feld 'Von' einzeln gesendet werden soll (Newsletter-Funktion). Das funktioniert bei den Mail-Arten 0 bzw. 1 nicht (Grund siehe unten).

3. Ausführen der Konvertierung und Mail-Versand

Nachdem Du nun den Druckjob eingerichtet hast und alle Ausdrucke ausgeführt wurden, musst Du die Konvertierung anstoßen.

Richte Dir in Word einfach ein weiteres Makro mit folgendem Inhalt ein:

 
Public Sub Start_Mailversand()
     Shell "C:MeinProgrammpfadFreePDF_Multidoc.exe /j MeinDrucknjobname"
End Sub
 
 

Nachdem auch alle Ausdrucke wirklich ausgeführt wurden (bitte manuell selbst darauf achten), rufst Du jetzt einfach dieses Makro auf.

Das sollte es gewesen sein. Bitte vorher noch mit der eigenen Mail-Anschrift noch durch testen.

Auf meiner Webseite unter 8. Beispiele habe ich diverse verschieden Szenarien dargestellt. Einfach einmal neben der Online-Hilfe anschauen. Dann sollte vieles noch klarer sein.

Zum Schluss noch eine Empfehlung (optional):

Bei der Verwendung meiner Printjob.dll kannst Du den Druckspeicher viel komfortabler überwachen. Damit kannst du gleich alles auf einmal ausführen, da der Konvertierungsaufruf erst nach dem vollständigen Ausdruck aufgerufen werden würde.

Wie Du die DLL einbindest habe ich ausführlich auf meiner Webseite unter
4. Tools beschrieben.

Sollten noch Fragen oder Unklarheiten sein, melde Dich einfach noch einmal.

Gruß Ahmed

______________________________

Warum es keine Newsletter-Funktion in Mapi u. Outlook gibt:

Der Grund ist einfach und banal. Bei jeder versendeten Mail muss immer erst der Versand einzeln erlaubt werden (Zugriff erlauben für x Minuten). Das kann zwar zum Teil umgangen werden (Fremdtools wie z. B. Clickyes) oder sogar ab Outlook 2007 ganz ausgeschaltet werden (s. mein Forum), doch ist das alles nur optional und nicht immer gewünscht. Daher habe ich genau für diesen speziellen Fall eben den SMTP-Mailversand eingeführt.

Hallo Johnny,

also ich habe es eben noch einmal bei mir mit Word 2010 getestet und erwartungsgemäß befinden sich bei mir 3 Ausdrucke (3 PS-Dateien) im FreePDF-Ausgabepfad.

Der Pfad lautet bei mir: C:UsersAhmedAppDataLocalFreePDF_XP

Der Schalter /e bewirkt jetzt, dass eben diese 3 PS-Dateien einzeln konvertiert werden.

Prüfe einfach einmal den Pfad. Mit Citrix kenne ich mich überhaupt nicht aus. Aber bei entsprechender Einrichtung sollte das alles auch dort funktionieren. Zumindest habe ich nicht gegenteiliges gehört.

Gruß Ahmed

Hallo Johnny,

also stelle doch einmal Dein Word-Makro hier ein. Dann kann ich genau sehen wovon wir hier sprechen.

Zum separaten Versand nur zum Verständnis:

Also du hast ein Word-Dokument mit 6 Seiten.
Dieses Dokument soll in

a) Seiten 1 - 3 ausgedruckt werden und an Empfänger 1 gehen.
b) Seiten 4 - 6 ausgedruckt werden und an Empfänger 2 gehen.

Da stellt sich mir die Frage, warum trennst Du die Word-Dokumente nicht?
Wie soll ein Programm jetzt genau feststellen, welchen Inhalt die PS-Dateien definitiv haben.

Aber als Lösung könnte ich anbieten:

1. Den Mailversand nach dem Ausdruck über ein VBScript selbst zu starten. In meinem Forum habe ich die Verwendung von SMTP über VBSript dargestellt. In dem Script kannst du dann alles nach deinen Wünschen einstellen. Ist auch nicht kompliziert.

2. Einfach nach jedem Ausdruck den Batchjob-Aufruf starten und deinen Code solange per Msgbox anzuhalten, bis der Versand erfolgte. Bei 2 Ausdrucken ist das ja nun auch kein Problem.

Aber dein Wunsch betrachte ich als zu selten, als dass ich den SMTP-Versand je Empfänger je PDF-Datei einzeln vornehme. Standard ist doch vielmehr jeder Empfänger erhält alle Ausdrucke.

Aber mit dem Script sollte es funktionieren.
Hier der Link zum Beitrag: Mails versenden ohne Outlook (SMTP)

Wäre nett wenn du Bescheid sagst, ob es auch geklappt hat.

Gruß Ahmed

Hallo Johnny,

im Makro war tatsächlich ein Fehler enthalten.
Ich hatte versehentlich einen wichtigen Parameter mit gelöscht!

Hier nun der funktionierende Code.

oldPrinter = ActivePrinter
 
    ActivePrinter = "FreePDF_Multidoc"
    Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="1-3"
    Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="4-7"
    Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="8-10"
 
ActivePrinter = oldPrinter
 

 

Sorry dafür.

Gruß Ahmed

Das wäre super, wenn Du Dein Ergebnis hier veröffentlichen tätest.

Solltest Du noch weitere Hilfe benötigen, dann melde Dich hier einfach.

Gruß Ahmed