Hello Everyone. I'm having a very tough time trying to figure out how to get this to work. Please help????
My email comes out like this:
here's my code:
Private Sub Complete_Click()
Dim OL As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim sHTML As String
Dim sSubject As String
Dim sTo As String
Dim sCC As String
'Dont forget to specifiy the references for the object library
'This is the body of the email, the "<br><br><br> are breaks for the html
sHTML = "<html><body> Collation Team," & "<br><br><br> " & "AutoRelease priorities have been chnaged to the below settings." & "<br><br><br> " & "Reason" & "<br><br><br> " & _
"New Settings" & "<br><br><br> " & "" & " <br></body></html>"
sSubject = "Collation AutoRelease Priority Change"
'sTo = ""
'sCC = ""
'calls the function to email
Call SendEMail(sTo, sCC, sSubject, sHTML)
End Sub