Ik ben er nog steeds niet uit
In Acrobat Pro heb ik een invulformulier gemaakt(als voorbeeld Giften.pdf)
Ieder van de personen uit mijn database wil ik zo'n invulformulier mailen en vragen dat gevuld terug te sturen
In het formulier wil ik de naam en de gift van vorig jaar zelf al ingevuld hebben voor ik het formulier verzend.
Mijn idee is dit:
Loop door het personenbestand
Lees het formulier in via VBA
Vul de naam van de persoon en de gift van vorig jaar in
Sla het formulier onder een naam met een nummercode van de persoon op
Stuur een mail met uitleg en als bijlage het invulformulier naar de persoon
In Access zal ik dus een verwijzing moeten maken naar Acrobat Access 3.0 type llibrary
en ik zal een stukje code moeten schrijven
Ik denk aan iets als
Sub vullen()
Dim AcroApp As Acrobat.CAcroApp
Dim GiftPDF As Acrobat.CAcroPDDoc
Dim rst As Recordset
Set AcroApp = CreateObject("AcroExch.App")
Set rst = CurrentDb().OpenRecordset("DeGevers")
Set GiftPDF = CreateObject("AcroExch.PDDoc")
Do While Not rst.EOF
GiftPDF.Open ("C:\mijndirectory\Gift.pdf")
'hier moet dan zoiets komen als
'GiftPDF zijn variabele die betrekking heeft op de naam wordt nu gevuld met rst!naam
'GiftPDF zijn variabele die betrekking heeft op vorige gift wordt nu gevuld met rst!vorigegift
If GiftPDF.Save(PDSaveFull, "C:\mijndirectory\Gift-" & rst!persoon_id & ".pdf") = False Then
MsgBox "opslaan van pdf voor " & rst!naam & " is mislukt"
End If
GiftPDF.Close
rst.MoveNext
Loop
AcroApp.Exit
Set AcroApp = Nothing
Set GiftPDF = Nothing
MsgBox "Klaar"
End Sub
Ik heb echter geen idee hoe ik die variabelen kan vullen met mijn gegevens
Kan iemand mij op weg helpen
In Acrobat Pro heb ik een invulformulier gemaakt(als voorbeeld Giften.pdf)
Ieder van de personen uit mijn database wil ik zo'n invulformulier mailen en vragen dat gevuld terug te sturen
In het formulier wil ik de naam en de gift van vorig jaar zelf al ingevuld hebben voor ik het formulier verzend.
Mijn idee is dit:
Loop door het personenbestand
Lees het formulier in via VBA
Vul de naam van de persoon en de gift van vorig jaar in
Sla het formulier onder een naam met een nummercode van de persoon op
Stuur een mail met uitleg en als bijlage het invulformulier naar de persoon
In Access zal ik dus een verwijzing moeten maken naar Acrobat Access 3.0 type llibrary
en ik zal een stukje code moeten schrijven
Ik denk aan iets als
Sub vullen()
Dim AcroApp As Acrobat.CAcroApp
Dim GiftPDF As Acrobat.CAcroPDDoc
Dim rst As Recordset
Set AcroApp = CreateObject("AcroExch.App")
Set rst = CurrentDb().OpenRecordset("DeGevers")
Set GiftPDF = CreateObject("AcroExch.PDDoc")
Do While Not rst.EOF
GiftPDF.Open ("C:\mijndirectory\Gift.pdf")
'hier moet dan zoiets komen als
'GiftPDF zijn variabele die betrekking heeft op de naam wordt nu gevuld met rst!naam
'GiftPDF zijn variabele die betrekking heeft op vorige gift wordt nu gevuld met rst!vorigegift
If GiftPDF.Save(PDSaveFull, "C:\mijndirectory\Gift-" & rst!persoon_id & ".pdf") = False Then
MsgBox "opslaan van pdf voor " & rst!naam & " is mislukt"
End If
GiftPDF.Close
rst.MoveNext
Loop
AcroApp.Exit
Set AcroApp = Nothing
Set GiftPDF = Nothing
MsgBox "Klaar"
End Sub
Ik heb echter geen idee hoe ik die variabelen kan vullen met mijn gegevens
Kan iemand mij op weg helpen
Bijlagen
Laatst bewerkt: