Der findes utallige forsøg på at få funktionen til at virke perfekt, men
næppe det helt rigtige.
Words hjælpetekst har den officielle, den duer slet ikke.
Her den seneste:
undocumented field called Postal Address that is the full
mailing address including the Country but only if the
Country isn't your home country! Thus my current
AddressLayout is
{<PR_DISPLAY_NAME>
}{<PR_COMPANY_NAME>
}{<PR_POSTAL_ADDRESS>}
Her en makro løsning som også bruger Words dialogboks.
Public Sub InsertAdressFromOutlook()
Dim strCode As String
Dim strAddress As String
Dim iDoubleCr, Px As Integer
Dim lngPos As Long
'Læg formatteringskode i strCode
strCode = "<PR_DISPLAY_NAME>" & vbCr
strCode = strCode & "<PR_COMPANY_NAME>" & vbCr
strCode = strCode & "<PR_Street_Address>" & vbCr
strCode = strCode & "<PR_POSTAL_CODE> - <PR_LOCALITY>" & vbCr
strCode = strCode & "<PR_COUNTRY>"
'Vælg navn fra Outlook
strAddress = Application.GetAddress("", strCode, False, 1, , , True,
True)
'Fjern blanke linier
iDoubleCr = InStr(strAddress, vbCr & vbCr)
While iDoubleCr <> 0
strAddress = Mid(strAddress, 1, iDoubleCr - 1) & Mid(strAddress,
iDoubleCr + 1)
iDoubleCr = InStr(strAddress, vbCr & vbCr)
Wend
'Indsæt adressen ved aktuelt IP
Debug.Print strAddress
Selection.TypeText strAddress
End Sub
' strCode = strCode & "<PR_POSTAL_ADDRESS>" & vbCr
Endelig har Outlooks hjælp en liste over de tilgængelige felter i
Kontaktlisten. Afhængigt af dit forhold til eksperimenter, så kan du få
Outlook til at eksportere dele fa kontaktlisten til f. eks. Excel.
--
mvh
pre
"dennis" <curedas@NOhotmail.com> wrote in message
news:3c9e2205$0$39518$edfadb0f@dspool01.news.tele.dk...
> Er det muligt at lave om på de elementer som
> bruges i "indsæt adresse" i Word.
> Som nu indsætter den: kontaktperson og Firma adresse.
>
> Jeg har brug for at få indsat:
> Firma
> Firma Adresse
> Attn: navn (kontaktpersonen).
> Telefon
> Fax
>
> Hvis dette ikke er muligt, findes der så et "add in" program
> som kan dette, måske med eget adresse kartotek.
>
>
> Win2K DK (sp2)
> Office 97 DK
> Office 2000 DK
>
> Dennis
>
>
>