I'm using the code below to generate emails from Access and I would like to insert an Access table in the body of the email. Can you give me example code to accomplish. Thanks
Dim objOutlook As Object, objEmailMessage As Object
Dim sSubj As String, sBody As String, sTo As String, strCC As String
Dim rs As dao.Recordset
Set rs = CurrentDb.OpenRecordset("tbl_FDA_No_Sig")
Do Until rs.EOF
sMail = sMail & ";" & rs("email")
sMail = MID(sMail, 2)
Set objOutlook = CreateObject("Outlook.Application")
Set objEmailMessage = objOutlook.CreateItem(0)
.To = sMail
If strCC & "" <> "" Then
.CC = strCC
.Subject = sSubj
'Set body format to HTML
.BodyFormat = olFormatHTML
'.To = "Your Mail"
.CC = "email@example.com"
.Subject = "ISAs/MOUs Expected Signatures Dates"
.HTMLBody = "The OFSPO Team would like to follow up with you regarding the status of the following outstanding ISAs:."