Outlook email to Access Database

[psamu]

I trying to import email messages including sender's email address to the Access Database, however I see all the information except sender's email address. I will appreciate if someone help me on this. Thank you.

 

[Trevor G]

Do from outlook and you will get the email address. If using 2010 then in Outlook use the File Tab and Options in the Advanced section select the Export button select your database (would be 97 - 2003 version), select your folder from Outlook and follow the wizard through.

 

[psamu]

Thanks. I am trying to point to particular folder in outlook and link to database. i think it has to be only from access database. Is there any way? Thanks.

 

[Trevor G]

I don't believe you can link to a folder in outlook which includes the email address, you can show from etc but not the email address.

 

[psamu]

I can link from access, I get fields. From field is coming name instead of email address

 

[psamu]

Is that something with the settings

 

[Darren Bartrup]

This code by Sue Mosher may help.

Sub Test()

    Dim oAPP As Object
    
    Set oAPP = CreateObject("Outlook.Application")
    
    MsgBox ResolveDisplayNameToSMTP("Sender Name", oAPP)
    
End Sub

'----------------------------------------------------------------------------------
' Procedure : ResolveDisplayNameToSMTP
' Author    : Sue Mosher - updated by D.Bartrup-Cook to work in Excel late binding.
'-----------------------------------------------------------------------------------
Public Function ResolveDisplayNameToSMTP(sFromName, OLApp As Object) As String




    Select Case Val(OLApp.Version)
        Case 11 'Outlook 2003
        
            Dim oSess As Object
            Dim oCon As Object
            Dim sKey As String
            Dim sRet As String
            
            Set oCon = OLApp.CreateItem(2) 'olContactItem


            Set oSess = OLApp.GetNameSpace("MAPI")
            oSess.Logon "", "", False, False
            oCon.Email1Address = sFromName
            sKey = "_" & Replace(Rnd * 100000 & Format(Now, "DDMMYYYYHmmss"), ".", "")
            oCon.FullName = sKey
            oCon.Save


            sRet = Trim(Replace(Replace(Replace(oCon.email1displayname, "(", ""), ")", ""), sKey, ""))
            oCon.Delete
            Set oCon = Nothing


            Set oCon = oSess.GetDefaultFolder(3).Items.Find("[Subject]=" & sKey) '3 = 'olFolderDeletedItems
            If Not oCon Is Nothing Then oCon.Delete


            ResolveDisplayNameToSMTP = sRet
        
        Case 14 'Outlook 2010


            Dim oRecip As Object 'Outlook.Recipient
            Dim oEU As Object 'Outlook.ExchangeUser
            Dim oEDL As Object 'Outlook.ExchangeDistributionList
        
            Set oRecip = OLApp.Session.CreateRecipient(sFromName)
            oRecip.Resolve
            If oRecip.Resolved Then
                Select Case oRecip.AddressEntry.AddressEntryUserType
                    Case 0, 5 'olExchangeUserAddressEntry & olExchangeRemoteUserAddressEntry
                        Set oEU = oRecip.AddressEntry.GetExchangeUser
                        If Not (oEU Is Nothing) Then
                            ResolveDisplayNameToSMTP = oEU.PrimarySmtpAddress
                        End If
                    Case 10, 30 'olOutlookContactAddressEntry & 'olSmtpAddressEntry
                            ResolveDisplayNameToSMTP = oRecip.AddressEntry.Address
                End Select
            End If
        Case Else
            'Name not resolved so return sFromName.
            ResolveDisplayNameToSMTP = sFromName
    End Select
End Function