百般求解,无人帮我做一个发邮件的程序
今天迫不得以把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
小叶子 阅读(156)
评论(0) 编辑 收藏 引用