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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

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?

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.Email1Entry ID)
MsgBox AE.SmtpAddress
Else
MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"McKilty" wrote in message
...
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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

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.Email1Entry ID)
MsgBox AE.SmtpAddress
Else
MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"McKilty" wrote in message
...
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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

On Mar 24, 11:15*am, "Dmitry Streblechenko"
wrote:
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.Email1Entry ID)
* MsgBox AE.SmtpAddress
Else
* MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy *- Outlook, CDO
and MAPI Developer Tool
-"McKilty" wrote in message

...

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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

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?

On Mar 24, 2:51*pm, McKilty wrote:
On Mar 24, 11:15*am, "Dmitry Streblechenko"
wrote:



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.Email1Entry ID)
* MsgBox AE.SmtpAddress
Else
* MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy *- Outlook, CDO
and MAPI Developer Tool
-"McKilty" wrote in message

....

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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

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?

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?

On Mar 24, 3:00*pm, McKilty wrote:
On Mar 24, 2:51*pm, McKilty wrote:



On Mar 24, 11:15*am, "Dmitry Streblechenko"
wrote:

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.Email1Entry ID)
* MsgBox AE.SmtpAddress
Else
* MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy *- Outlook, CDO
and MAPI Developer Tool
-"McKilty" wrote in message

....

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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

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?

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?

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.

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.Email1Entr yID)
MsgBox AE.SmtpAddress
Else
MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"McKilty" wrote in message
...
On Mar 24, 11:15 am, "Dmitry Streblechenko"
wrote:
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.Email1Entry ID)
MsgBox AE.SmtpAddress
Else
MsgBopx oContact.Email1Address
EndIf

--
Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-"McKilty" wrote in message

...

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(gsPublicCont actsFolder)

Set SafeContact = CreateObject("Redemption.SafeContactItem")
Set oContact = myFolder.Items.Find("[EMPID2] = 472")

If UCase(SafeContact.Email1Address) UCase
") Then
SafeContact.Email1Address = ")
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.

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?