GetAddress arguments do not return values

[Bo Hansson]

Today I've learnt about GetAddress, thanks to kind people in this discussion
group!
However, when trying to apply my new knowledge, I cannot return any data
with the
following arguments:

<PR_STREET_ADDRESS>
<PR_POSTAL_CODE>
<PR_LOCALITY>

Why not?

/BosseH

 

[Graham Mayor]

They work fine here eg

Public Sub InsertNameFromOutlook()
Dim strCode As String
Dim strAddress As String

'*********************
'Set up the formatting codes in strCode
strCode = "<PR_POSTAL_CODE>"
'*********************

'Let the user choose the name in Outlook
strAddress = Application.GetAddress("", strCode, _
False, 1, , , True, True)
'Insert the name at the current insertion point
If ActiveDocument.ProtectionType <> wdNoProtection Then
bProtected = True
ActiveDocument.Unprotect
ActiveDocument.FormFields("NameOfFormfield").Result = _
strAddress
Else
Selection.TypeText strAddress
End If
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>