by
Phil >> Sun, 23 Apr 2000 4:52:02 GMT
It is there. Your news reader may not be picking up old messages. Its from 1998 but here is the code. There is no logon so you'll need to find someone who will let you use their SMTP server for free (I may be doing that). Anyways here is the code. Courtest of Geoff Davies -
Test it in JADEScript
vars
tcp : TcpIpConnection;
smtp : String;
from : String;
too : String;
sub : String;
msg : String;begin
smtp := "143.96.31.69"; // replace with your own mail server
from := "<
gdavies@jade.co.nz>"; // replace with your email address
too := "<
person@somewhere.com>";
sub := "Hello World";
msg := "The traditional greeting.";
create tcp;
tcp.port := 25; // port for outgoing mail
tcp.name := smtp; // domain name or ip address of mail server
tcp.open;
tcp.writeBinary(("HELO " & app.computerName & CrLf).Binary);
tcp.writeBinary(("MAIL From: " & from & CrLf).Binary);
tcp.writeBinary(("RCPT To: " & too & CrLf).Binary);
tcp.writeBinary(("DATA" & CrLf).Binary);
tcp.writeBinary(("From: " & from & CrLf).Binary);
tcp.writeBinary(("To: " & too & CrLf).Binary);
tcp.writeBinary(("Subject: " & sub & CrLf).Binary);
tcp.writeBinary(CrLf.Binary);
tcp.writeBinary((msg & CrLf ).Binary);
tcp.writeBinary((CrLf & "." & CrLf).Binary);
tcp.writeBinary(("QUIT" & CrLf).Binary);
epilog
tcp.close;
delete tcp;
end;
--------------------------
"Is it some sort of killer Codemaster
Guardian destroying virus, that will keep
replicating and replicating until it takes
over Bob's entire body? Huh, Huh?
--------------------------