急!!!
小弟想编一个简单的电子邮件程序,只需要实现发送不带附件的邮件,因为对这块不熟,特来求助,请问需要那些控件,源码是什么?还望写写详细些,谢谢了!!!
小弟想编一个简单的电子邮件程序,只需要实现发送不带附件的邮件,因为对这块不熟,特来求助,请问需要那些控件,源码是什么?还望写写详细些,谢谢了!!!
解决方案 »
- 请教几个insert into 语句,迷糊了。
- 关于IdHttp的GET和POST问题,高手啊,大神啊,大虾啊!帮帮忙啊!
- 有关 远程数据库中的查询功能的问题,请大家帮忙想想是怎么回事?
- (紧急求救)DBLookupComboBox就不能象TComboBox那样自己定义ItemIndex吗?
- DLL问题,源码贴出来,大家看看
- 吐血提问!!返回数据集的问题!!!
- 关于股票软件的键盘精灵!
- 各位石家庄的朋友注意了,你们谁知道一家叫法来克的快餐店?
- 有用delphi开发电子商务经验的高手请进.
- 存储一记录时如何知道,记录关键字段值不重复呢?
- 使用query的EOF与BOF为什么到最后一条总是多走一次?
- 请各位帮忙,有关DBGrid显示问题
应付简单发送没问题的啦
procedure TForm1.btnSendClick(Sender: TObject);
begin
with IdMsgSend do
begin
Body.Assign(Membody.Lines);
Recipients.EMailAddresses := edtsendTo.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Sender.Text := '21@12';end;
SmtpServerName:=edit1.Text;
SmtpServerPort:=25;
SMTP.Host := SmtpServerName;
SMTP.Port := SmtpServerPort;
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
SMTP.Disconnect;
end;
end;
delphi自带的例子,功能强大