[VB 6] Sending E Mail Code

[+John Teacake MVC]

Hi all, Is there any code that I can use in my VB program so that I can send an e mail specifying an SMTP server. The thing is that the computer I am trying to send e mails from has not got an E Mail account set up; I just want it to send e mails like alerts when certain things happen.

[plaguethenet]

EDIT: I would either download a free smtp server such as postcast server or i would write some code to look up the mx record of the host after the @ symbol. either way the smtp conversation remains the same. i misread your post the first time i scanned it. with postcast you would connect to 127.0.0.1 or you would connect to what ever host you got from the mx record of say... yahoo.com here is an example output of nslookup looking for an mx record

C:\Documents and Settings\Yo>nslookup
Default Server:  rtr1.randmpc.com
Address:  192.168.4.1

> set type=MX
> yahoo.com
Server:  rtr1.randmpc.com
Address:  192.168.4.1

Non-authoritative answer:
yahoo.com       MX preference = 1, mail exchanger = mx1.mail.yahoo.com
yahoo.com       MX preference = 1, mail exchanger = mx2.mail.yahoo.com
yahoo.com       MX preference = 1, mail exchanger = mx3.mail.yahoo.com
yahoo.com       MX preference = 5, mail exchanger = mx4.mail.yahoo.com

yahoo.com       nameserver = ns4.yahoo.com
yahoo.com       nameserver = ns5.yahoo.com
yahoo.com       nameserver = ns1.yahoo.com
yahoo.com       nameserver = ns2.yahoo.com
yahoo.com       nameserver = ns3.yahoo.com
mx1.mail.yahoo.com      internet address = 4.79.181.14
mx1.mail.yahoo.com      internet address = 4.79.181.15
mx1.mail.yahoo.com      internet address = 67.28.113.10
mx1.mail.yahoo.com      internet address = 67.28.113.11
mx2.mail.yahoo.com      internet address = 4.79.181.13
mx2.mail.yahoo.com      internet address = 67.28.114.35
mx2.mail.yahoo.com      internet address = 67.28.114.36
mx2.mail.yahoo.com      internet address = 4.79.181.12
mx3.mail.yahoo.com      internet address = 64.156.215.6
mx3.mail.yahoo.com      internet address = 64.156.215.8
mx3.mail.yahoo.com      internet address = 64.156.215.18
mx3.mail.yahoo.com      internet address = 67.28.113.19
mx3.mail.yahoo.com      internet address = 64.156.215.5
mx4.mail.yahoo.com      internet address = 68.142.202.12
mx4.mail.yahoo.com      internet address = 66.218.86.156
mx4.mail.yahoo.com      internet address = 68.142.202.11
ns1.yahoo.com   internet address = 66.218.71.63
ns2.yahoo.com   internet address = 66.163.169.170
ns3.yahoo.com   internet address = 217.12.4.104
> gmail.com
Server:  rtr1.randmpc.com
Address:  192.168.4.1

Non-authoritative answer:
gmail.com       MX preference = 10, mail exchanger = gsmtp83-2.google.com
gmail.com       MX preference = 10, mail exchanger = gsmtp185-2.google.com
gmail.com       MX preference = 5, mail exchanger = gmail-smtp-in.l.google.com
gmail.com       MX preference = 10, mail exchanger = gsmtp83.google.com
gmail.com       MX preference = 10, mail exchanger = gsmtp163.google.com
gmail.com       MX preference = 10, mail exchanger = gsmtp185.google.com

gmail.com       nameserver = ns2.google.com
gmail.com       nameserver = ns3.google.com
gmail.com       nameserver = ns4.google.com
gmail.com       nameserver = ns1.google.com
gmail-smtp-in.l.google.com      internet address = 72.14.205.27
gsmtp83.google.com      internet address = 66.249.83.27
gsmtp163.google.com     internet address = 64.233.163.27
gsmtp185.google.com     internet address = 64.233.185.27
gsmtp83-2.google.com    internet address = 66.249.83.114
gsmtp185-2.google.com   internet address = 64.233.185.114
ns1.google.com  internet address = 216.239.32.10
ns2.google.com  internet address = 216.239.34.10
ns3.google.com  internet address = 216.239.36.10
ns4.google.com  internet address = 216.239.38.10
>

I am guessing that you want to do this for free? if so you can always open a socket and use the following conversation with the smtp server:

PSUEDO EXAMPLE:

Open Socket to MyServer on port 25 as Socket

wait for data beginning with the three chars 220
send helo
waif for data beginning with the three chars 250
send MAIL FROM:<me@mydomain.com>;
wait for data beginning with the three chars 250
send RCPT TO:<someone@something.net>;
wait for data beginning with the three chars  250
send DATA
wait for data beginning with the three chars 354
send your entire message followed by VbCrLf + "." + VbCrLf
Wait for data beginning with the three chars 250
Send quit
wait for data beginnging with the three chars 221
close socket

any other response besides the numbers i indicated above indicates an error or a warning. here is a sample conversation done with telnet 127.0.0.1 25 (because i am on an smtp server)... actually i used it as a reference for writing this post. and all lines must be terminated with a carrige return (vbcrlf or chr$(10,13))

220 user Microsoft ESMTP MAIL Service, Version: 6.0.2600.1 ready at  Tue, 25 Oct 2005 10:56:57 -0400
MAIL FROM:<plaguethenet@gmail.com>;
503 5.5.2 Send hello first
HELO
500 5.3.3 Unrecognized command
helo
250 user Hello [127.0.0.1]
MAIL FROM:<plaguethenet@gmail.com>;
250 2.1.0 plaguethenet@gmail.com....Sender OK
RCPT TO:<plaguethenet@gmail.com>
250 2.1.5 plaguethenet@gmail.com
data
354 Start mail input; end with <CRLF>.<CRLF>

.
250 2.6.0 <USERLkVTkD3a9pzyt5m00000002@user> Queued mail for delivery
help
214-This server supports the following commands:
214 HELO EHLO STARTTLS RCPT DATA RSET MAIL QUIT HELP AUTH BDAT VRFY
quit
221 2.0.0 user Service closing transmission channel


Connection to host lost.

ideally to check the numbers i would wait for 1 line to come throught first then i would check the first 3 chars. sending data when the server isnt ready could result in some rather interesting problems.

and there are plenty of socket tutorials out there. Hope this helped!

Edited October 25, 2005 by plaguethenet