Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
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"
Join the community of 500,000 technology professionals and ask your questions.