[KarSticx]

Nice Work Man Congratulations
Im Test It Now!!!

[BobFM]

Pretty badass. Simple, but no one has posted this here. (To my knowledge) Good share, but fix some of your Y/N if statements. Do

if /i "example"==y
if /i "example"==n

[01871717]

Wooo no flame please were all friends here ha-ha.
:D's for everyone!

Lies

[k3y]

Nice stuff sir, would you ever consider making a tutorial on what is needed to make one of these for us less then superhuman tech wizards?

[ComplexUnicorn]

Thanks! You got some High Quality coding going on there ;) Cheers <3

[X-Max-Tactical]

Wow my men !!! this is a Great one JOB you did.
Thanks a lot for sharing this.!!

[BasedElliott]

This is very good! Definitely gonna have to test this one out.

[Paulmad]

Nice work, I'll definitely give this a try.

[QuiMoritur]

Very nice, but there's a simpler way to do it. You can enter in whatever From address you want as long as you replace the "whateveryourISPis" with your actual ISP. I'm not sure if the rest of your code is just UI, but this is a lot simpler and easier to use.

Code

set objmessage = createobject("cdo.message")

objmessage.from = "[email protected]"
objmessage.to = "whatever your email address is"
objmessage.subject = "whatever subject you want"
objmessage.textbody = "put your information in here"

objmessage.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objmessage.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.whateveryourISPis.com"
objmessage.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objmessage.configuration.fields.update

objmessage.send