Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Dim MyDB As DAO.Database Dim rst As DAO.Recordset Set MyDB = CurrentDb Set rst = MyDB.OpenRecordset("Query_FOR_HTML") With rst Do While Not .EOF Mailbody = Mailbody & ![RBP_MASTER_ID] & " | " & ![Sku] & " | " & ![Qty] & " | " & ![TARGET_PRICE] & vbCrLf .MoveNext Loop End With Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem Dim strPath As String Dim strFileName As String Set appOutLook = CreateObject("Outlook.Application") Set MailOutLook = appOutLook.CreateItem(olMailItem) With MailOutLook .BodyFormat = olFormatRichText .To = "firstname.lastname@example.org" '.CC = "" '.bcc = "" .Subject = "Testing" & Date .Body = "UK Backorder Report " & vbCrLf & " " & vbCrLf & Mailbody .Send End With rst.Close Set rst = Nothing MsgBox "done"
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.