How do i get information from Outlook?

[Guest_imported]

How do i store email informations like firstname,lastname,
emailid,Attachment from outlook to Ms Access Using VBA?

Example:
column names: Firstname lastname emailid Attach
--------- -------- ------- --------
Steve Waugh stv@aol.com letter.doc

 

[JamesMeadlock]

Heh... I'm working on the same thing at the moment... add a reference to the outlook library, then:

This should get you started...

Sub DoIt()
Dim olMAPI As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder
Dim colItems As Outlook.Items
Dim objItem As Outlook.MailItem


Set olMAPI = GetObject("", "Outlook.Application&quot.GetNamespace("MAPI&quot
' Point to the correct folder
Set Folder = olMAPI.Folders("Public Folders&quot.Folders("All Public Folders&quot.Folders("Entertainment&quot
Set colItems = Folder.Items


For Each objItem In colItems
Debug.Print objItem.Subject
' Grab the data you need here
Next



'Cleanup
Set olMAPI = Nothing
Set Folder = Nothing
Set colItems = Nothing
End Sub

 

[Guest_imported]

Thanks. i have a question.

will this take information like firstname,lastname from Inbox mail?

 

[JamesMeadlock]

Sort've... I got this working on my inbox:

Sub DoMail()
Dim olMAPI As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder
Dim colItems As Outlook.Items
Dim objEmailItem As Outlook.MailItem


Set olMAPI = GetObject("", "Outlook.Application&quot.GetNamespace("MAPI&quot
Set Folder = olMAPI.Folders("Mailbox - James Meadlock&quot.Folders("Inbox&quot

Set colItems = Folder.Items

For Each objEmailItem In colItems
Debug.Print objEmailItem.ReceivedTime
Debug.Print objEmailItem.SenderName
Debug.Print objEmailItem.Subject
Debug.Print objEmailItem.Body
Next

'Cleanup
Set olMAPI = Nothing
Set Folder = Nothing
Set colItems = Nothing
End Sub


Sender Name = "James Meadlock" for things I sent to myself... You could always break that up with code.

 

[Guest_imported]

Thank you very much.

Let me use your program. If i have any question,
i will let you know.

Once again thank you