I use a WSH program to generate and send an email. The code is as follows:
' Create email object
Set oolApp = CreateObject("Outlook.Application"
Set email = oolApp.CreateItem(0)
email.Recipients.Add("me@myemail.com"
' Create the body of the email
MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD W3 HTML//EN"">"
MailBody = MailBody & "<HTML>" & vbcrlf
MailBody = MailBody & "<HEAD><TITLE>No Invoices</TITLE></HEAD>"
MailBody = MailBody & "<BODY>" & vbcrlf
MailBody = MailBody & "<B>For Your Information</B>,<BR><BR>"
MailBody = MailBody & "No invoices were issued today.<BR><BR>"
MailBody = MailBody & "</BODY></HTML>"
' Send the Email
email.Subject = "No Invoices Issued"
email.HTMLBody = MailBody
email.Send
In relation to adding recipients for the email, how do you add someone to the CC or Bcc list. Any help would be appreciated.
Mighty
' Create email object
Set oolApp = CreateObject("Outlook.Application"
Set email = oolApp.CreateItem(0)
email.Recipients.Add("me@myemail.com"
' Create the body of the email
MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD W3 HTML//EN"">"
MailBody = MailBody & "<HTML>" & vbcrlf
MailBody = MailBody & "<HEAD><TITLE>No Invoices</TITLE></HEAD>"
MailBody = MailBody & "<BODY>" & vbcrlf
MailBody = MailBody & "<B>For Your Information</B>,<BR><BR>"
MailBody = MailBody & "No invoices were issued today.<BR><BR>"
MailBody = MailBody & "</BODY></HTML>"
' Send the Email
email.Subject = "No Invoices Issued"
email.HTMLBody = MailBody
email.Send
In relation to adding recipients for the email, how do you add someone to the CC or Bcc list. Any help would be appreciated.
Mighty