在代理环境下如何使用IdSMPT自动发送邮件如果
如题。
环境：Delphi7
工具：IdSMPT发送邮件
现在能实现，但是如果使用IE代理设置的时候如何实现，自动收发邮件哪？
[解决办法]
刚做的，可以用
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, IdMailBox, IdIOHandler,
IdIOHandlerSocket, IdIntercept, IdSocks, IdMessage;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mSmtp: TIdSmtp;
mMsg: TIdMessage;
begin
mMsg := TIdMessage.Create(nil);
mMsg.ContentType := 'text/plain';
mMsg.CharSet := 'gb2312';
mMsg.From.Address := Edit1.Text; //邮件发送方 xxx@xxx.com
mMsg.From.Name := '测试';
mMsg.Sender.Address := Edit1.Text;
mMsg.Sender.Name := '测试';
mMsg.Recipients.EMailAddresses := Edit2.Text; //邮件接收方 yyy@yyy.com
mMsg.Subject := 'test';
mMsg.Body.Clear;
mMsg.Body.Add('您好！');
mSmtp := TIdSmtp.Create(nil);
mSmtp.ReadTimeout := 5000;
mSmtp.AuthenticationType := atLogin;
mSmtp.Host := Edit3.Text; //邮件服务器地址
mSmtp.Username := Edit1.Text;
mSmtp.Password := Edit4.Text; //邮箱密码
mSmtp.IOHandler := TIdIOHandlerSocket.Create(nil);
mSmtp.Socket.SocksInfo := TIdSocksInfo.Create(nil);
mSmtp.Socket.SocksInfo.Authentication := saUsernamePassword;
mSmtp.Socket.SocksInfo.Username := 'xxxxx'; //代理服务器设置的用户名
mSmtp.Socket.SocksInfo.Password := 'yyyyy'; //代理服务器设置的密码
mSmtp.Socket.SocksInfo.Host := '192.168.1.102';
mSmtp.Socket.SocksInfo.Port := 2280; //2280为socks代理
mSmtp.Socket.SocksInfo.Version := svSocks5;
mSmtp.Connect;
mSmtp.Authenticate;
mSmtp.Send(mMsg);
mSmtp.Disconnect;
mMsg.Destroy;
mSmtp.Socket.SocksInfo.Destroy;
mSmtp.IOHandler.Destroy;
mSmtp.Destroy;
end;
end.
