Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how to add email address to outlook
can anybody please tell me how thank you
|
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
how to add email address to outlook
From Word?
Sub AddOutlookCont() Dim ol As New Outlook.Application Dim ci As ContactItem Dim strAddress As String Dim strFullName As String strAddress = Selection.Range iResult = MsgBox("Is the email address correct?" & _ vbCr & vbCr & strAddress, vbYesNo, "Address") If iResult = 7 Then GoTo UserCancelled: name: strFullName = InputBox("Enter contact's name" _ & vbCr & "in the format 'Mr. John Smith", "Contact name") On Error GoTo UserCancelled: Set ci = ol.CreateItem(olContactItem) If strFullName "" Then ci.FullName = strFullName Else MsgBox "Name cannot be left blank" GoTo name: End If ci.FileAs = strFullName ci.Email1Address = strAddress ci.Save ' ol.Quit Set ol = Nothing Exit Sub UserCancelled: MsgBox "User Cancelled or address not selected" Set ol = Nothing End Sub http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org moosecoyotebear wrote: can anybody please tell me how thank you |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I delete email address history in Outlook? | Microsoft Word Help | |||
how do i export an email address list in Word to Outlook express? | Microsoft Word Help | |||
Remove an email address from suggested email recipients in Outlook | Microsoft Word Help | |||
How do I change the email address I use to send mail in outlook? | Microsoft Word Help | |||
How do I link Outlook 2003 as my email address book in Word | Microsoft Word Help |