How can I send an email message from within a VBScript script?

hi tribina,

Is it possible to use your code on active web-page which i have? Im looking at a script which automatically extracts certain fields out of my website and automatically puts it into outlook mail ready to send, in contrast to the current procedure i follow which involves copy- pasting each time to compose an email. Id realy appreciate any help on this.

For another option, which doesn't require the use of IIS, try Blat. (http://www.blat.net) It works extremely well, and is very simple to configure.

Here's my submission of a sub that does the same but without the need for IIS or a server. It does require NetCat, http://m.nu/program/util/netcat/netcat.html.
Sub SendMsg(sMsg, sSub, sFrom, sTo, sSMTP)
smtpMsgs = Array("HELO ", "MAIL FROM:<" & sFrom & ">", "RCPT TO:<" & sTo & ">", "DATA", "TO:"& sTo, "SUBJECT:" & sSub , sMsg, ".", "quit")
Set oWS = WScript.CreateObject("WScript.Shell")
Set oExec = oWS.Exec("nc.exe -w 5 " & sSMTP & " 25")
WScript.Sleep 1000
for each smtpMsg in smtpMsgs
oExec.StdIn.Write smtpMsg & VbCrLf
WScript.sleep 100
next
end Sub

SendMsg "Hi From SendMsg", "Test", "foo@foo.com", "foobar@foobar.com", "smtpserver"