Sending CDO Email via VBS with embedded attachments

Recently it was asked in another NG post:



I have an asp (classic) page from which I send mails to some users. I
select those users from a recordset and depending upon certain
condition, the messsages are sent.
Well, if I load this asp file, all the stuff works fine: the recordset,
the mails sent to the correct users (using CDOSYS in Win2003), so now
they can receive and read the messages without a single problem.

Now I need something like a demon implemented in a .vbs script. With a
bat file running every hour, i need the same functionalities: connect
and build the recordset, and sending the mails to the users in an
automated way, every hour.
But I just don't know if it's possible to do such a task. somebody has
an example of how could you send a mail from a vbs file that works
within the task manager? I don't ask for the task manager obviously,
but for the way sending mails are implemented in an automated .vbs.
I suppose it's not enough to paste part the same code (for connection
and recordset and mails) from the asp file into the vbs.
Hope my explanation is clear enough. Thanks in advance.




In response I offered up my last post : Recurring AT scheduling using VBS and batch files.
and then I proceeded to put together the code to generate an email using CDO from VBS.



I know, this has been done a thousand times, but i could not find an example
that properly implemented inline embedded images so I spent the time to write
one... enjoy...


here was the text of my reply:



...And this will permit you to send an HTML EMail with embedded images
using just VBScript and CDO accessing an outside server and providing
the appropriate credentials...

re:embedded image [ "file://C:\sounds\junk.gif" ]

  You must follow that format or the embedding fails
  and ... and you'll find  "junk.gif"  inside of the HTML body of the email too.

hth,

D.

email.vbs


' VB Script Document
option explicit
Dim HTML
Dim contentId

Dim MyMail
Set MyMail = CreateObject("CDO.Message")
with MyMail

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & chr(13) & chr(10) 
HTML = HTML & "<html>" 
HTML = HTML & "<head>" 
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>Automated Emails!</title>" 
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">" 
HTML = HTML & "<p>" 
HTML = HTML & "<img src=""cid:junk.gif""><br>" 
HTML = HTML & "<a href=""http://www.google.com"">"
HTML = HTML & "Do a Google Search!</a>" 
HTML = HTML & "</p>" 
HTML = HTML & "<b>More HTML Here!</b>"
HTML = HTML & "</body>" 
HTML = HTML & "</html>" 


.From = "From@comcast.net"
.To = "ToEmail@hotmail.com;someoneElse@somewhere.com"
.CC = "emailAddr@somewhere.com"
.BCC = "emailAddr@somewhere.com"
.Subject = "VBS Email via CDONTS"
.HTMLBody = HTML

Const cdoSchema = "http://schemas.microsoft.com/cdo/configuration/"
.Configuration.Fields.Item(cdoSchema & "sendusing") = 2
.Configuration.Fields.Item(cdoSchema & "smtpserver") = "smtp.ISP.net"
.Configuration.Fields.Item(cdoSchema & "smtpserverport") = 25
.Configuration.Fields.Item(cdoSchema & "smtpauthenticate") = 1
.Configuration.Fields.Item(cdoSchema & "sendusername") = "ISP UserName"
.Configuration.Fields.Item(cdoSchema & "sendpassword") = "ISPPassword"
.Configuration.Fields.Update

.AddRelatedBodyPart "file://C:\sounds\junk.gif", "junk.gif", 0

.Send

End With
Set MyMail = Nothing






Comments

Anonymous said…
I've been searching forever trying to find this solution with no luck. THANK YOU SO MUCH FOR POSTING THIS!!!
Jul 17, 2008, 10:36:00 AM
Post a Comment

Popular posts from this blog

Lupeo

So there I was, beside myself, feeling as though a mere shadow of who I was stood at my oblique, and I wondered aloud as if anyone would reply, "Have I really been this vile menacing consort, this degenerate sire, whom at the cusp of every twilight, I am lambasted into identifying with?"  Her nightly assaults had become my expectation, not an exception to the rule, but more the rule by which all other nights were measured.  Have you ever heard yourself saying, "Tomorrow will be better."  Can you recall ever rationalizing an others' malevolent intent with introspective impute?  I failed to prepare for the siege that would cleave my core in two; separating me from love, family, property, and value of self.  The scars I bear will fester for decades as my shrew profits fantastically from the spoils of war.  Justice is not available.  Solace may be received only when there is someone left in your life that has not been run off bearing witness to the siege. As she c
Read more
Everybody is thanking our medical professionals for the wonderful job they're doing ... ...NOT properly diagnosing this fucking covid 19 electromagnetic political war against us... yes I am fucking pissed.  You people are supposed to be the medical professionals. How come not fucking one of you has figured out that this is radiation pneumonitis. I am not here to cuddle you fucking worthless sacks of shit.  Do your fucking job better or get the fuck out of healthcare. Oh, you didn't know 5G was radiotherapy? March 6th 2020, AT&T went online with 5G... 7 days later people started presenting with covid-19 They are running a ++scam++ on top of a +++genocide+++... Clinical presentation Radiation pneumonitis typically occurs between 4 and 12 weeks following completion of radiotherapy course, although they may be seen as early as one week, especially in patients receiving a high total dose and/or also having received chemotherapy 1-3. Symptoms typically include
Read more

NLE 2020 NEP

National Level Exercise (NLE) 2022 will focus on a simulated catastrophic earthquake caused by a rupture along the Cascadia Subduction Zone fault in the Pacific Northwest, and includes subsequent tsunamis, aftershocks and a Spill of National Significance (SONS).  NLE 2022 leverages a modular exercise design that focuses on both response and recovery. The response module of the exercise would focus on stabilization of community lifelines within impacted states with specific emphasis on the core capabilities of operational coordination, situational assessment, infrastructure systems, environmental response/health and safety, critical transportation, and mass care. The recovery module of the exercise would focus on transitioning from sheltering to housing, economic recovery and result in the development of a recovery strategy manageable by the state(s) and executable locally with adequate federal support. NLE 2022 will build on Cascadia Rising 2016, a regional disaster response exercise,
Read more