Well, I spent about 2 hours on it just because I wanted to refresh what I knew about html email coding from vba. Might as well post it for your perusal. Probably some unwanted advice/comments there too - just ignore those. Note that I embellished the email tag somewhat by adding subject line and body text attributes.
Code:
Function DMTDave()
'obviously use the original procedure name. Converted to function because I have no button to call this
'values/tests for which I have no form/table etc. are just hard coded or rem'd out as ''
Dim myEmail As String
Dim a As String, b As String, c As String
Dim Return1 As String, Return2 As String, Return3 As String
Dim strMailto1 As String, strMailto2 As String
Dim mySubj As String ', Opt1 As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As Object
If 1 = 1 And 1 > 0 Then 'obviously had to design my own IF test
myEmail = "somebody@somewhere.com"
a = "Dear Mr. Jones; <P>"
b = "Thank you for recently using our services to remove your redundant product. <P>"
b = b & "It is very important to us because we take great pride in providing all clients with exceptional service. "
b = b & "We would like to ensure that the full procedure was carried out according to plan.<P>"
b = b & "1: Did you receive your payment of £" & 10 & "?<br>"
b = b & "2: Did you receive your free gift? <P>"
b = b & "Please click on one of the options below to confirm all arrangements such as reciept of your payment "
b = b & "and your free gift.<P>"
b = b & "In closing we just want to say thank you again for using our services. It was an absolute pleasure to assist you. "
b = b & "Please stay safe! <P>"
c = "Micron"
Return1 = "I can confirm that I received my " & "£" & 10 & " along with my free gift. Thank you."
'you don't agree WITH something, you agree TO it. You agree WITH people (although certain foods might not agree with you!)
Return2 = "The engineer that arrived adjusted the arrangements we had agreed to. Thank you."
Return3 = "What were the adjustments made?"
strMailto1 = "<a href='mailto:somebody@somewhere.com?Subject=Option1 Chosen&body=" & Return1 & "'>"
strMailto2 = "<a href='mailto:somebody@somewhere.com?Subject=Option2 Chosen&body=" & Return2 & "'>"
''mySubj = "Courtesy Email Ref " & Me.RecordNo & " Item Removal"
mySubj = "Courtesy Email Ref 123456 Item Removal"
''Opt1 = "Click here> " less concatenating of html if you just use the literal string "click here"
''opt2 = "Click here > " 'redundant - it's the same value
Set oOutlook = New Outlook.Application
Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
''Set OutAccount = oEmailItem.Session.Accounts.Item(2)
.To = myEmail
.Subject = mySubj
.HTMLBody = a & b & _
strMailto1 & "Click here: " & Return1 & "</a><P>" & _
strMailto2 & "Click here: " & Return2 & "</a>" & _
"<P><IMG border=0 hspace=0 alt='' src='file://T:/Email Signature.jpg' align=baseline></P>" & _
"<FONT color=#0000CD>" & "<br></font>"
.HTMLBody = .HTMLBody & "With Our Kindest Regards,<P>" & c
''.SendUsingAccount = OutAccount
'Debug.Print .HTMLBody
.Display
End With
End If
End Function