VBA Code to change font and size in an email from

问题:

I have an access form that runs a query. There is a command button on the form that I want to send an email with the query results attached in an excel spreadsheet. Using the code below I am able to attach the results and send the email ok. I would like to be able to format the email body so that it is more noticeable. I'm not really sure how to go about doing this and still have my query attached. I have also created an email template that I would use but I haven't been able to figure out how to use the template and attach the query results. I'm open for any suggestions. Any help would be greatly appreciated.

 DoCmd.SendObject acQuery, "BoxOrder", "ExcelWorkbook(*.xlsx)", "[e-mail]", _
     "[e-mail]", "", "BOX ORDER", _
     "ALL BOXES STITCHED" & vbCrLf & "Questions: Please Call Me" & _
     vbCrLf & "555-555-5555 x 66654", True, True

回答1:

You could follow the Article from MS.

A proportion of the code is as follows:

Set ola1 = New Outlook.Application

Set mai1 = ola1.CreateItem(olMailItem)
mai1.To = strTo
mai1.Subject = strSubj
If bolHTML = True Then
    mai1.HTMLBody = strBody
Else
    mai1.Body = strBody
End If
mai1.Display 

If you use the HTML (set bolHTML = True) version you can either have an RTF control on a Form and pass the formatted text over or hardcode your HTML with the formatting you need. Just set the "strBody" to the message you want.

Then you need to look into the Attachments.Add (MS Article) if you want to use the above code with your original purpose.

There's a full 599CD Email Seminar you could follow if you're going to be doing a lot with Email in Access.