May 28th 09, 10:05 PM
posted to microsoft.public.outlook.program_vba
|
|
|
recipient email address is invalid, but resolved property is true
An SMTP address in the format is always a valid email
address to Outlook and will always resolve regardless of whether it exists
in any of the user's address lists.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54
"Mark VII" wrote in message
...
Greetings --
I'm working on some email automation via VBA. (For a variety of reasons,
I
can't use the system address book, and keep the email addresses in an
Access
table. Long story.) I want to be able to protect against a fat-fingered
address in the table.
What I have so far creates the MailItem, adds a recipient, then uses the
Resolve method to make sure the email address exists in our system. (We
have
Exchange servers.)
What is happening is the resolved property is returning True, even if the
address is invalid.
Here's a code extract:
Dim appOutlook As Outlook.Application
Dim nsNameSpace As Outlook.Namespace
Dim miMailItem As Outlook.MailItem
Dim rcpRecipient As Outlook.Recipient
Set appOutlook = CreateObject("Outlook.application")
Set nsNameSpace = appOutlook.GetNamespace("MAPI")
Set miMailItem = appOutlook.CreateItem(olMailItem)
miMailItem.Subject = "some text"
Set rcpRecipient =
miMailItem.Recipients.Add("invalid.email@ourcompan y.com")
If rcpRecipient.Resolved = True Then
'* OK, continue
Else
'* issue error message and abort
End If
The Resolved property always returns True, I can't trap for an invalid
email
address. Should I be doing something differently to detect an invalid
address?
Thanks,
Mark
|