Hi Guy's after a little research, i am loosing myself here!!! can someone correct the html code for me please and point out where i am going wrong so that I can understand your changes
I HOPE ALL OF THIS MAKES SENSE!!!
I am looking to add 2 choices of links to an email where the recipient can click the relevant option and that would send back to us
The email we would receive from that link if Opt1 was clicked is:
"Thank you very much, I can confirm that I received my " & "£" & Me.Value & " along with my free gift"
The email we would receive from that link if Opt2 was clicked is:
"Thank you, the engineer that arrived did make an adjustment to the arrangements that we agreed with yourselves."
"Please inform us of the adjustments that the engineer made with you ?"
Note I haven't put all Dim's in but all Dim's are set as Strings apart from Calling Email
Outgoing mail body is "a" to "j"
Linked Reply options are Opt1 and Opt2
Reply Body is Return1, Return2, Return3
Code:
a = TOD & " " & myClient b = "Thank you for using our services recently to remove your redundant product."
c = "It is very important to us as we pride ourselves in serving all clients with a great service, we are just wanting to check to make sure that the full procedure was carried out according to plan."
d = "1: Did you receive your payment of £" & Me.Value & " ?"
e = "2: Did you receive your free gift ?"
f = "To prevent having to write out another email, simply click on the relevant link below to confirm all arrangements such as payment received ok and you were rewarded with your free gift."
g = "Finally, we just want to say thank you again for using our services and it was an absolute pleasure to assist, please stay safe."
h = "With Our Kindest Regards"
j = myName
Return1 = "Thank you very much, I can confirm that I received my " & "£" & Me.Value & " along with my free gift"
Return2 = "Thank you, the engineer that arrived did make an adjustment to the arrangements that we agreed with yourselves."
Return3 = "Please inform us of the adjustments that the engineer made with you ?"
mySubj = "Courtesy Email Ref " & Me.RecordNo
Opt1 = "Click here to confirm all was received as agreed"
Opt2 = "Click here to confirm that the engineer had to adjust the agreements made"
Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
Set OutAccount = oEmailItem.Session.Accounts.Item(2)
.To = myEmail
.HTMLBody = a & "<br>" & "<br>" & b & "<br>" & "<br>" & c & "<br>" & "<br> " & _
d & "<br>" & e & "<br>" & "<br>" & f & "<br>" & "<br>" & g & "<br>" & "<br>" & h & "<br>" & "<br>" & _
i & "<br>" & "<br>" & d & "<br>" & j & "<br>" & "<br>" & _
opt1 & "<a href=mailto:removedonhere.com?subject=" & mysubj & body=" & return1 & "<br>" & "<br>" & _
opt2 & "<a href=mailto:removedonhere.com?subject=" & mysubj & body=" & return2 & "<br>" & "<br>" return3 & "<br>" & "<br>" & _
"<P><IMG border=0 hspace=0 alt='' src='file://T:/Email Signature.jpg' align=baseline></P>" & "<br>" & "<br>" & _
"<FONT color=#0000CD>" & eDisc & "<br>" & "<FONT color =#0000CD>" & eDisc2
.SendUsingAccount = OutAccount
.Display
End With