随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 146509
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

百般求解,无人帮我做一个发邮件的程序
今天迫不得以把indy9.0换成了10.2.3版本

所以邮件发送程序成功发送了,下边把代码发给大家

procedure TForm1.Button1Click(Sender: TObject);
var
MgeSend:tidmessage;
begin

{邮箱主体}
mgesend:=tidmessage.create(nil);
MgeSend.Recipients.EMailAddresses:=edit1.Text;\\发送到的邮箱
MgeSend.from.Text:='shuyezi122@163.com';\\来自哪里
mgesend.Subject:=edit2.Text;\\主题
mgesend.Body.Assign(memo1.Lines);  \\邮箱内容
{下面是发送部分}

idsmtp1.host:='smtp.163.com';
idsmtp1.Username:='shuyezi122@163.com';\\帐号   
idsmtp1.Password:='*******';\\密码
try
idsmtp1.Connect;
except
showmessage('无法连接');
exit;
end;
try
idsmtp1.Send(MgeSend);
finally
idsmtp1.Disconnect;
end;
end;
{结束}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

posted on 2008-12-25 20:13 小叶子 阅读(166) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅