Rooter1988
New member
- Local time
- Today, 04:20
- Joined
- Sep 14, 2015
- Messages
- 8
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:
[FONT="]Collation Team,
AutoRelease priorities have been changed to the below settings.
Reason (text should be here)
New Settings (Should be an image here)
[FONT="]here's my code:
[FONT="]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 = "[FONT="]"[/FONT]
'sCC = ""
'calls the function to email
Call SendEMail(sTo, sCC, sSubject, sHTML)
End Sub[/FONT]
[/FONT]
[/FONT]
My email comes out like this:
[FONT="]Collation Team,
AutoRelease priorities have been changed to the below settings.
Reason (text should be here)
New Settings (Should be an image here)
[FONT="]here's my code:
[FONT="]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 = "[FONT="]"[/FONT]
'sCC = ""
'calls the function to email
Call SendEMail(sTo, sCC, sSubject, sHTML)
End Sub[/FONT]
[/FONT]
[/FONT]
Last edited: