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 = "email@example.com" '.CC = "" '.bcc = "" .Subject = "Testing" & Date .Body = "UK Backorder Report " & vbCrLf & " " & vbCrLf & Mailbody .Send End With rst.Close Set rst = Nothing MsgBox "done"
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.