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

Question

小程序啊

Answer 1

你可以使用控件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
指定的用户名。追问

就这样就好了还是需要添加网路方面的代码

追答

发送邮件就这个代码啊

Answer 2

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

Answer 3

果然是个delphi二百五