|
Hallo,
Wenn in den Daten des Serienbriefes auch ein Feld mit eMail-Adresse existiert, dann muss dieses Feld innerhalb der For-Next-Schleife in eine Variable gespeichert werden und anschließend SavePDFAndMail mit übergeben werden.
In der Sub muss dann nur die feste eMail-Adresse "mail@provider.de" gegen die Variable ausgetauscht werden.
Um die Felder innerhalb des Textes aktualisieren zu können, kann folgender VBA-Code eingesetzt werden:
Sub FieldsUpdates()
Dim objSec As Section
Dim objHeadFoot As HeaderFooter
With ActiveDocument
For Each objSec In .Sections
objSec.Range.Fields.Update
For Each objHeadFoot In objSec.Headers
objHeadFoot.Range.Fields.Update
Next
For Each objHeadFoot In objSec.Footers
objHeadFoot.Range.Fields.Update
Next
Next
End With
End Sub
Dieser VBA-Code geht alle Abschnitte eines Dokuments durch und aktualisiert in diesen alle Felder.
Zusätzlich werden alle Kopf und Fußzeilen durchgelaufen.
Falls zusätzlich nnoch weitere Elemente, wie z.B. "Textfelder" im Dokument vorhanden sein sollten, müssen diese möglichweise auch einzeln durchgelaufen werden.
LG, BigBen
|