Need to get BCC email addresses in email format

[Cornerstone]

Have the following code to scan a Sent folder and return nfo to a table. However, it is returning the name for the cc and bcc instead of the email address of the persons. The To is getting the email address though. Any help?

Private Sub ReadInbox()
Dim TempRst As DAO.Recordset
Dim rst As DAO.Recordset
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
Dim Mailobject As Object
Dim db As DAO.Database
Dim dealer As Integer
DoCmd.RunSQL "Delete * from tbl_outlooktemp"
Set db = CurrentDb


Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderSentMail)
Set TempRst = CurrentDb.OpenRecordset("tbl_OutlookTemp")

Set InboxItems = Inbox.Items
For Each Mailobject In InboxItems

With TempRst

.AddNew
!Subject = Mailobject.Subject
!from = Mailobject.SenderName
!To = Mailobject.To
!Body = Mailobject.Body
!DateSent = Mailobject.SentOn
!BCC = Mailobject.BCC
!CC = Mailobject.CC
.Update

End With
'End If
'End If
Next

Set OlApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
Set TempRst = Nothing

End Sub

 

[TonyJollans]

What shows in To, CC, and Bcc depends on how Outlook sees the reciients. Full information should be in the MailItem Recipients collection.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website