View Single Post
  #1  
Old June 18th 07, 07:14 PM posted to microsoft.public.outlook.program_vba
BrianL
external usenet poster
 
Posts: 13
Default Using SenderEmailAddress

I have been looking at different ways to retrieve email addresses from
senders' mail items, but I have not found one that I can get to work
correctly.

I am trying to open the "new contacts" form and put the sender's address of
the first email in my inbox to the email input. Does that make any sense?

So far I have this code to create a new contact:

Private Sub CommandButton1_Click()
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(10)
Set myItem = Application.CreateItem(2)
myItem.Email1Address =
Unload Me
myItem.Display
End Sub

The only problem is that I don't know how to refrence (is that the right
word?) the first SenderEmailAddress in my inbox. All of the examples I found
concerning this used "myItem" and I'm sure that Outlook wont like me using
two myItem in one sub.

Where would I refrence the address anyway? In the same Private sub or in
ThisOutlookSession?

any tips would be apreciated.
Ads