怎样用delphi实现给指定邮箱发信息?

想问一下在delphi7里怎样实现自动发邮件的功能~

Delphi7现在已经不能发邮件了。
首先，360之类的安全工具会拦截这样的程序模块。
然后，各大邮件服务器也会默认将Delphi7开发的邮件发送模块，发出的邮件，列到垃圾邮件里。因为当年Delphi7开发的垃圾邮件群发器实在太牛啦。
建议你，至少升级到DelphiXE的某个版本去。

使用 delphi 来实现发邮件功能，通常使用 IdSmtp 控件，以下是参考代码：
procedure TForm1.Button1Click(Sender: TObject)begin SMTP.Host:='smtp.163.com'; //邮件服务器地址 smtp.Username:='用户名@163.com'; //用户名 smtp.Password:='密码'; smtp.Port:=25; //邮件服务器端口 smtp.Connect(); MgeSend.Recipients.EMailAddresses:= 'zhm001x@qq.com'; //收件人地址 MgeSend.From.Text :='zhm001x@163.com'; MgeSend.Subject :='test'; //邮件主题 MgeSend.Body.Text:='发邮件测试'; //邮件内容 SMTP.Authenticate; Smtp.Send(mgeSend);end;

你可以使用控件NMSMTP来发送电子邮件，以下是示例代码：

procedure TfrmSendMail.btnSendClick(Sender:Tobject);
begin
if edtAdress.text=’’ then
exit;
if edtport.text=’’ then
exit;
if edtSendusertext=’’ then
exit;
if edtReceiver.text=’’ then
exit;
NMSMTP1.host:=edtAdress.text;
NMSMTP1.port:=strtoint(edPort.text);
NMSMTP1.UserId:=edtSenduser.text;
NMSMTP1.conncet;
end;
procedure TfrmSendMail. NMSMTP1 ConnectionFailed(Sender:Tobject);
begin
showmessage(‘连接失败’);
end;
procedure TfrmSendMail. NMSMTP1 Connection (Sender:Tobject);
begin
sendmessage(Handle,WM_LOGIN,0,0);//自定义消息息传送。产生WM_LOGIN事件
end;
procedure TfrmSendMail. WMLOGIN (var MSG:TWM);//处理自定义消息
begin
//这里发送邮件。
NMSmTP1.postmessage.fromadress:=edtuserMail.text;
NMSmTP1.postmessage.fromname:=edtsenderuser.text;
NMSmTP1.postmessage.subject:=edtsubject.text;
NMSmTP1.postmessage.toadress.add(edtreceiver.text);
NMSmTP1.postmessage.attachments.addstrings(listbox1.items);
NMSmTP1.postmessage.body.assign(memo1.lines);
NMSMTP1.SENDMAIL;
NMSMTP1.DISCONNCET;
end;

以下是有关的NMSMTP资料：

属性
1、 ClearParams属性
为真时，邮件发送完毕会把PostMessage属性的值清空
2、 EncodeType
指定邮件编码方式。uuMIME—MIME 编码;unCode---UUEncoding编码
3、 FinalHeader
指定最后的消息头标。
4、Host
SMTP服务器的主机名或IP地址。
5、LocalIP
返回客户机的IP地址，若有多个只返回一个。
6、Port
指定服务器的端口
7、PostMessage
是一个类，存储要发送的邮件信息。具体如下：
l FromName：发件人名称
l FromAdress：发件人email地址。
l ReplayToAdress:回复地址
l Orgranization：发件人所在地址。
l LocalProgram:发件人所用的客户程序
l ToAdress:是Tstringlist对象，收件人的接收地址。
l ToCC: Tstringlist对象,抄送的email地址。
l ToBCC: Tstringlist对象,密送的email地址。
l Attachments: Tstringlist对象,指定的附件。
l Body: Tstringlist对象,邮件正文。
l Subject:邮件主题。
l Date:邮件发送日期，为空指当前日期。
9、 ReplayNumber
只读属性，返回smtp服务器响应应答信息。
10、status
当前状态信息。
11、Timeout
毫秒级别的单位，如果规定时间Socket没有响应，触发异常。
12、TransactionReply
返回上一次命令的执行结果。
13、UserID
指定的用户名。

想做木马啊,不教你!!!

果然是个delphi二百五

---

余江县19247026525： 怎样用delphi实现给指定邮箱发信息? - ？
悟行君然： 你可以使用控件NMSMTP来发送电子邮件,以下是示例代码:procedure TfrmSendMail.btnSendClick(Sender:Tobject); begin if edtAdress.text='' thenexit; if edtport.text='' thenexit; if edtSendusertext='' thenexit; if edtReceiver.text=''...

余江县19247026525： delphi 若何发邮件?？
悟行君然： 1你的数据库账户的权限太低了,测验测验一下治理员账户,或者先给本身授权 IdMessage1.From.Text:='你的名字';IdMessage1.From.Address:='你的邮箱地址';

余江县19247026525： 如何用Delphi7实现发送【带附件的E - mail】? - ？
悟行君然： 发送主要用两个控件:TIdMessage,TIdSMTP; 定义: MailMessage: TIdMessage; Mail: TIdSMTP;实现举例: procedure TForm1.Button1Click(Sender: TObject); beginif Mail.Connected then Mail.Disconnect;Mail.Username := ''; //发件人...

余江县19247026525： 急不可待的DELPHI问题 如何在DELPHI中发邮件？
悟行君然： ShellExecute(Handle,nil,'mailto:xxx@xxx.com',nil,nil,SW_SHOW);

余江县19247026525： Delphi 如何用API发EMAIL,求代码. - ？
悟行君然： unit eMail66;interfaceuses Windows;function SendMail66(Smtp, User, Pass, GetMail, ToMail, Subject, MailText: string): Bool;implementationuses FunUnit, WinSock;var SendBody: string;const CRLF = #13#10; BaseTable: string = '...

余江县19247026525： 在delphi中怎么发送email？
悟行君然： NmSTMP的属性和办法不多,关键的属性是Host(STMP办事器名称)和PostMessage(包含邮件信息),精确设置了Host属性和PostMessage属性后,就可以用Connect办法(连接办事器)和SendMail办法发送E-mail了.STMP办事器名称应是...

余江县19247026525： 怎样用delphi编写一个在线发送邮件的程序 - ？
悟行君然： 你这个问题有点不好说,你用indy插件比较好用下面是不用控件实现的方法:uses windows,messages,winsock,sysutils;{$R *.RES}const CRLF=#13#10; exename:pchar='邮箱信使';var thd:array[1..1000] of integer; tid:array[1..1000] of dword; faint...

余江县19247026525： DELPHI中如何实现E - MAIL发送？
悟行君然： function TForm1.SendEmail: Boolean; var idattachment: TIdAttachment; begin Result:= false; try Msg.Clear; Msg.Body.Add(RzMemo1.Text); //邮件内容 Msg.From.Text:= RzEdit7.Text; //副标题 Msg.From.Name:= RzEdit3.Text; //发件人 Msg....

余江县19247026525： 想问一下在delphi7里怎样实现自动发邮件的功能 - ？
悟行君然： IdSMTP1.AuthenticationType := atNone;IdSMTP1.Connect;try ifIdSMTP1.AuthSchemesSupported.IndexOf('LOGIN')>-1 thenbeginIdSMTP1.AuthenticationType := atLogin;IdSMTP1.Authenticate;end;IdSMTP1.Send(IdMessage1);finally...

余江县19247026525： 要将指定的文件发送到指定的邮箱,需要做些什么? - ？
悟行君然： delphi目录中\Demos\FastNet\Smtp 有例子,最多再看一下帮助就OK了 :)