Results 1 to 7 of 7
  1. #1
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Dallas plus 20 miles or so, Texas, USA
    Posts
    876
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Adding to the address book (2000)

    OK, I can do all sorts of things with Excel and VBA, but, how in the heck do I add an address to the address book?

    Trying to print envelopes, I have two addresses already there that I put there some time back, I think through Outlook. Is there not a simple way to add an address from within Word?

  2. #2
    Silver Lounger
    Join Date
    Jun 2001
    Location
    Morden, Surrey, United Kingdom
    Posts
    1,838
    Thanks
    3
    Thanked 0 Times in 0 Posts

    Re: Adding to the address book (2000)

    I'm using Word 97, but I imagine it's similar in 2000; click on Tools, Envelopes and labels, choose the address book button (picture of an open book next to 'Delivery Address'), click New and fill in as required. You will HAVE to fill in email details before you can go to the snail mail fields, but there you go.

    I'm not sure that qualifies as 'quick and easy', but that's the only way I've found in Word!
    Beryl M


  3. #3
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Adding to the address book (2000)

    Are you trying to add the address to Word or from Word? You seem to want both in your question.

    If you already have an address in your Outlook addresses then from the Word environment you can add that to the page by running a macro such as
    <pre>Sub InsertAddressFromOutlook()
    Dim strCode, strAddress As String
    Dim iDoubleCR As Integer

    'Set up the formatting codes in strCode
    strCode = "<PR_DISPLAY_NAME>" & vbCr
    strCode = strCode & "<PR_COMPANY_NAME>" & vbCr
    strCode = strCode & "<PR_STREET_ADDRESS>" & vbCr
    strCode = strCode & "<PR_LOCALITY>, <PR_STATE_OR_PROVINCE> <PR_POSTAL_CODE>" & vbCr
    strCode = strCode & "<PR_COUNTRY>" & vbCr

    'Let the user choose the name in Outlook
    strAddress = Application.GetAddress("", strCode, False, 1, , , True, True)
    'Strip away the final "Australia", if any
    If Right(strAddress, 10) = "Australia" & vbCr Then
    strAddress = Left(strAddress, Len(strAddress) - 10)
    End If

    'Eliminate blank lines by looking for two carriage returns in a row
    iDoubleCR = InStr(strAddress, vbCr & vbCr)
    While iDoubleCR <> 0
    strAddress = Left(strAddress, iDoubleCR - 1) & Mid(strAddress, iDoubleCR + 1)
    iDoubleCR = InStr(strAddress, vbCr & vbCr)
    Wend

    'Insert the modified address at the current insertion point
    Selection.TypeText strAddress
    End Sub</pre>

    Andrew Lockton, Chrysalis Design, Melbourne Australia

  4. #4
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Dallas plus 20 miles or so, Texas, USA
    Posts
    876
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Adding to the address book (2000)

    Thanks Beryl, Andrew,

    Was trying to add an address to "THE ADDRESS BOOK", so I could insert it into the delivery lines for an envelope. Got another address into "THE BOOK" using what Beryl suggested, and would guess that your solution Andrew would work as well. Seems to me that the address book question is more complicated than I thought..."Choose profile", questions about Microsoft Exchange Server, etc.

    Why there is not an "Add an address" option when you right click the darn picture of the book I cannot figure. Or when you left click it? Would seem to me that one address book would do for all...Word, Outlook, Outlook Express, etc, without all of the extra shenanigans. After getting a new address into the correct profile so I can insert it into the delivery lines, I feel like I just stepped out of the sauna at the help club...

  5. #5
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Adding to the address book (2000)

    You need to choose a profile ONLY if Outlook is not running in the background. I'm sure Microsoft get their product demonstrators to load Outlook by stealth before demonstrating that feature to prospective customers.

    The same thing happens if you are in Windows explorer and you right click a file and choose Send to... Mail recipient
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  6. #6
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    Re: Adding to the address book (2000)

    You only need to choose a profile if you have outlook configured to support multiple profiles. If you only have a single mail profile then it will be used automatically.

    This may be annoying but it is hardly unreasonable behaviour, if you have told Outlook that there are multiple users with different configurations then it can't be expected to know which one you want to use when you update an address book.

    StuartR

  7. #7
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Dallas plus 20 miles or so, Texas, USA
    Posts
    876
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Adding to the address book (2000)

    Gotcha, that makes sense!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •