Import E-Mails from Outlook to Access, and read them from Access?

[RobDog888]

To change the code to use the Task folder.
Then you will need to write similar function to export the tasks to
a Tasks table.

Option Explicit
 
Private oApp As Outlook.Application
Private oNS As Outlook.NameSpace
Private oInbox As Outlook.MAPIFolder
Private oTasks As Outlook.MAPIFolder
Private CnnA As ADODB.Connection
 
Private Sub cmdExportEmails_Click()
 
    Call Outlook_Emails_2_Access
 
End Sub
 
Private Sub Form_Load()
 
    Set oApp = New Outlook.Application
    Set oNS = oApp.GetNamespace("MAPI")
    Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
    Set oTasks = oNS.GetDefaultFolder(olFolderTasks)
    'MUST BE A FOLDER WITH A DEFAULT MESSAGE TYPE OF POST!!!
    'RIGHT CLICK ON THE DESIRED NEW FOLDER AND CLICK PROPERTIES.
    'THEN LOOK AT THE BOTTON AND IT SHOULD SAY -
    '"WHEN POSTING TO THIS FOLDER, USE: POST"
'    Set oInbox = oNS.Folders("Your Custom Folder Name Here!")
    
    Set CnnA = New ADODB.Connection
    CnnA.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtDBPath & ";Persist Security Info=False"
    CnnA.Open
    
End Sub

Glad to help.
How about a honorable mention in your programs about credits?