A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Repost: Comparing Senders with Contacts



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old October 23rd 07, 03:50 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Patrick Pirtle
external usenet poster
 
Posts: 14
Default Repost: Comparing Senders with Contacts

I've written an app that redirects incoming emails to
different folders based upon categories assigned in
my contacts. I use the lines:

strAddress = oSafeMail.Sender.Address
For i = 1 To 3
strFind = "[Email" & i & "Address] = """ & strAddress & """ and
[FileAs] ""Group"""
Set oContact = allContacts.Find(strFind)

to loop through my contacts looking for the sender.

My problem is that, on occasion, this fails to find the
person in my contacts even though they're in there.
When I start trying to debug the problem, I start
getting confused as to just what is being compared.



For example, I might have a contact with:

Email... = "
Display as: "Susan M.Johnson P.E. )"

I receive an email from her, and it displays in my inbox
as being from "Susan M. Johnson". If I open the email,
the From field contains "Susan M. Johnson". If I
try to look at the header through the View\Options menu,
it doesn't show any header at all, as this came through
the Exchange Server.

The search string my app builds looks like:
"[Email1Address] = "/O=COMPANY/OU=FIRST ADMINISTRATIVE
GROUP/CN=RECIPIENTS/CN=SMJ" and [FileAs] "Group""

I assume the "SMJ" above is because her email is
actually stored as and Exchange
has "Susan M. Johnson" as some kind of alias.(?)

My app correctly moves this one to the correct folder.




Now, I have another contact with:

Email... = "
Display as: "

I receive an email from him, and it displays in my inbox
as being from "Rick Jones". If I open the email email, the
From field contains "Rick Jones ]".
If I look at the header through the View\Options menu,
it shows it to be from "Rick Jones ".

The search string my app builds looks like:

"[Email1Address] = and [FileAs] "Group""

My app correctly moves this one to the correct folder.




And finally, I have a contact with:

Email... = "
Display as: "Paul A Smith P.E. )"

I receive an email from him VIA BLACKBERRY, and it
displays in my inbox as being from "Paul Smith". If I open
the email, the From field contains "Paul Smith ]".
If I try to look at the header through the View\Options menu,
it shows it to be from:

"=?utf-8?B?QnJhZCBDYW1lcm9u?=" "

The search string it is building looks like:

"[Email1Address] = and [FileAs] "Group""

My app FAILS to find this person in my contacts.




I've tried modifying my contact's "Email...", "Display as:",
etc. every which way I could, but can't quite figure out what
is really being compared. Is there a better way to search
for these? TIA for any help and suggestions.
____________________________________________
The impossible just takes a little longer...


Ads
  #2  
Old October 23rd 07, 04:13 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
 
Posts: 5,848
Default Repost: Comparing Senders with Contacts

This looks like it's using Redemption code, is that true?

If so why not use oSafeMail.Sender.SmtpAddress instead? That will always
return an SMTP address even if the sender has an Exchange distinguished name
as their email address and it avoids the displayname problem.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Patrick Pirtle mka com" pap atdot wrote in message
...
I've written an app that redirects incoming emails to
different folders based upon categories assigned in
my contacts. I use the lines:

strAddress = oSafeMail.Sender.Address
For i = 1 To 3
strFind = "[Email" & i & "Address] = """ & strAddress & """ and
[FileAs] ""Group"""
Set oContact = allContacts.Find(strFind)

to loop through my contacts looking for the sender.

My problem is that, on occasion, this fails to find the
person in my contacts even though they're in there.
When I start trying to debug the problem, I start
getting confused as to just what is being compared.



For example, I might have a contact with:

Email... = "
Display as: "Susan M.Johnson P.E. )"

I receive an email from her, and it displays in my inbox
as being from "Susan M. Johnson". If I open the email,
the From field contains "Susan M. Johnson". If I
try to look at the header through the View\Options menu,
it doesn't show any header at all, as this came through
the Exchange Server.

The search string my app builds looks like:
"[Email1Address] = "/O=COMPANY/OU=FIRST ADMINISTRATIVE
GROUP/CN=RECIPIENTS/CN=SMJ" and [FileAs] "Group""

I assume the "SMJ" above is because her email is
actually stored as and Exchange
has "Susan M. Johnson" as some kind of alias.(?)

My app correctly moves this one to the correct folder.




Now, I have another contact with:

Email... = "
Display as: "

I receive an email from him, and it displays in my inbox
as being from "Rick Jones". If I open the email email, the
From field contains "Rick Jones ]".
If I look at the header through the View\Options menu,
it shows it to be from "Rick Jones ".

The search string my app builds looks like:

"[Email1Address] = and [FileAs] "Group""

My app correctly moves this one to the correct folder.




And finally, I have a contact with:

Email... = "
Display as: "Paul A Smith P.E. )"

I receive an email from him VIA BLACKBERRY, and it
displays in my inbox as being from "Paul Smith". If I open
the email, the From field contains "Paul Smith ]".
If I try to look at the header through the View\Options menu,
it shows it to be from:

"=?utf-8?B?QnJhZCBDYW1lcm9u?=" "

The search string it is building looks like:

"[Email1Address] = and [FileAs] "Group""

My app FAILS to find this person in my contacts.




I've tried modifying my contact's "Email...", "Display as:",
etc. every which way I could, but can't quite figure out what
is really being compared. Is there a better way to search
for these? TIA for any help and suggestions.
____________________________________________
The impossible just takes a little longer...


  #3  
Old November 5th 07, 03:53 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Patrick Pirtle
external usenet poster
 
Posts: 14
Default Repost: Comparing Senders with Contacts

Ken -
Yes, I *am* using Redemption. Many thanks for the
suggestion. I'll give that a try today.

- Patrick


Ken Slovak - [MVP - Outlook] wrote:
This looks like it's using Redemption code, is that true?

If so why not use oSafeMail.Sender.SmtpAddress instead? That will
always return an SMTP address even if the sender has an Exchange
distinguished name as their email address and it avoids the
displayname problem.


[snip]


  #4  
Old November 5th 07, 11:46 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Patrick Pirtle
external usenet poster
 
Posts: 14
Default Repost: Comparing Senders with Contacts

____________________________________________
The impossible just takes a little longer...Ken Slovak - [MVP - Outlook]
wrote:
This looks like it's using Redemption code, is that true?

If so why not use oSafeMail.Sender.SmtpAddress instead? That will
always return an SMTP address even if the sender has an Exchange
distinguished name as their email address and it avoids the
displayname problem.

"Patrick Pirtle mka com" pap atdot wrote in message
...
I've written an app that redirects incoming emails to
different folders based upon categories assigned in
my contacts. I use the lines:

strAddress = oSafeMail.Sender.Address
For i = 1 To 3
strFind = "[Email" & i & "Address] = """ & strAddress & """
and [FileAs] ""Group"""
Set oContact = allContacts.Find(strFind)

to loop through my contacts looking for the sender.

My problem is that, on occasion, this fails to find the
person in my contacts even though they're in there.
When I start trying to debug the problem, I start
getting confused as to just what is being compared.



For example, I might have a contact with:

Email... = "
Display as: "Susan M.Johnson P.E. )"

I receive an email from her, and it displays in my inbox
as being from "Susan M. Johnson". If I open the email,
the From field contains "Susan M. Johnson". If I
try to look at the header through the View\Options menu,
it doesn't show any header at all, as this came through
the Exchange Server.

The search string my app builds looks like:
"[Email1Address] = "/O=COMPANY/OU=FIRST ADMINISTRATIVE
GROUP/CN=RECIPIENTS/CN=SMJ" and [FileAs] "Group""

I assume the "SMJ" above is because her email is
actually stored as and Exchange
has "Susan M. Johnson" as some kind of alias.(?)

My app correctly moves this one to the correct folder.




Now, I have another contact with:

Email... = "
Display as: "

I receive an email from him, and it displays in my inbox
as being from "Rick Jones". If I open the email email, the
From field contains "Rick Jones ]".
If I look at the header through the View\Options menu,
it shows it to be from "Rick Jones ".

The search string my app builds looks like:

"[Email1Address] = and [FileAs] "Group""

My app correctly moves this one to the correct folder.




And finally, I have a contact with:

Email... = "
Display as: "Paul A Smith P.E. )"

I receive an email from him VIA BLACKBERRY, and it
displays in my inbox as being from "Paul Smith". If I open
the email, the From field contains "Paul Smith ]".
If I try to look at the header through the View\Options menu,
it shows it to be from:

"=?utf-8?B?QnJhZCBDYW1lcm9u?=" "

The search string it is building looks like:

"[Email1Address] = and [FileAs] "Group""

My app FAILS to find this person in my contacts.




I've tried modifying my contact's "Email...", "Display as:",
etc. every which way I could, but can't quite figure out what
is really being compared. Is there a better way to search
for these? TIA for any help and suggestions.
____________________________________________
The impossible just takes a little longer...


--


  #5  
Old November 5th 07, 11:57 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Patrick Pirtle
external usenet poster
 
Posts: 14
Default Repost: Comparing Senders with Contacts

Well, it *looks* as though using the .SMTPAddress
should work just fine. But, when I ran it, I could step
through the code and, although the SMTP address was
, and I have a contact with
in all three of the email addresses, it
fails to find it.

So, I guess that brings me around to my original questions.
What, exactly, is being compared? Since the contacts are
being automatically deleted and refreshed from the
Exchange Server each night, could the email that's being
displayed in the three email addresses not be the email
that's *really* being compared?

Or, is there a better way to search the contacts?
____________________________________________
The impossible just takes a little longer...


Ken Slovak - [MVP - Outlook] wrote:
This looks like it's using Redemption code, is that true?

If so why not use oSafeMail.Sender.SmtpAddress instead? That will
always return an SMTP address even if the sender has an Exchange
distinguished name as their email address and it avoids the
displayname problem.

"Patrick Pirtle mka com" pap atdot wrote in message
...
I've written an app that redirects incoming emails to
different folders based upon categories assigned in
my contacts. I use the lines:

strAddress = oSafeMail.Sender.Address
For i = 1 To 3
strFind = "[Email" & i & "Address] = """ & strAddress & """
and [FileAs] ""Group"""
Set oContact = allContacts.Find(strFind)

to loop through my contacts looking for the sender.

My problem is that, on occasion, this fails to find the
person in my contacts even though they're in there.
When I start trying to debug the problem, I start
getting confused as to just what is being compared.



For example, I might have a contact with:

Email... = "
Display as: "Susan M.Johnson P.E. )"

I receive an email from her, and it displays in my inbox
as being from "Susan M. Johnson". If I open the email,
the From field contains "Susan M. Johnson". If I
try to look at the header through the View\Options menu,
it doesn't show any header at all, as this came through
the Exchange Server.

The search string my app builds looks like:
"[Email1Address] = "/O=COMPANY/OU=FIRST ADMINISTRATIVE
GROUP/CN=RECIPIENTS/CN=SMJ" and [FileAs] "Group""

I assume the "SMJ" above is because her email is
actually stored as and Exchange
has "Susan M. Johnson" as some kind of alias.(?)

My app correctly moves this one to the correct folder.




Now, I have another contact with:

Email... = "
Display as: "

I receive an email from him, and it displays in my inbox
as being from "Rick Jones". If I open the email email, the
From field contains "Rick Jones ]".
If I look at the header through the View\Options menu,
it shows it to be from "Rick Jones ".

The search string my app builds looks like:

"[Email1Address] = and [FileAs] "Group""

My app correctly moves this one to the correct folder.




And finally, I have a contact with:

Email... = "
Display as: "Paul A Smith P.E. )"

I receive an email from him VIA BLACKBERRY, and it
displays in my inbox as being from "Paul Smith". If I open
the email, the From field contains "Paul Smith ]".
If I try to look at the header through the View\Options menu,
it shows it to be from:

"=?utf-8?B?QnJhZCBDYW1lcm9u?=" "

The search string it is building looks like:

"[Email1Address] = and [FileAs] "Group""

My app FAILS to find this person in my contacts.




I've tried modifying my contact's "Email...", "Display as:",
etc. every which way I could, but can't quite figure out what
is really being compared. Is there a better way to search
for these? TIA for any help and suggestions.
____________________________________________
The impossible just takes a little longer...


--
____________________________________________
The impossible just takes a little longer...


  #6  
Old November 6th 07, 01:56 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
 
Posts: 5,848
Default Repost: Comparing Senders with Contacts

I don't think the existing contacts are being deleted every night when an
offline address book is synched.

If the contact you are comparing has an Exchange DN as their email address
that's what it is, not the SMTP address. I think that's the problem. Again,
with Redemption there are better ways to do what you want. For example, why
not use a filtered MAPITable? You can set up the filter on all 3 email
addresses in a Contacts table and check things that way, which would allow
you to use complex Or's to compare the email addresses.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Patrick Pirtle mka com" pap atdot wrote in message
...
Well, it *looks* as though using the .SMTPAddress
should work just fine. But, when I ran it, I could step
through the code and, although the SMTP address was
, and I have a contact with
in all three of the email addresses, it
fails to find it.

So, I guess that brings me around to my original questions.
What, exactly, is being compared? Since the contacts are
being automatically deleted and refreshed from the
Exchange Server each night, could the email that's being
displayed in the three email addresses not be the email
that's *really* being compared?

Or, is there a better way to search the contacts?
____________________________________________
The impossible just takes a little longer...


  #7  
Old November 6th 07, 03:27 PM posted to microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.program_vba
Patrick Pirtle
external usenet poster
 
Posts: 14
Default Repost: Comparing Senders with Contacts

Ken -
In checking with our IS guys, it turns out the contacts
are not actually being sync'd with the Exchange Server.
They're running an in-house-written application each
night that deletes all of the contacts with certain
categories from each employee's contacts, and then
replaces the deleted contacts with updated contacts
from the central office database (which is part of some
marketing database separate from Exchange).

So...

I'm looking into Redemptions MAPITable explanation
now--it looks *very* promising. As always, many thanks
for your help.
____________________________________________
The impossible just takes a little longer...


Ken Slovak - [MVP - Outlook] wrote:
I don't think the existing contacts are being deleted every night
when an offline address book is synched.

If the contact you are comparing has an Exchange DN as their email
address that's what it is, not the SMTP address. I think that's the
problem. Again, with Redemption there are better ways to do what you
want. For example, why not use a filtered MAPITable? You can set up
the filter on all 3 email addresses in a Contacts table and check
things that way, which would allow you to use complex Or's to compare
the email addresses.

[snip]


 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Comparing email address with contacts Patrick Pirtle Outlook and VBA 0 October 18th 07 05:51 PM
Using group policy to specify Safe Senders and Blocked Senders kiscokid Outlook - Installation 0 September 26th 07 09:16 AM
i want 2 know Storing of resume in database and comparing it with the other sriram Outlook - Using Contacts 1 September 11th 07 01:32 PM
All email senders end up in my contacts! Kitster Outlook Express 1 December 22nd 06 03:17 PM
Comparing 2 MSG files . peketi Outlook and VBA 7 February 17th 06 05:51 AM


All times are GMT +1. The time now is 05:17 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.