Release 23
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@49 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
806
smtpsend.pas
806
smtpsend.pas
@@ -1,11 +1,11 @@
|
||||
{==============================================================================|
|
||||
| Project : Delphree - Synapse | 002.001.002 |
|
||||
| Project : Delphree - Synapse | 002.001.003 |
|
||||
|==============================================================================|
|
||||
| Content: SMTP client |
|
||||
|==============================================================================|
|
||||
| The contents of this file are subject to the Mozilla Public License Ver. 1.0 |
|
||||
| The contents of this file are Subject to the Mozilla Public License Ver. 1.1 |
|
||||
| (the "License"); you may not use this file except in compliance with the |
|
||||
| License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ |
|
||||
| License. You may obtain a Copy of the License at http://www.mozilla.org/MPL/ |
|
||||
| |
|
||||
| Software distributed under the License is distributed on an "AS IS" basis, |
|
||||
| WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for |
|
||||
@@ -23,485 +23,481 @@
|
||||
| (Found at URL: http://www.ararat.cz/synapse/) |
|
||||
|==============================================================================}
|
||||
|
||||
{$WEAKPACKAGEUNIT ON}
|
||||
|
||||
unit SMTPsend;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Blcksock, sysutils, classes, SynaUtil, SynaCode;
|
||||
SysUtils, Classes,
|
||||
blcksock, SynaUtil, SynaCode;
|
||||
|
||||
const
|
||||
CRLF=#13+#10;
|
||||
cSmtpProtocol = 'smtp';
|
||||
|
||||
type
|
||||
TSMTPSend = class
|
||||
TSMTPSend = class(TObject)
|
||||
private
|
||||
Sock:TTCPBlockSocket;
|
||||
procedure EnhancedCode(value:string);
|
||||
function ReadResult:integer;
|
||||
FSock: TTCPBlockSocket;
|
||||
FTimeout: Integer;
|
||||
FSMTPHost: string;
|
||||
FSMTPPort: string;
|
||||
FResultCode: Integer;
|
||||
FResultString: string;
|
||||
FFullResult: TStringList;
|
||||
FESMTPcap: TStringList;
|
||||
FESMTP: Boolean;
|
||||
FUsername: string;
|
||||
FPassword: string;
|
||||
FAuthDone: Boolean;
|
||||
FESMTPSize: Boolean;
|
||||
FMaxSize: Integer;
|
||||
FEnhCode1: Integer;
|
||||
FEnhCode2: Integer;
|
||||
FEnhCode3: Integer;
|
||||
FSystemName: string;
|
||||
procedure EnhancedCode(const Value: string);
|
||||
function ReadResult: Integer;
|
||||
function AuthLogin: Boolean;
|
||||
function AuthCram: Boolean;
|
||||
function Helo: Boolean;
|
||||
function Ehlo: Boolean;
|
||||
function Connect: Boolean;
|
||||
public
|
||||
timeout:integer;
|
||||
SMTPHost:string;
|
||||
SMTPPort:string;
|
||||
ResultCode:integer;
|
||||
ResultString:string;
|
||||
FullResult:TStringList;
|
||||
ESMTPcap:TStringList;
|
||||
ESMTP:boolean;
|
||||
Username:string;
|
||||
Password:string;
|
||||
AuthDone:boolean;
|
||||
ESMTPSize:boolean;
|
||||
MaxSize:integer;
|
||||
EnhCode1:integer;
|
||||
EnhCode2:integer;
|
||||
EnhCode3:integer;
|
||||
SystemName:string;
|
||||
Constructor Create;
|
||||
Destructor Destroy; override;
|
||||
function AuthLogin:Boolean;
|
||||
function AuthCram:Boolean;
|
||||
function Connect:Boolean;
|
||||
function Helo:Boolean;
|
||||
function Ehlo:Boolean;
|
||||
function login:Boolean;
|
||||
procedure logout;
|
||||
function reset:Boolean;
|
||||
function noop:Boolean;
|
||||
function mailfrom(Value:string; size:integer):Boolean;
|
||||
function mailto(Value:string):Boolean;
|
||||
function maildata(Value:Tstrings):Boolean;
|
||||
function etrn(Value:string):Boolean;
|
||||
function verify(Value:string):Boolean;
|
||||
function EnhCodeString:string;
|
||||
function FindCap(value:string):string;
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
function Login: Boolean;
|
||||
procedure Logout;
|
||||
function Reset: Boolean;
|
||||
function NoOp: Boolean;
|
||||
function MailFrom(const Value: string; Size: Integer): Boolean;
|
||||
function MailTo(const Value: string): Boolean;
|
||||
function MailData(const Value: Tstrings): Boolean;
|
||||
function Etrn(const Value: string): Boolean;
|
||||
function Verify(const Value: string): Boolean;
|
||||
function EnhCodeString: string;
|
||||
function FindCap(const Value: string): string;
|
||||
published
|
||||
property Timeout: Integer read FTimeout Write FTimeout;
|
||||
property SMTPHost: string read FSMTPHost Write FSMTPHost;
|
||||
property SMTPPort: string read FSMTPPort Write FSMTPPort;
|
||||
property ResultCode: Integer read FResultCode;
|
||||
property ResultString: string read FResultString;
|
||||
property FullResult: TStringList read FFullResult;
|
||||
property ESMTPcap: TStringList read FESMTPcap;
|
||||
property ESMTP: Boolean read FESMTP;
|
||||
property Username: string read FUsername Write FUsername;
|
||||
property Password: string read FPassword Write FPassword;
|
||||
property AuthDone: Boolean read FAuthDone;
|
||||
property ESMTPSize: Boolean read FESMTPSize;
|
||||
property MaxSize: Integer read FMaxSize;
|
||||
property EnhCode1: Integer read FEnhCode1;
|
||||
property EnhCode2: Integer read FEnhCode2;
|
||||
property EnhCode3: Integer read FEnhCode3;
|
||||
property SystemName: string read FSystemName Write FSystemName;
|
||||
end;
|
||||
|
||||
function SendtoRaw
|
||||
(mailfrom,mailto,SMTPHost:string;maildata:TStrings;Username,Password:string):Boolean;
|
||||
function Sendto
|
||||
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
|
||||
function SendtoEx
|
||||
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings;Username,Password:string):Boolean;
|
||||
function SendToRaw(const MailFrom, MailTo, SMTPHost: string;
|
||||
const MailData: TStrings; const Username, Password: string): Boolean;
|
||||
function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string;
|
||||
const MailData: TStrings): Boolean;
|
||||
function SendToEx(const MailFrom, MailTo, Subject, SMTPHost: string;
|
||||
const MailData: TStrings; const Username, Password: string): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{TSMTPSend.Create}
|
||||
Constructor TSMTPSend.Create;
|
||||
const
|
||||
CRLF = #13#10;
|
||||
|
||||
constructor TSMTPSend.Create;
|
||||
begin
|
||||
inherited Create;
|
||||
FullResult:=TStringList.create;
|
||||
ESMTPcap:=TStringList.create;
|
||||
sock:=TTCPBlockSocket.create;
|
||||
sock.CreateSocket;
|
||||
timeout:=300000;
|
||||
SMTPhost:='localhost';
|
||||
SMTPPort:='smtp';
|
||||
Username:='';
|
||||
Password:='';
|
||||
SystemName:=sock.localname;
|
||||
FFullResult := TStringList.Create;
|
||||
FESMTPcap := TStringList.Create;
|
||||
FSock := TTCPBlockSocket.Create;
|
||||
FSock.CreateSocket;
|
||||
FTimeout := 300000;
|
||||
FSMTPhost := cLocalhost;
|
||||
FSMTPPort := cSmtpProtocol;
|
||||
FUsername := '';
|
||||
FPassword := '';
|
||||
FSystemName := FSock.LocalName;
|
||||
end;
|
||||
|
||||
{TSMTPSend.Destroy}
|
||||
Destructor TSMTPSend.Destroy;
|
||||
destructor TSMTPSend.Destroy;
|
||||
begin
|
||||
Sock.free;
|
||||
ESMTPcap.free;
|
||||
FullResult.free;
|
||||
inherited destroy;
|
||||
FSock.Free;
|
||||
FESMTPcap.Free;
|
||||
FFullResult.Free;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
{TSMTPSend.EnhancedCode}
|
||||
procedure TSMTPSend.EnhancedCode (value:string);
|
||||
procedure TSMTPSend.EnhancedCode(const Value: string);
|
||||
var
|
||||
s,t:string;
|
||||
e1,e2,e3:integer;
|
||||
s, t: string;
|
||||
e1, e2, e3: Integer;
|
||||
begin
|
||||
EnhCode1:=0;
|
||||
EnhCode2:=0;
|
||||
EnhCode3:=0;
|
||||
s:=copy(value,5,length(value)-4);
|
||||
t:=separateleft(s,'.');
|
||||
s:=separateright(s,'.');
|
||||
if t='' then exit;
|
||||
if length(t)>1 then exit;
|
||||
e1:=strtointdef(t,0);
|
||||
if e1=0 then exit;
|
||||
t:=separateleft(s,'.');
|
||||
s:=separateright(s,'.');
|
||||
if t='' then exit;
|
||||
if length(t)>3 then exit;
|
||||
e2:=strtointdef(t,0);
|
||||
t:=separateleft(s,' ');
|
||||
if t='' then exit;
|
||||
if length(t)>3 then exit;
|
||||
e3:=strtointdef(t,0);
|
||||
EnhCode1:=e1;
|
||||
EnhCode2:=e2;
|
||||
EnhCode3:=e3;
|
||||
FEnhCode1 := 0;
|
||||
FEnhCode2 := 0;
|
||||
FEnhCode3 := 0;
|
||||
s := Copy(Value, 5, Length(Value) - 4);
|
||||
t := SeparateLeft(s, '.');
|
||||
s := SeparateRight(s, '.');
|
||||
if t = '' then
|
||||
Exit;
|
||||
if Length(t) > 1 then
|
||||
Exit;
|
||||
e1 := StrToIntDef(t, 0);
|
||||
if e1 = 0 then
|
||||
Exit;
|
||||
t := SeparateLeft(s, '.');
|
||||
s := SeparateRight(s, '.');
|
||||
if t = '' then
|
||||
Exit;
|
||||
if Length(t) > 3 then
|
||||
Exit;
|
||||
e2 := StrToIntDef(t, 0);
|
||||
t := SeparateLeft(s, ' ');
|
||||
if t = '' then
|
||||
Exit;
|
||||
if Length(t) > 3 then
|
||||
Exit;
|
||||
e3 := StrToIntDef(t, 0);
|
||||
FEnhCode1 := e1;
|
||||
FEnhCode2 := e2;
|
||||
FEnhCode3 := e3;
|
||||
end;
|
||||
|
||||
{TSMTPSend.ReadResult}
|
||||
function TSMTPSend.ReadResult:integer;
|
||||
function TSMTPSend.ReadResult: Integer;
|
||||
var
|
||||
s:string;
|
||||
s: string;
|
||||
begin
|
||||
Result:=0;
|
||||
FullResult.Clear;
|
||||
Result := 0;
|
||||
FFullResult.Clear;
|
||||
repeat
|
||||
s:=sock.recvstring(timeout);
|
||||
ResultString:=s;
|
||||
FullResult.add(s);
|
||||
if sock.LastError<>0 then
|
||||
break;
|
||||
until pos('-',s)<>4;
|
||||
s:=FullResult[0];
|
||||
if Length(s)>=3 then Result:=Strtointdef(Copy(s,1,3),0);
|
||||
ResultCode:=Result;
|
||||
s := FSock.RecvString(FTimeout);
|
||||
FResultString := s;
|
||||
FFullResult.Add(s);
|
||||
if FSock.LastError <> 0 then
|
||||
Break;
|
||||
until Pos('-', s) <> 4;
|
||||
s := FFullResult[0];
|
||||
if Length(s) >= 3 then
|
||||
Result := StrToIntDef(Copy(s, 1, 3), 0);
|
||||
FResultCode := Result;
|
||||
EnhancedCode(s);
|
||||
end;
|
||||
|
||||
{TSMTPSend.AuthLogin}
|
||||
function TSMTPSend.AuthLogin:Boolean;
|
||||
function TSMTPSend.AuthLogin: Boolean;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('AUTH LOGIN'+CRLF);
|
||||
if readresult<>334 then Exit;
|
||||
Sock.SendString(Encodebase64(username)+CRLF);
|
||||
if readresult<>334 then Exit;
|
||||
Sock.SendString(Encodebase64(password)+CRLF);
|
||||
if readresult<>235 then Exit;
|
||||
Result:=True;
|
||||
Result := False;
|
||||
FSock.SendString('AUTH LOGIN' + CRLF);
|
||||
if ReadResult <> 334 then
|
||||
Exit;
|
||||
FSock.SendString(EncodeBase64(FUsername) + CRLF);
|
||||
if ReadResult <> 334 then
|
||||
Exit;
|
||||
FSock.SendString(EncodeBase64(FPassword) + CRLF);
|
||||
Result := ReadResult = 235;
|
||||
end;
|
||||
|
||||
{TSMTPSend.AuthCram}
|
||||
function TSMTPSend.AuthCram:Boolean;
|
||||
function TSMTPSend.AuthCram: Boolean;
|
||||
var
|
||||
s:string;
|
||||
s: string;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('AUTH CRAM-MD5'+CRLF);
|
||||
if readresult<>334 then Exit;
|
||||
s:=copy(ResultString,5,length(ResultString)-4);
|
||||
s:=DecodeBase64(s);
|
||||
s:=HMAC_MD5(s,password);
|
||||
s:=Username+' '+strtohex(s);
|
||||
Sock.SendString(Encodebase64(s)+CRLF);
|
||||
if readresult<>235 then Exit;
|
||||
Result:=True;
|
||||
Result := False;
|
||||
FSock.SendString('AUTH CRAM-MD5' + CRLF);
|
||||
if ReadResult <> 334 then
|
||||
Exit;
|
||||
s := Copy(FResultString, 5, Length(FResultString) - 4);
|
||||
s := DecodeBase64(s);
|
||||
s := HMAC_MD5(s, FPassword);
|
||||
s := FUsername + ' ' + StrToHex(s);
|
||||
FSock.SendString(EncodeBase64(s) + CRLF);
|
||||
Result := ReadResult = 235;
|
||||
end;
|
||||
|
||||
{TSMTPSend.Connect}
|
||||
function TSMTPSend.Connect:Boolean;
|
||||
function TSMTPSend.Connect: Boolean;
|
||||
begin
|
||||
Result:=false;
|
||||
sock.CloseSocket;
|
||||
sock.CreateSocket;
|
||||
sock.Connect(SMTPHost,SMTPPort);
|
||||
if sock.lasterror<>0 then Exit;
|
||||
Result:=True;
|
||||
FSock.CloseSocket;
|
||||
FSock.CreateSocket;
|
||||
FSock.Connect(FSMTPHost, FSMTPPort);
|
||||
Result := FSock.LastError = 0;
|
||||
end;
|
||||
|
||||
{TSMTPSend.Helo}
|
||||
function TSMTPSend.Helo:Boolean;
|
||||
function TSMTPSend.Helo: Boolean;
|
||||
var
|
||||
x:integer;
|
||||
x: Integer;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('HELO '+SystemName+CRLF);
|
||||
x:=ReadResult;
|
||||
if (x<250) or (x>259) then Exit;
|
||||
Result:=True;
|
||||
FSock.SendString('HELO ' + FSystemName + CRLF);
|
||||
x := ReadResult;
|
||||
Result := (x >= 250) and (x <= 259);
|
||||
end;
|
||||
|
||||
{TSMTPSend.Ehlo}
|
||||
function TSMTPSend.Ehlo:Boolean;
|
||||
function TSMTPSend.Ehlo: Boolean;
|
||||
var
|
||||
x:integer;
|
||||
x: Integer;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('EHLO '+SystemName+CRLF);
|
||||
x:=ReadResult;
|
||||
if (x<250) or (x>259) then Exit;
|
||||
Result:=True;
|
||||
FSock.SendString('EHLO ' + FSystemName + CRLF);
|
||||
x := ReadResult;
|
||||
Result := (x >= 250) and (x <= 259);
|
||||
end;
|
||||
|
||||
{TSMTPSend.login}
|
||||
function TSMTPSend.login:Boolean;
|
||||
function TSMTPSend.Login: Boolean;
|
||||
var
|
||||
n:integer;
|
||||
auths:string;
|
||||
s:string;
|
||||
n: Integer;
|
||||
auths: string;
|
||||
s: string;
|
||||
begin
|
||||
Result:=False;
|
||||
ESMTP:=true;
|
||||
AuthDone:=false;
|
||||
ESMTPcap.clear;
|
||||
ESMTPSize:=false;
|
||||
MaxSize:=0;
|
||||
if not Connect then Exit;
|
||||
if readresult<>220 then Exit;
|
||||
Result := False;
|
||||
FESMTP := True;
|
||||
FAuthDone := False;
|
||||
FESMTPcap.clear;
|
||||
FESMTPSize := False;
|
||||
FMaxSize := 0;
|
||||
if not Connect then
|
||||
Exit;
|
||||
if ReadResult <> 220 then
|
||||
Exit;
|
||||
if not Ehlo then
|
||||
begin
|
||||
FESMTP := False;
|
||||
if not Helo then
|
||||
Exit;
|
||||
end;
|
||||
Result := True;
|
||||
if FESMTP then
|
||||
begin
|
||||
for n := 1 to FFullResult.Count - 1 do
|
||||
FESMTPcap.Add(Copy(FFullResult[n], 5, Length(FFullResult[n]) - 4));
|
||||
if not ((FUsername = '') and (FPassword = '')) then
|
||||
begin
|
||||
ESMTP:=false;
|
||||
if not Helo then exit;
|
||||
end;
|
||||
Result:=True;
|
||||
if ESMTP then
|
||||
begin
|
||||
for n:=1 to FullResult.count-1 do
|
||||
ESMTPcap.add(Copy(FullResult[n],5,length(Fullresult[n])-4));
|
||||
if not ((Username='') and (Password='')) then
|
||||
begin
|
||||
s:=FindCap('AUTH ');
|
||||
if s=''
|
||||
then s:=FindCap('AUTH=');
|
||||
auths:=uppercase(s);
|
||||
if s<>'' then
|
||||
begin
|
||||
if pos('CRAM-MD5',auths)>0
|
||||
then AuthDone:=AuthCram;
|
||||
if (pos('LOGIN',auths)>0) and (not authDone)
|
||||
then AuthDone:=AuthLogin;
|
||||
end;
|
||||
if AuthDone
|
||||
then Ehlo;
|
||||
end;
|
||||
s:=FindCap('SIZE');
|
||||
if s<>'' then
|
||||
begin
|
||||
ESMTPsize:=true;
|
||||
MaxSize:=StrToIntDef(copy(s,6,length(s)-5),0);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{TSMTPSend.logout}
|
||||
procedure TSMTPSend.logout;
|
||||
begin
|
||||
Sock.SendString('QUIT'+CRLF);
|
||||
readresult;
|
||||
Sock.CloseSocket;
|
||||
end;
|
||||
|
||||
{TSMTPSend.reset}
|
||||
function TSMTPSend.reset:Boolean;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('RSET'+CRLF);
|
||||
if readresult<>250 then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
{TSMTPSend.noop}
|
||||
function TSMTPSend.noop:Boolean;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('NOOP'+CRLF);
|
||||
if readresult<>250 then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
|
||||
{TSMTPSend.mailfrom}
|
||||
function TSMTPSend.mailfrom(Value:string; size:integer):Boolean;
|
||||
var
|
||||
s:string;
|
||||
begin
|
||||
Result:=false;
|
||||
s:='MAIL FROM:<'+Value+'>';
|
||||
if ESMTPsize and (size>0)
|
||||
then s:=s+' SIZE='+IntToStr(size);
|
||||
Sock.SendString(s+CRLF);
|
||||
if readresult<>250 then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
{TSMTPSend.mailto}
|
||||
function TSMTPSend.mailto(Value:string):Boolean;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('RCPT TO:<'+Value+'>'+CRLF);
|
||||
if readresult<>250 then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
{TSMTPSend.maildata}
|
||||
function TSMTPSend.maildata(Value:Tstrings):Boolean;
|
||||
var
|
||||
n:integer;
|
||||
s:string;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('DATA'+CRLF);
|
||||
if readresult<>354 then Exit;
|
||||
for n:=0 to Value.Count-1 do
|
||||
begin
|
||||
s:=value[n];
|
||||
if Length(s)>=1 then
|
||||
if s[1]='.' then s:='.'+s;
|
||||
Sock.SendString(s+CRLF);
|
||||
end;
|
||||
Sock.SendString('.'+CRLF);
|
||||
if readresult<>250 then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
{TSMTPSend.etrn}
|
||||
function TSMTPSend.etrn(Value:string):Boolean;
|
||||
var
|
||||
x:integer;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('ETRN '+Value+CRLF);
|
||||
x:=ReadResult;
|
||||
if (x<250) or (x>259) then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
{TSMTPSend.verify}
|
||||
function TSMTPSend.verify(Value:string):Boolean;
|
||||
var
|
||||
x:integer;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('VRFY '+Value+CRLF);
|
||||
x:=ReadResult;
|
||||
if (x<250) or (x>259) then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
{TSMTPSend.EnhCodeString}
|
||||
function TSMTPSend.EnhCodeString:string;
|
||||
var
|
||||
s,t:string;
|
||||
begin
|
||||
s:=inttostr(EnhCode2)+'.'+inttostr(EnhCode3);
|
||||
t:='';
|
||||
if s='0.0' then t:='Other undefined Status';
|
||||
if s='1.0' then t:='Other address status';
|
||||
if s='1.1' then t:='Bad destination mailbox address';
|
||||
if s='1.2' then t:='Bad destination system address';
|
||||
if s='1.3' then t:='Bad destination mailbox address syntax';
|
||||
if s='1.4' then t:='Destination mailbox address ambiguous';
|
||||
if s='1.5' then t:='Destination mailbox address valid';
|
||||
if s='1.6' then t:='Mailbox has moved';
|
||||
if s='1.7' then t:='Bad sender''s mailbox address syntax';
|
||||
if s='1.8' then t:='Bad sender''s system address';
|
||||
if s='2.0' then t:='Other or undefined mailbox status';
|
||||
if s='2.1' then t:='Mailbox disabled, not accepting messages';
|
||||
if s='2.2' then t:='Mailbox full';
|
||||
if s='2.3' then t:='Message length exceeds administrative limit';
|
||||
if s='2.4' then t:='Mailing list expansion problem';
|
||||
if s='3.0' then t:='Other or undefined mail system status';
|
||||
if s='3.1' then t:='Mail system full';
|
||||
if s='3.2' then t:='System not accepting network messages';
|
||||
if s='3.3' then t:='System not capable of selected features';
|
||||
if s='3.4' then t:='Message too big for system';
|
||||
if s='3.5' then t:='System incorrectly configured';
|
||||
if s='4.0' then t:='Other or undefined network or routing status';
|
||||
if s='4.1' then t:='No answer from host';
|
||||
if s='4.2' then t:='Bad connection';
|
||||
if s='4.3' then t:='Routing server failure';
|
||||
if s='4.4' then t:='Unable to route';
|
||||
if s='4.5' then t:='Network congestion';
|
||||
if s='4.6' then t:='Routing loop detected';
|
||||
if s='4.7' then t:='Delivery time expired';
|
||||
if s='5.0' then t:='Other or undefined protocol status';
|
||||
if s='5.1' then t:='Invalid command';
|
||||
if s='5.2' then t:='Syntax error';
|
||||
if s='5.3' then t:='Too many recipients';
|
||||
if s='5.4' then t:='Invalid command arguments';
|
||||
if s='5.5' then t:='Wrong protocol version';
|
||||
if s='6.0' then t:='Other or undefined media error';
|
||||
if s='6.1' then t:='Media not supported';
|
||||
if s='6.2' then t:='Conversion required and prohibited';
|
||||
if s='6.3' then t:='Conversion required but not supported';
|
||||
if s='6.4' then t:='Conversion with loss performed';
|
||||
if s='6.5' then t:='Conversion failed';
|
||||
if s='7.0' then t:='Other or undefined security status';
|
||||
if s='7.1' then t:='Delivery not authorized, message refused';
|
||||
if s='7.2' then t:='Mailing list expansion prohibited';
|
||||
if s='7.3' then t:='Security conversion required but not possible';
|
||||
if s='7.4' then t:='Security features not supported';
|
||||
if s='7.5' then t:='Cryptographic failure';
|
||||
if s='7.6' then t:='Cryptographic algorithm not supported';
|
||||
if s='7.7' then t:='Message integrity failure';
|
||||
s:='???-';
|
||||
if EnhCode1=2 then s:='Success-';
|
||||
if EnhCode1=4 then s:='Persistent Transient Failure-';
|
||||
if EnhCode1=5 then s:='Permanent Failure-';
|
||||
result:=s+t;
|
||||
end;
|
||||
|
||||
{TSMTPSend.FindCap}
|
||||
function TSMTPSend.FindCap(value:string):string;
|
||||
var
|
||||
n:integer;
|
||||
s:string;
|
||||
begin
|
||||
s:=uppercase(value);
|
||||
result:='';
|
||||
for n:=0 to ESMTPcap.count-1 do
|
||||
if pos(s,uppercase(ESMTPcap[n]))=1 then
|
||||
s := FindCap('AUTH ');
|
||||
if s = '' then
|
||||
s := FindCap('AUTH=');
|
||||
auths := UpperCase(s);
|
||||
if s <> '' then
|
||||
begin
|
||||
result:=ESMTPcap[n];
|
||||
break;
|
||||
if Pos('CRAM-MD5', auths) > 0 then
|
||||
FAuthDone := AuthCram;
|
||||
if (Pos('LOGIN', auths) > 0) and (not FauthDone) then
|
||||
FAuthDone := AuthLogin;
|
||||
end;
|
||||
if FAuthDone then
|
||||
Ehlo;
|
||||
end;
|
||||
s := FindCap('SIZE');
|
||||
if s <> '' then
|
||||
begin
|
||||
FESMTPsize := True;
|
||||
FMaxSize := StrToIntDef(Copy(s, 6, Length(s) - 5), 0);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSMTPSend.Logout;
|
||||
begin
|
||||
FSock.SendString('QUIT' + CRLF);
|
||||
ReadResult;
|
||||
FSock.CloseSocket;
|
||||
end;
|
||||
|
||||
function TSMTPSend.Reset: Boolean;
|
||||
begin
|
||||
FSock.SendString('RSET' + CRLF);
|
||||
Result := ReadResult = 250;
|
||||
end;
|
||||
|
||||
function TSMTPSend.NoOp: Boolean;
|
||||
begin
|
||||
FSock.SendString('NOOP' + CRLF);
|
||||
Result := ReadResult = 250;
|
||||
end;
|
||||
|
||||
function TSMTPSend.MailFrom(const Value: string; Size: Integer): Boolean;
|
||||
var
|
||||
s: string;
|
||||
begin
|
||||
s := 'MAIL FROM:<' + Value + '>';
|
||||
if FESMTPsize and (Size > 0) then
|
||||
s := s + ' SIZE=' + IntToStr(Size);
|
||||
FSock.SendString(s + CRLF);
|
||||
Result := ReadResult = 250;
|
||||
end;
|
||||
|
||||
function TSMTPSend.MailTo(const Value: string): Boolean;
|
||||
begin
|
||||
FSock.SendString('RCPT TO:<' + Value + '>' + CRLF);
|
||||
Result := ReadResult = 250;
|
||||
end;
|
||||
|
||||
function TSMTPSend.MailData(const Value: TStrings): Boolean;
|
||||
var
|
||||
n: Integer;
|
||||
s: string;
|
||||
begin
|
||||
Result := False;
|
||||
FSock.SendString('DATA' + CRLF);
|
||||
if ReadResult <> 354 then
|
||||
Exit;
|
||||
for n := 0 to Value.Count - 1 do
|
||||
begin
|
||||
s := Value[n];
|
||||
if Length(s) >= 1 then
|
||||
if s[1] = '.' then
|
||||
s := '.' + s;
|
||||
FSock.SendString(s + CRLF);
|
||||
end;
|
||||
FSock.SendString('.' + CRLF);
|
||||
Result := ReadResult = 250;
|
||||
end;
|
||||
|
||||
function TSMTPSend.Etrn(const Value: string): Boolean;
|
||||
var
|
||||
x: Integer;
|
||||
begin
|
||||
FSock.SendString('ETRN ' + Value + CRLF);
|
||||
x := ReadResult;
|
||||
Result := (x >= 250) and (x <= 259);
|
||||
end;
|
||||
|
||||
function TSMTPSend.Verify(const Value: string): Boolean;
|
||||
var
|
||||
x: Integer;
|
||||
begin
|
||||
FSock.SendString('VRFY ' + Value + CRLF);
|
||||
x := ReadResult;
|
||||
Result := (x >= 250) and (x <= 259);
|
||||
end;
|
||||
|
||||
function TSMTPSend.EnhCodeString: string;
|
||||
var
|
||||
s, t: string;
|
||||
begin
|
||||
s := IntToStr(FEnhCode2) + '.' + IntToStr(FEnhCode3);
|
||||
t := '';
|
||||
if s = '0.0' then t := 'Other undefined Status';
|
||||
if s = '1.0' then t := 'Other address status';
|
||||
if s = '1.1' then t := 'Bad destination mailbox address';
|
||||
if s = '1.2' then t := 'Bad destination system address';
|
||||
if s = '1.3' then t := 'Bad destination mailbox address syntax';
|
||||
if s = '1.4' then t := 'Destination mailbox address ambiguous';
|
||||
if s = '1.5' then t := 'Destination mailbox address valid';
|
||||
if s = '1.6' then t := 'Mailbox has moved';
|
||||
if s = '1.7' then t := 'Bad sender''s mailbox address syntax';
|
||||
if s = '1.8' then t := 'Bad sender''s system address';
|
||||
if s = '2.0' then t := 'Other or undefined mailbox status';
|
||||
if s = '2.1' then t := 'Mailbox disabled, not accepting messages';
|
||||
if s = '2.2' then t := 'Mailbox full';
|
||||
if s = '2.3' then t := 'Message Length exceeds administrative limit';
|
||||
if s = '2.4' then t := 'Mailing list expansion problem';
|
||||
if s = '3.0' then t := 'Other or undefined mail system status';
|
||||
if s = '3.1' then t := 'Mail system full';
|
||||
if s = '3.2' then t := 'System not accepting network messages';
|
||||
if s = '3.3' then t := 'System not capable of selected features';
|
||||
if s = '3.4' then t := 'Message too big for system';
|
||||
if s = '3.5' then t := 'System incorrectly configured';
|
||||
if s = '4.0' then t := 'Other or undefined network or routing status';
|
||||
if s = '4.1' then t := 'No answer from host';
|
||||
if s = '4.2' then t := 'Bad connection';
|
||||
if s = '4.3' then t := 'Routing server failure';
|
||||
if s = '4.4' then t := 'Unable to route';
|
||||
if s = '4.5' then t := 'Network congestion';
|
||||
if s = '4.6' then t := 'Routing loop detected';
|
||||
if s = '4.7' then t := 'Delivery time expired';
|
||||
if s = '5.0' then t := 'Other or undefined protocol status';
|
||||
if s = '5.1' then t := 'Invalid command';
|
||||
if s = '5.2' then t := 'Syntax error';
|
||||
if s = '5.3' then t := 'Too many recipients';
|
||||
if s = '5.4' then t := 'Invalid command arguments';
|
||||
if s = '5.5' then t := 'Wrong protocol version';
|
||||
if s = '6.0' then t := 'Other or undefined media error';
|
||||
if s = '6.1' then t := 'Media not supported';
|
||||
if s = '6.2' then t := 'Conversion required and prohibited';
|
||||
if s = '6.3' then t := 'Conversion required but not supported';
|
||||
if s = '6.4' then t := 'Conversion with loss performed';
|
||||
if s = '6.5' then t := 'Conversion failed';
|
||||
if s = '7.0' then t := 'Other or undefined security status';
|
||||
if s = '7.1' then t := 'Delivery not authorized, message refused';
|
||||
if s = '7.2' then t := 'Mailing list expansion prohibited';
|
||||
if s = '7.3' then t := 'Security conversion required but not possible';
|
||||
if s = '7.4' then t := 'Security features not supported';
|
||||
if s = '7.5' then t := 'Cryptographic failure';
|
||||
if s = '7.6' then t := 'Cryptographic algorithm not supported';
|
||||
if s = '7.7' then t := 'Message integrity failure';
|
||||
s := '???-';
|
||||
if FEnhCode1 = 2 then s := 'Success-';
|
||||
if FEnhCode1 = 4 then s := 'Persistent Transient Failure-';
|
||||
if FEnhCode1 = 5 then s := 'Permanent Failure-';
|
||||
Result := s + t;
|
||||
end;
|
||||
|
||||
function TSMTPSend.FindCap(const Value: string): string;
|
||||
var
|
||||
n: Integer;
|
||||
s: string;
|
||||
begin
|
||||
s := UpperCase(Value);
|
||||
Result := '';
|
||||
for n := 0 to FESMTPcap.Count - 1 do
|
||||
if Pos(s, UpperCase(FESMTPcap[n])) = 1 then
|
||||
begin
|
||||
Result := FESMTPcap[n];
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function SendtoRaw (mailfrom,mailto,SMTPHost:string;maildata:TStrings;
|
||||
Username,Password:string):Boolean;
|
||||
function SendToRaw(const MailFrom, MailTo, SMTPHost: string;
|
||||
const MailData: TStrings; const Username, Password: string): Boolean;
|
||||
var
|
||||
SMTP:TSMTPSend;
|
||||
size:integer;
|
||||
SMTP: TSMTPSend;
|
||||
begin
|
||||
Result:=False;
|
||||
SMTP:=TSMTPSend.Create;
|
||||
Result := False;
|
||||
SMTP := TSMTPSend.Create;
|
||||
try
|
||||
SMTP.SMTPHost:=SMTPHost;
|
||||
SMTP.Username:=Username;
|
||||
SMTP.Password:=Password;
|
||||
if not SMTP.login then Exit;
|
||||
size:=length(maildata.text);
|
||||
if not SMTP.mailfrom(mailfrom,size) then Exit;
|
||||
if not SMTP.mailto(mailto) then Exit;
|
||||
if not SMTP.maildata(Maildata) then Exit;
|
||||
SMTP.logout;
|
||||
Result:=True;
|
||||
SMTP.SMTPHost := SMTPHost;
|
||||
SMTP.Username := Username;
|
||||
SMTP.Password := Password;
|
||||
if SMTP.Login then
|
||||
begin
|
||||
if SMTP.MailFrom(MailFrom, Length(MailData.Text)) then
|
||||
if SMTP.MailTo(MailTo) then
|
||||
if SMTP.MailData(MailData) then
|
||||
Result := True;
|
||||
SMTP.Logout;
|
||||
end;
|
||||
finally
|
||||
SMTP.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function SendtoEx (mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings;
|
||||
Username,Password:string):Boolean;
|
||||
function SendToEx(const MailFrom, MailTo, Subject, SMTPHost: string;
|
||||
const MailData: TStrings; const Username, Password: string): Boolean;
|
||||
var
|
||||
t:TStrings;
|
||||
t: TStrings;
|
||||
begin
|
||||
// Result:=False;
|
||||
t:=TStringList.Create;
|
||||
t := TStringList.Create;
|
||||
try
|
||||
t.assign(Maildata);
|
||||
t.Insert(0,'');
|
||||
t.Insert(0,'x-mailer: Synapse - Delphi TCP/IP library by Lukas Gebauer');
|
||||
t.Insert(0,'subject: '+subject);
|
||||
t.Insert(0,'date: '+Rfc822DateTime(now));
|
||||
t.Insert(0,'to: '+mailto);
|
||||
t.Insert(0,'from: '+mailfrom);
|
||||
Result:=SendToRaw(mailfrom,mailto,SMTPHost,t,Username,Password);
|
||||
t.Assign(MailData);
|
||||
t.Insert(0, '');
|
||||
t.Insert(0, 'x-mailer: Synapse - Delphi TCP/IP library by Lukas Gebauer');
|
||||
t.Insert(0, 'subject: ' + Subject);
|
||||
t.Insert(0, 'date: ' + Rfc822DateTime(now));
|
||||
t.Insert(0, 'to: ' + MailTo);
|
||||
t.Insert(0, 'from: ' + MailFrom);
|
||||
Result := SendToRaw(MailFrom, MailTo, SMTPHost, t, Username, Password);
|
||||
finally
|
||||
t.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function Sendto
|
||||
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
|
||||
function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string;
|
||||
const MailData: TStrings): Boolean;
|
||||
begin
|
||||
result:=SendToEx(mailfrom,mailto,subject,SMTPHost,maildata,'','');
|
||||
Result := SendToEx(MailFrom, MailTo, Subject, SMTPHost, MailData, '', '');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user