貼一段以前的老代碼給你參考一下吧,
我用來在console下發email的 .
2003年寫的. 寫得有點丑.但可以運行.
僅供參考,缺少控件,你可能無法編譯.
看看smtp RFC,發送郵件其實很簡單.
難點在於mime編碼與你的特殊需求.
unit AuthNMSMTP;
interface
uses
Classes,NMsmtp ,idGlobal, IdCoder3To4 ,idsmtp,blcksock,SysUtils;
type
TAuthNMSMTP = class(TNMSMTP)
private
FPassword :String ;
FProxy: String;
FProxyPort: String;
FUseProxy :Boolean ;
FSocksBlockSocket : TSocksBlockSocket ;
protected
Procedure ConnectProxy() ;
procedure closeProxy() ;
public
property Password :String read FPassword write FPassword ;
property Proxy: String read FProxy write FProxy;
property ProxyPort: String read FProxyPort write FProxyPort;
procedure Connect ; override ;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override ;
end ;
implementation
uses func;
constructor TAuthNMSMTP.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FUseProxy := False ;
end;
procedure TAuthNMSMTP.Connect;
begin
if length(Fproxy) >0 then begin
ConnectProxy ;
end else begin
inherited
end ;
if Length(Fpassword) >0 then begin
self.Transaction('EHLO') ;
self.Transaction('AUTH LOGIN');
self.Transaction(Base64Encode(Userid));
self.Transaction(Base64Encode(FPassword));
end ;
end;
procedure TAuthNMSMTP.ConnectProxy;
begin
FSocksBlockSocket := TSocksBlockSocket.Create ;
FSocksBlockSocket.SocksIP := Fproxy ;
FSocksBlockSocket.SocksPort := FProxyPort ;
FSocksBlockSocket.Connect(Host, IntToStr(Port));
if FsocksBlockSocket.SocksOpen then
dbugmsg('connect Proxy') ;
self.ThisSocket := FSocksBlockSocket.Socket ;
self.FConnected :=true ;
self.FSocketWindow :=0 ;
FUseProxy :=true ;
end;
procedure TAuthNMSMTP.closeProxy;
begin
self.ThisSocket := 0;
self.FConnected := False ;
FSocksBlockSocket.CloseSocket ;
FSocksBlockSocket.Free ;
end;
destructor TAuthNMSMTP.Destroy;
begin
if FuseProxy then
CloseProxy ;
inherited Destroy;
end;
end.
program mail;
// programer :Gan Jian Hui
//
// Modify Date 2003-07-15
// Modify Date 2005-08-02
{$APPTYPE CONSOLE}
{$R *.res}
//type
//type
// TNotifyEvent = procedure (Sender: TObject) ofobject;
uses
SysUtils,
classes,
windows,
Variants,
regexpr,
U_main in 'U_main.pas',
func in '..\..\public\func.pas',
AuthNMSMTP in 'AuthNMSMTP.pas';
const
cMail = 'MAIL' ;
cProxy = 'SOCKS_PROXY' ;
csubject = '-s' ;
cccaddr = '-c' ;
cbccaddr = '-b' ;
chelp = '-h' ;
cAttch = '-f' ;
cVersion = 'v' ;
var
sender : TAuthNMSMTP ;
mMail :String ;
mProxy :String ;
msubject,mtoaddr ,mccaddr,mbccaddr,mAttch :String ;
mbody :String ;
Regexpr1 :TRegexpr ;
{ Tsmail }
begin
msubject := FindCmdLineStr( csubject );
mccaddr := FindCmdLineStr( cccaddr ) ;
mbccaddr := FindCmdLineStr( cbccaddr );
mAttch := FindCmdLineStr( cattch) ;
if FindCmdLineSwitch('-v',['-'],true) then Begin
showversion();
System.exit ;
end else if (paramcount() <= 0) or
FindCmdLineSwitch('h',['-'],true) then begin
usage() ;
System.exit ;
end ;
mtoaddr :=paramstr(paramcount()) ;
sender :=TAuthNMSMTP.Create(nil) ;
mMail := GetEnvironmentVariable(cMail) ;
Regexpr1 := TRegexpr.Create ;
Regexpr1.Expression :='[smtp|imap]://(.*):(.*)@(.*)/' ;
if RegExpr1.Exec(mMail) then begin
Sender.UserID := regExpr1.Substitute('$1') ;
sender.Password := regExpr1.Substitute('$2') ;
sender.Host := regExpr1.Substitute('$3') ;
end ;
{
writeln( Sender.UserID ) ;
writeln( Sender.Password ) ;
writeln( Sender.Host ) ;
}
mProxy := GetEnvironmentVariable(cProxy) ;
Regexpr1.Expression :='[socks]://(.*):(\d*)$' ;
if RegExpr1.Exec(mProxy) then begin
Sender.Proxy :=regExpr1.Substitute('$1') ;
Sender.ProxyPort := regExpr1.Substitute('$2') ;
writeln(Sender.Proxy);
writeln(Sender.ProxyPort);
end ;
Regexpr1.Free ;
sender.Charset :='big5' ;
with sender.PostMessage do begin
Subject :=mSubject ;
ToCarbonCopy.Append(mccaddr) ;
ToBlindCarbonCopy.Append(mbccaddr) ;
FromAddress :=mtoaddr ;
ToAddress.Append(mtoaddr) ;
if not (trim(mattch)='') then
Attachments.Append(mattch) ;
AssignFile(Input,'');
Reset(Input);
while not eof(Input) do begin
readln(Input,mbody) ;
Body.Append(mbody) ;
end ;
end ;
sender.Connect ;
if sender.Connected then begin
sender.SendMail ; ;
end ;
sender.Disconnect ;
sender.Free ;
end.
