Send SMTP Mail via VB6

[rockies1]

We have an SMTP server here at work and I need to be able to send mail thru it.

Anyone have some simple code that works without having to register dll's?

I can't find any examples that 1) work or 2) don't make me register a DLL.

Thanks!!

[techyspecy]

If you have Microsoft CDONTS library installed ... you can use this code. This is as simple as you're going to get.

Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = strEmail
objMail.To = strEmailTo
objMail.Subject = strSource
objMail.Body = strContents
objMail.Send
Set objMail = Nothing

[apps_tech]

Originally posted by rockies1
We have an SMTP server here at work and I need to be able to send mail thru it.

Anyone have some simple code that works without having to register dll's?

I can't find any examples that 1) work or 2) don't make me register a DLL.

Thanks!!

You can try this option:

You can use OstroSoft SMTP component. Open file for input, read it into string variable, set SMTP.MessageBody equal to this variable and send it.

Also look into this URL for more info:

http://www.ostrosoft.com/smtp_component.asp

And this as well:
http://www.asp101.com/articles/john/cdosmtprelay/default.asp

Enjoy!!!!
apps_tech

[rockies1]

OstroSoft requires registering a dll...

[apps_tech]

Originally posted by rockies1
OstroSoft requires registering a dll...

Well then, u might try what techspacey has mentioned. It should work!!!!

Enjoy!!!
apps_tech

[rockies1]

Originally posted by techyspecy
If you have Microsoft CDONTS library installed ... you can use this code. This is as simple as you're going to get.

How do I tell?

I tried setting a reference to Microsoft CDO for NTS 1.2 Library, but I get

? err.Number
 429 
? err.Description
ActiveX component can't create object

[manavo11]

I believe this should cover your needs.

[rockies1]

I found this and it worked!

http://winsockvb.com/article.php?article_id=20&page=1

Thanks for all the help & pointers!!