Email address in "From" field

[Guest]

PLEASE PLEASE PLEASE help me with this. I'm gonna blow my brains out if I
can't figure this out soon LOL!

I'm very computer savvy, but I have zero VB experience. I have been
searching for a way to define a custom column in Outlook 2000 that will show
the sender's email in the Inbox. I know this is something they built-out of
Outlook for security reasons, but it blows my mind that it is not something
that I can choose to do. I cannot STAND viewing sender by a name that they
put in. It wastes my time dealing with spam, and I prefer to work with
contacts via their email addresses. I have found this complaint widespread in
my search to do this task which should be simple and obvious to Microsoft.

My actual question is this. I installed Redemption and it does show in my
addins. I have found VBScripts (from Sue Mosher and a couple others) that say
that this can be accomplished through Redemption or CDO, but I have NO idea
how to implement them. I can open them in the VB editor in Outlook, but the
whole thing is not very user friendly, and no one has published a simple file
that I can copy into a directory, use as a form or whatever I need to do, and
explained how to define a custom field that simply shows the sender's email
address! This is INSANE to me LOL! I don't understand why this is so hard to
track down.

PLEASE help. I can follow any complex instructions... I just need the
instruction.

Thanks SO much in advance. I have spent probably 15 hours just searching and
experimenting trying to do this one little thing, and I am nowhere with it. I
will most certainly switch to ACT or something that will let me show the
sender's email as a field in the inbox if I don't resolve this.

Thanks again!

 

[Michael Bauer]

Am Wed, 3 May 2006 13:51:01 -0700 schrieb Mike in Venice:

Mike, first you can add an userdefined field manually to the Inbox and add
it to the view. Right click on the header column, select Field chooser and
click New. Enter "From Address" e.g.

Now use the ItemAdd event of the Inbox and from the Redemption the RDOMail
or SafeMailItem object. For both there´re samples on www.dimastr.com. The
objects can tell you the sender´s address. Simply copy it into the
userdefined field you have created above.

 

[Guest]

Hi Michael...

Wow, this REALLY got me close. You have to realize that I haven't done
ANYTHING in VB before, so I wasn't much sure what you were talking about at
first, but with a little deduction and finding other code examples, I at
least got the idea of what to do. I still don't quite have it though, and
maybe you could give me a little more guidance. I checked the code examples
on dimastr.com, and found one that seems to be in the right vein, but not
knowing VB, I'm not clear enough on how to modify it to assign the returned
value to the new custom field. I'm working with a Msg Box for the purposes of
at least figuring out what I'm doing and to see if I'm getting the right info
returned by the script. So far I've been able to obtain a sender email addy
and get it to come up in the Msg Box. But strangely it's not the addy of the
new item I add to the Inbox. However, I think I can suss that out. I just
need to know how to apply this to the new field. This is the code I grabbed
from dimastr:

dim sItem, oItem
set sItem = CreateObject("Redemption.SafeMailItem")
set oItem = Application.Session.GetDefaultFolder(6).Items(1) 'get first
e-mail from the Inbox, can be any other item
sItem.Item = oItem
PrSenderEmail = &H0C1F001E
MsgBox sItem.Fields(PrSenderEmail)


I'm not sure exactly what PrSenderEmail is, and I'm trying to integrate
SenderEmailAddress instead. I get the same result either way. I'm pretty sure
I'll figure that out, but I'd be happy to change this code any way that you
suggest. But mostly, how does this go into the custom field?

Thanks SO much. I'll be sure to pass this on to the other frustrated people
out there once I get it working!

Sincerely,
Michael Robinson
Venice, CA

 

[Michael Bauer]

Am Thu, 4 May 2006 03:30:02 -0700 schrieb Mike in Venice:

Mike, here´s a sample on vbOffice:
http://www.vboffice.net/sample.html?mnu=2&smp=24&cmd=showitem

The comments are in German, if you have any questions please ask me here.

 

[Guest]

Michael,

Thank you SO much for this. I have it working, and I'm gonna analyze how it
works (i'm pretty good with JavaScript, so the Object Model language makes
sense to me...)

If you don't mind, I'll distribute this to others that I came across who
were looking for the same solution. I'll be sure to reference your site!

Thanks again! I can get some sleep now! LOL!

 

[Michael Bauer]

Am Fri, 5 May 2006 00:38:01 -0700 schrieb Mike in Venice:


Of course, that´s ok.

 

[Guest]

I have got bored with spam, and wanted a list of the domains of the spammers,
for better filtering.

I spent all day trying to make sence of VBA (having been a database
applications programmer, and having professionally done real time
data-logging and control Basic programming).

Then I exported the folder of spam e-mails to Access, and all the e-mail
addresses were there to see with no programming at all!

Then I copied the FromAddress field to a new field called "domain", and did
a wildcard search and replace... Search for *@ at the begining of the field,
and replace with nothing.

Dick Roadnight, UK