100分求收发Mail 的 delphi程序，要求支持附件，支持mini

[iamwls]

100分求收发Mail 的 delphi程序，要求支持附件，支持mini

找个例子，谢谢拉

如果大，请发到我油箱里[e-mail]

收到即揭贴

[wg007]

可以向我要：[e-mail]

[iamwls]

up

[khkhing]

这方面的知识, 愿闻其详.

[Frank.WU]

用indy組件簡單得很哦

[outer2000]

有DEMO啊； INDY的网站DOWN他们的DEMO看看

[wenjianyao]

up

[alec_ma]

调用Outlook就行啦

[linkyou]

我也要[e-mail]

[ts707]

我有现成的[e-mail]

[delphi_wo]

OpenDialog1,IdSMTP1,IdMsgSend，IdDNSResolver各一个

///////得到附件路径
procedure Tf_fsyj.XP_Button4Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit8.Text:=OpenDialog1.FileName;
end;

//////发邮件
procedure Tf_fsyj.XP_Button5Click(Sender: TObject);
var
MxList: TStringList;
i: Integer;
QName, ThoughAddress: string;
begin
if trim(edit5.Text)='' then
begin
showmessage('请输入收件人邮箱');
edit5.SetFocus;
exit;
end;
if trim(edit6.Text)='' then
begin
showmessage('请输入邮件主题');
edit6.SetFocus;
exit;
end;
if trim(edit7.Text)='' then
begin
showmessage('请输入发件人邮箱');
edit7.SetFocus;
exit;
end;
//设置邮件内容
IdMsgSend.From.Address:=trim(edit7.Text);
IdMsgSend.Recipients.EMailAddresses:=trim(edit5.Text);
IdMsgSend.Subject:=trim(edit6.Text);
IdMsgSend.Body.Text:=memo2.Text;
if FileExists(trim(edit8.Text)) then
TIdAttachment.Create(idmsgsend.MessageParts,trim(edit8.Text));
QName:=TrimRight(copy(edit5.Text, Pos('@', trim(edit5.Text)) + 1, Length(trim(edit5.Text))));///////////////附件
MxList:=TStringList.Create;
try
GetMxList(MxList, QName);
ThoughAddress := MxList.Names[0];
finally
MxList.Free;
end;
//发送邮件
try
try
IdSMTP1.Host:=ThoughAddress;
IdSMTP1.Port := 25;
IdSMTP1.Connect;
IdSMTP1.Send(IdMsgSend);
showmessage('邮件发送成功');
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
memo2.Text:='';
except
on E:Exception do
showmessage('错误: ' + E.Message);
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;
end;

[khkhing]

iamwls 实现方法，能不能发俺一份，感谢。

[khkhing]

[e-mail]

[iamwls]

谢谢楼上的，如何收MIAL呢

感谢各位，但有些人竟然是来卖源代码的，这种东西不知道谁会肯花钱买，拿网上的东西出去卖，现在很流行啊

我只是学习，还没到买的地步

[GoldShield]

已发送.请查收

[iamwls]

收到GoldShield(小花☆正直人) 的MIAL，谢谢

为什么运行的时候出这个对话框呢？我是delphi新手，请帮忙指点一下，谢谢

---------------------------
Error
---------------------------
Field MainForm.Msg does not have a corresponding component. Remove the declaration?
---------------------------
Yes No Cancel Help
---------------------------