Een relatie tussen 2 variabelen instellen

[peilert]

Ik heb een VBA script gemaakt waarmee ik per <Nr. Org. eenheid> een PDF bestand opsla en vervolgens wil gaan mailen naar <Email>. Wanneer ik het script draai slaat VBA netjes de PDF bestanden op en maakt (in dit geval 3) ook de mailtjes aan, echter wordt er niet het juiste <Email> getoond bij <Nr. Org. eenheid>. Hoe kan ik een relatie leggen tussen <Nr. Org. eenheid> en <Email>? In mijn database heb ik bij elke <Nr. Org. eenheid> een <Email> ingevuld. Onderstaand mijn script:

Sub FilterAndExport()
Dim myDoc As Document
Set doc = Application.ActiveDocument
'doc.Refresh
Dim myrpt As Report
Dim myFilterVar As DocumentVariable
Dim myFilterChoices As Variant
Dim i, intNumChoices As Integer
Dim strNextValue As String
Dim OutApp As Object
Dim OutMail As Object
Set myDoc = ActiveDocument
Set myrpt = ActiveReport
Set myFilterVar = myDoc.DocumentVariables("Nr. Org. eenheid")
intNumChoices = UBound(myFilterVar.Values(boUniqueValues))
myFilterChoices = myFilterVar.Values(boUniqueValues)
For i = 1 To intNumChoices
    strNextValue = myFilterChoices(i)
    myrpt.AddComplexFilter myFilterVar, "=<Nr. Org. eenheid>=" & strNextValue
    myrpt.ForceCompute
    On Error Resume Next
    Dim mymail As DocumentVariable
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
    Set mymail = myDoc.DocumentVariables("Email")
    intNumChoices1 = UBound(mymail.Values(boUniqueValues))
    myFilterChoices1 = mymail.Values(boUniqueValues)
    strNextValue1 = myFilterChoices1(i)
    myrpt.ExportAsPDF ("N:\" & "Formatie afd " & strNextValue & " " & CStr(Day(Date)) & "-" & CStr(Month(Date)) & "-" & CStr(Year(Date)) & ".pdf")
    .To = strNextValue1
    .Subject = "Formatieoverzicht " & strNextValue & " " & CStr(Day(Date)) & "-" & CStr(Month(Date)) & "-" & CStr(Year(Date))
    .Body = vbCr & _
    "Hallo, " & vbCr & vbCr & _
    "Hierbij het formatieoverzicht van afdeling " & strNextValue & vbCr & vbCr & vbCr & _
    "Met vriendelijke groet," & vbCr & vbCr & vbCr & _
    "Peter"
    .Attachments.Add ("N:\" & "Formatie afd " & strNextValue & " " & CStr(Day(Date)) & "-" & CStr(Month(Date)) & "-" & CStr(Year(Date)) & ".pdf")
    .Display
    '.Send
    End With
    On Error GoTo 0
    Set NewMail = Nothing
    Set OutApp = Nothing
Next i
End Sub

Wie o wie kan mij helpen? Alvast bedankt!

 

[OctaFish]

Kun je een voorbeeldbestandje maken en posten? Op basis van de code kan ik e.e.a. niet goed genoeg nabootsen. Dat is natuurlijk: als het probleem nog bestaat...