Import the body of an Email into Access (1 Viewer)

bonekrusher said:

Make sure MS Outlook is selected in the reference library

Code:Copy to clipboard

Private Sub Command0_Click()
' Open outlook and select a folder, create a form with a button called command0 and a text field called text1 
Dim objApp As Outlook.Application
    Dim objItem As Outlook.MailItem
    Dim SndName As String, SndAddr As String, ToName As String, CCName As String
    Dim Subj As String, Rcvd As String, MsgBody As String, AtchName As String
    Set objApp = New Outlook.Application
    For Each objItem In objApp.ActiveExplorer.Selection
        If objItem.Class = olMail Then
            With objItem
                SndName = .SenderName
                SndAddr = .SenderEmailAddress
                ToName = .To
                CCName = .CC
                Subj = .Subject
                MsgBody = .Body
                Rcvd = .ReceivedTime
            
            End With
        End If
    Next
   
Me.Text1 = MsgBody
 Set objItem = Nothing
    Set objApp = Nothing
End Sub

Click to expand...