Illkillutill
2010-05-13 13:28:30
Is there any way that scar can directly email you?
2010-05-13 13:28:30
2010-05-13 13:40:24
2010-05-13 13:45:18
2010-05-13 13:49:37
2010-05-13 14:26:22
Function WaitForResponse(c : Integer): string;
begin
repeat
if (ReadConnectionData(c, Result))then
begin
Wait(50);
end else
begin
Exit;
end;
until((Result<>'') or (not IsConnectionOpen(c)));
end;
Procedure SendEmail;
var
c : Integer;
begin
c := OpenConnection('smtp.comcast.net', 25, 1000);
WaitForResponse(c);
SendConnectionData(c, 'HELO me' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'MAIL FROM: emailaddress' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'RCPT TO: <emailaddress>' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'DATA' + #13#10);
WaitForResponse(c);
SendConnectionData(c, 'Subject: yoursubject' + #13#10#13#10);
SendConnectionData(c, 'This is the message it will send' + #13#10);
SendConnectionData(c, '.' + #13#10);
WaitForResponse(c);
end;
2010-05-13 14:29:32
2010-05-13 14:51:24
2010-05-13 14:59:57
2010-05-13 15:00:49
2010-05-13 15:06:26
2010-05-13 15:12:07
2010-05-13 15:16:54
2010-05-14 00:06:55