how to point MAPI at express, how to get sender email ?
 

already multiposted to microsoft.public.outlook (no response)

I receive many email requests to scan old computer museum manuals to
pdf.
I manually paste fields from the emails in to a Microsoft Access table
of scan requests to keep track of everything.
I haven't done this since 18th Jan 2006 and i'm attempting to automate
the process to some extent to catch up.

Here is the code I've done so far:

---------------------------------------------------------------------------------
Dim lngCount As Long
Dim lngIndex As Long
Dim dteReceived As Date
Dim rs As Recordset

DoCmd.SetWarnings False
DoCmd.OpenQuery "qdelScanRequestEmails"
DoCmd.SetWarnings True

Set rs = CurrentDb().OpenRecordset("ScanRequestEmails")
Set myOlApp = CreateObject("Outlook.Application", "localhost")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set MyFolder = myNamespace.GetDefaultFolder(olFolderInbox)

lngCount = MyFolder.Items.count
For lngIndex = lngCount To 1 Step -1
Set MyItem = MyFolder.Items(lngIndex)
dteReceived = MyItem.ReceivedTime
If DateValue(dteReceived) #1/18/2006# Then Exit For
rs.AddNew
rs![TimeReceived] = dteReceived
rs![Subject] = MyItem.Subject
rs![Body] = MyItem.Body
rs![SenderName] = MyItem.SenderName
rs![SenderEmail] = MyItem.ReplyRecipientNames
rs.Update
Next lngIndex

rs.Close
Set rs = Nothing

----------------------------
1) This finds items in my Outlook inbox, how can I point to my Outlook
Express inbox instead.
2) I am not correctly picking up the senders email (return address) -
which property of the mail item should I be using ? I've tried a
number of obvious ones -
for example - if I try

rs![SenderEmail] = MyItem.ReplyRecipients

then I get error "one or more parameter values are not valid"

Many thanks in advance

Tony Epton

how to point MAPI at express, how to get sender email ?
 

1. Outlook Object Model only works with Outlook, not with OE. They have
nothing in common but the word "Outlook" in the name.
2. The property you need is MailItem.SenderEmailAddress; available only in
Outlook 2003.

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

ace join_to (Tony Epton) wrote in message
...

already multiposted to microsoft.public.outlook (no response)

I receive many email requests to scan old computer museum manuals to
pdf.
I manually paste fields from the emails in to a Microsoft Access table
of scan requests to keep track of everything.
I haven't done this since 18th Jan 2006 and i'm attempting to automate
the process to some extent to catch up.

Here is the code I've done so far:

---------------------------------------------------------------------------------
Dim lngCount As Long
Dim lngIndex As Long
Dim dteReceived As Date
Dim rs As Recordset

DoCmd.SetWarnings False
DoCmd.OpenQuery "qdelScanRequestEmails"
DoCmd.SetWarnings True

Set rs = CurrentDb().OpenRecordset("ScanRequestEmails")
Set myOlApp = CreateObject("Outlook.Application", "localhost")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set MyFolder = myNamespace.GetDefaultFolder(olFolderInbox)

lngCount = MyFolder.Items.count
For lngIndex = lngCount To 1 Step -1
Set MyItem = MyFolder.Items(lngIndex)
dteReceived = MyItem.ReceivedTime
If DateValue(dteReceived) #1/18/2006# Then Exit For
rs.AddNew
rs![TimeReceived] = dteReceived
rs![Subject] = MyItem.Subject
rs![Body] = MyItem.Body
rs![SenderName] = MyItem.SenderName
rs![SenderEmail] = MyItem.ReplyRecipientNames
rs.Update
Next lngIndex

rs.Close
Set rs = Nothing

----------------------------
1) This finds items in my Outlook inbox, how can I point to my Outlook
Express inbox instead.
2) I am not correctly picking up the senders email (return address) -
which property of the mail item should I be using ? I've tried a
number of obvious ones -
for example - if I try

rs![SenderEmail] = MyItem.ReplyRecipients

then I get error "one or more parameter values are not valid"

Many thanks in advance

Tony Epton