Adding to the address book (2000)

Topic

New Reply

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?

Reply | Quote

Replies

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!

Reply | Quote

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

Sub InsertAddressFromOutlook()
Dim strCode, strAddress As String
Dim iDoubleCR As Integer

'Set up the formatting codes in strCode
strCode = "" & vbCr
strCode = strCode & "" & vbCr
strCode = strCode & "" & vbCr
strCode = strCode & ",  " & vbCr
strCode = strCode & "" & 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

Reply | Quote

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…

Reply | Quote

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

Reply | Quote

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

Reply | Quote

Gotcha, that makes sense!

Reply | Quote