send a mail include an attachment with CDO, if the attachment is in the DataBase, How to do it?

Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = "justme@xxxxxxxxxxxxx"
MyMail.To = "friend1@xxxxxxxxxxxx;friend2@xxxxxxxxxxxx"
MyMail.Subject = "Sending Mail via CDOSYS for Windows 2000/XP"
MyMail.TextBody = "Sending email with CDOSYS Message " &_
"objects is easy! Try it!"
MyMail.AddAttachment "c:\path\smiley.gif"
MyMail.Fields("urn:schemas:httpmail:importance").Value = 2;
MyMail.Fields.Update()
MyMail.Send()
Set MyMail = Nothing

If the "smiley.gif" is in the database(e.g. sql server),how to do it?


.

Relevant Pages
Loading