email body using html format

[baronqueefington]

Good evening,

I have been using the code below to generate email from access, I now want to be able to format the email body and it seems I can do this using html tags. I have seen that you can use the .htmlbody syntax but I can't seem to be able to find where to use it my code.

Private Sub cmdSendAllocationEmail_Click()

Dim stdocname As String
Dim stEmail As String
Dim stSubject As String
Dim stbody As String
On Error GoTo ErrorHandler

If Not IsNull(Me.BIA_Email_Address) Then


stdocname = ""

stEmail = ""

stEmailcc = ""

stSubject = ""

stbody = ""


DoCmd.SetWarnings False
DoCmd.SendObject acSendNoObject, , , stEmail, stEmailcc, , stSubject, stbody, , False
DoCmd.SetWarnings True



Else: MsgBox "Sorry cannot send email"

End If
Exit Sub

ErrorHandler:
Select Case Err
Case 2501
Case Else
MsgBox Err.Description
End Select

End Sub

Any help would be much appreciated.

[June7]

stbody = "<b>This is text with bold emphasis by html tag.</b>"

However, I don't think it will work with SendObject method. Review https://www.accessforums.net/access/...tml-48507.html

[baronqueefington]

Hmm I see, thank you for the input.

[baronqueefington]

hello again,

I have started to look at the outlook.application solution and have this

Private Sub cmdSendEmail_Click()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.HTMLBody = Me.DOL
oMail.Subject = "Test Subject"
oMail.To = Me.BIA_Email_Address
oMail.Display
Set oMail = Nothing
Set oApp = Nothing



End Sub

I can't work out how to format the me.items, such as <b>me.testfield</b>

I will look some more for the correct syntax, but any help would be appreciated.

Kind regards,

[June7]

Concatenate literal text with variables. Testfield is name of textbox on form?

"<b>" & Me.testfield & "</b>"

[baronqueefington]

Thank you! Me.test was just an example not a real field on my database.

Thank you again.