Getting the SMTP address from an EX address

Status
Not open for further replies.
M

McKilty

I've written code to compare our Public Folder Recipients List with

information we have in several databases. The program will update the

Public Folders with the information in the database.

The snag I've hit is with the e-mail address. I am using Outlook

Redemption and retrieving Email1Address but the type is EX and what we

have in the database is SMTP.

My applicable code, which will fail because of this, is:

-----------------------------------------------Dim myFolder As outlook.MAPIFolder

Dim myInbox As outlook.MAPIFolder

Dim myNameSpace As outlook.NameSpace

Dim myOutlook As outlook.Application

Dim SafeContact, oContact

Set myOutlook = CreateObject("Outlook.Application." & Val(Left

(outlook.Version, 2)))

Set myNameSpace = myOutlook.GetNamespace("MAPI")

myNameSpace.Logon

Set myFolder = myNameSpace.Folders("Public Folders").Folders("All

Public Folders").Folders("Contacts").Folders(gsPublicContactsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")

Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) <> UCase

("rbray@dlbassociates.com") Then

SafeContact.Email1Address = ("rbray@dlbassociates.com")

End If

-----------------------------------------------It's off because some addresses are EX and some are SMTP, yet all are

employees so I would have thought they'd all be the same.

I tried writing code to handle this, but then some of the EX types

have a string of numbers after the name. For example:

[snip]/cn=Recipients/cn=rbray

[snip]/cn=Recipients/cn=bmarshall21766933

Those numbers don't appear anywhere in the SMTP address and even when

you click on the properties and view the EX, you don't see those

numbers.
 
M

McKilty

I'm also wondering if the reason some are SMTP and some are EX is

because how they were entered. If the e-mail is written in by hand,

it would be SMTP, but if it was chosen with address book, it would be

the EX type. Is this correct?
 
D

Dmitry Streblechenko

Try something like the following

set Session = CreateObject("Redemption.RDOSession")

Session.MAPIOBJECT = Application.Session.MAPIOBJECT

> ..

if oContact.Email1AddressType = "EX Then

set AE = Session.GetAddressEntryFromID(oContact.Email1EntryID)

MsgBox AE.SmtpAddress

Else

MsgBopx oContact.Email1Address

EndIf

Dmitry Streblechenko (MVP)
 
Last edited by a moderator:
D

Dmitry Streblechenko

Try something like the following

set Session = CreateObject("Redemption.RDOSession")

Session.MAPIOBJECT = Application.Session.MAPIOBJECT

> ..

if oContact.Email1AddressType = "EX Then

set AE = Session.GetAddressEntryFromID(oContact.Email1EntryID)

MsgBox AE.SmtpAddress

Else

MsgBopx oContact.Email1Address

EndIf

Dmitry Streblechenko (MVP)

-
 
Last edited by a moderator:
M

McKilty

Thanks Dmitry.

When I throw that in the code, it halts and highlights MAPIOBJECT.

The error it throws is:

Compile Error

Method or data member not found.

Maybe I have an old version of your software. I have: 4.0.0.452.

Assuming that I update the software, would this have an effect on

existing software that used the version I have now?
 
Last edited by a moderator:
M

McKilty

I made a backup of the original and downloaded the ner version

(4.7.0.1026). It behaves the same way and doesn't know what

MAPIOBJECT is.

Am I taking your code too literal?
 
Last edited by a moderator:
M

McKilty

I changed the code a bit so that it reads as such:

Set Session = CreateObject("Redemption.RDOSession")

Session.Folders("Public Folders").Folders("All Public Folders").Folders

("Contacts").Folders(gsPublicContactsFolder) =

Application.Session.MAPIOBJECT

I know the second MAPIOBJECT is going to cause a problem, but it

breaks on the first line with the error:

Property is read-only.
 
Last edited by a moderator:
D

Dmitry Streblechenko

Sorry, replace Application (which most likely points to an instance of

Access.Application rather than Outlook.Application) with myOutlook :

set rSession = CreateObject("Redemption.RDOSession")

rSession.MAPIOBJECT = myOutlook .Session.MAPIOBJECT

> ..

if oContact.Email1AddressType = "EX Then

set AE = rSession.GetAddressEntryFromID(oContact.Email1EntryID)

MsgBox AE.SmtpAddress

Else

MsgBopx oContact.Email1Address

EndIf

Dmitry Streblechenko (MVP)
 
Last edited by a moderator:
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
A Links in email getting error message about group policy Using Outlook 4
Commodore Getting rid of "This computer only" Using Outlook 4
V Outlook 2016 Multiple recurring tasks getting created Using Outlook 0
P PST file is getting huge under POP 3 Using Outlook 2
N contact notepad 'style' getting changed after clicking and running Activities Using Outlook 2
S Outlook [Online - Office365] perfomance is getting affected when accessing the mails using Redemptio Using Outlook 1
D Close Oulook after sending emails via vba without outbox getting stuck. Outlook VBA and Custom Forms 1
C im getting a type mismatch error Outlook VBA and Custom Forms 3
William getting custom form to load category colors Outlook VBA and Custom Forms 4
C Getting back previous computer owner Outlook email Using Outlook.com accounts in Outlook 1
B Recipient of a forwared message getting multiple emails Using Outlook 2
S Outlook 2010 I am getting error code 0x8DE00006 'the operation failed'. outlook 2010 send/receive progress Using Outlook.com accounts in Outlook 2
S Mails getting downloaded multiple times Using Outlook 1
Rory Campion Not getting a warning when a shared calendar item has been updated by someone else Using Outlook 2
E Getting IMAP email into existing pst file Using Outlook 6
J Just installed Outlook 2010 on computer and user is getting a 0x80004005 error Using Outlook.com accounts in Outlook 1
R Getting a colleagues appointments and calendar entries Using Outlook 1
E Getting Outlook full name correct with AddressLayout Using Outlook 1
P I'm getting an error when opening Outlook "Mobile me stopped working Using Outlook 1
D Need Help with Script. Keep getting Runtime Error 438 BCM (Business Contact Manager) 4
R Need help getting BCM to work with my Outlook 2014 Using Outlook 4
D Help Getting Started? BCM (Business Contact Manager) 4
P I am getting an error msg = cannot open file access denied Using Outlook 3
K why is a user getting email respond for invite respond that she didn't set up. Using Outlook 3
B email getting cut off Using Outlook 9
L Need help getting calendar/contacts/tasks/notes back! Using Outlook 3
M Email Format getting changed to Plain Text Using Outlook 1
G Outlook 2013: Getting meeting invites in OWA format Using Outlook 9
M Getting messages from multiple email address Using Outlook 1
B not getting email from people Using Outlook 3
L Outlook 2010 - Keep getting "Corrupted File" Msgs Using Outlook 4
mrje1 Assigned Categories keep getting deleted in mail, bug? How to fix if possible? Using Outlook 5
Commodore Why some RSS feeds stop getting updates? Using Outlook 12
M All e mails seem to be getting blocked BCM (Business Contact Manager) 7
J Send/receive getting stuck Using Outlook.com accounts in Outlook 1
R Getting my Claendar additions to appear in Outlook Today Using Outlook 7
J Getting Contact Name to show on Calendar Using Outlook 2
D outlook getting stuck receiving Using Outlook 1
Y MICROSOFT OUTLOOK 2007 - i KEEP GETTING THE "ENTER NETWORK PASSWORD" BOX POPPING UP - IT IS ALREADY Using Outlook 4
T getting an error This file does not have a program associated with it for performing this action. C Using Outlook 7
C getting the subject line out of a mail Outlook VBA and Custom Forms 2
S Trying to install BCM 2010 x64, getting error BCM (Business Contact Manager) 8
Q I cannot start Outlook 2007 I keep getting this error: __'Cannot start outlook window. Invalid XML,the view cannot be loaded.' Using Outlook 3
N Getting the attachments in MailItem Outlook VBA and Custom Forms 1
K Getting (internal) sender's account ID (userID) Outlook VBA and Custom Forms 2
S MAcro - Need help in getting the recipients in to filed / cc field toput in an array Outlook VBA and Custom Forms 4
C Getting Error message BCM (Business Contact Manager) 1
R getting the name of the pst file Outlook VBA and Custom Forms 2
J I'm getting an error code 8 when try to access my exchange account Using Outlook 6
A issue with the sender's name getting changed Outlook VBA and Custom Forms 1

Similar threads

Top