Retrieve Information from Outlook

[maxamis4]

Hello,

I am currious to know how I can extract information from outlook into access. So far I have this code which I am using to test, but I can' t find any other information on the net. All I want to extract is the

To

and

From

fields from outlook. Below is my code

Public Sub Message()
    Dim rst As DAO.Recordset
   '## Declare Outlook objects.
    Dim ol As New Outlook.Application
    Dim olns As Outlook.NameSpace
    Dim cf As Outlook.MAPIFolder ' Items in Inbox
    Dim objItems As Outlook.Items
    Dim Prop As Outlook.UserProperty
   '## End Declare Outlook
 
 Dim objOutlookMsg As Object
 Dim Item As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer
 
Set olns = GetNamespace("MAPI")
 
Set cf = olns.GetDefaultFolder(olFolderInbox)
 Debug.Print cf
 
 i = 0
 If cf.Items.Count = 0 Then
    MsgBox "there are no messages in that box"
    Exit Sub
 End If
    For Each Item In cf.Items
 
   Debug.Print Item.Subject ' here is where I want to retrieve the fields
    '.Subject
    '.body
    Next Item
End Sub
 
 

Thanks for any help

[Kosmos]

I don't get what the question is...is the for each not working properly with outlook? If not you could try a loop and a with until IsEmpty(Items) or something like that? I'm not completely familiar with how outlook works with access...but I'm currently trying to do something with it myself and somewhat miserably failing so take my advice for what it's worth lol.

also maybe there's some sort of read command you need to do first? I'll let you know if I come across anything more useful.

[maxamis4]

Now the code works fine, my problem is that I don't know all the outlook constants. like body = message, subject = subject. I want to know how to mine/retrieve the to and from field from outlook.

What exactly are you working on, maybe I can help you with that?

Thanks for the reply

[Kosmos]

oh great...yeah I thought I had seen that get command so I wasn't sure why it wasn't working properly. I'm trying to add multiple attachments to access...but they aren't simple file locations....the code is here:
http://www.thescripts.com/forum/show...47#post2286847

I'm not even sure it's something I can do. I've been searching all day and I haven't even seen a website that's touched on this subject...including an online university type of thing this company has....but any help would be very appreciated...thanks :)

[NeoPa]

If the Item referred to is an Outlook.MailItem item, then To is a string property but From doesn't exist. SenderName is also a string which might return what you're after.

[NeoPa]

To find out these details go to the VBA window in Outlook and press F2 (Object Browser).
In the DropDown which says All Libraries, select Outlook.
Find MAPIFolder in the classes list, then see Items as a Member (property).
From here I guessed that this was a collection property containing Mails and/or Contacts and/or Notes etc.
I found a class MailItem so looked in the Members list for To - found and From - not found.
I looked around further and found SenderName.
There are other members and methods of this class listed.

[maxamis4]

Excellent suggestion. Wow I have more than a handful thank you so much

[NeoPa]

No problem.
Glad to help.