Export script samples

Use the samples to assemble a VBA script for exporting fields.

To export the Initials, Prefix and Name fields to a single field:

Function Export()

Dim strResult

With ExportFunctions
' Voer hieronder het script in

'Voorletters

if.GetValue("Ctc", "In") <> "" then
strResult = strResult &.GetValue("Ctc", "In")
end if

'Voorvoegsel

if.GetValue("Ctc", "Is") <> "" then
strResult = strResult & " " &.GetValue("Ctc", "Is")
end if

'Naam

if.GetValue("Ctc", "Nm") <> "" then
strResult = strResult & " " &.GetValue("Ctc", "Nm")
end if

' Voer hierboven het script in
End With

Export = strResult

End Function

To export the Street, House Number and House Number Extension fields to a single field:

Function Export()

Dim strResult

With ExportFunctions
' Voer hieronder het script in

'Straat

if.GetValue("Add", "Ad") <> "" then
strResult =.GetValue("Add", "Ad")
end if

if.GetValue("Add", "HmNr")<> "" then
'Huisnummer

strResult = strResult & ", " &.GetValue("Add", "HmNr")
end if

'Huisnummer toevoeging

if.GetValue("Add", "HmAd") <> "" then
strResult = strResult & " " &.GetValue("Add", "HmAd")
end if

' Voer hierboven het script in
End With

Export = strResult

End Function

Export the Gender field (0 for male (M in Profit) and 1 for female (F in Profit)):

Function Export()

Dim strResult

With ExportFunctions
' Voer hieronder het script in

'Contact type

if.GetValue("Ctc", "ViCt") = "M" then
strResult = "0"
else
strResult = "1"
end if

' Voer hierboven het script in
End With

Export = strResult

End Function