看到有关于E-MAIL的发送函数，即，('mailto:xxx@163.com?subject='about'body=....')但是他们都要弹出窗口，让用户点击，我想请问，有没有一种后台自行发送的。即，只要一按钮，他就会自行发送，无需提示客户。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

(D6) FASTNET 的 NMSMTP

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

我用的是D2009,另外，我想使用MAILTO函数。直接调用默认的邮件帐户进行发送。大大有没有代码啊？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我是用idmessage 寄信的..@@  不會彈視窗..
不過我是公司內自己人使用的 @@

with idmessage1 do
begin
MessageParts.Clear; //清除附件
From.Address:=XXXXXXXXX;
From.Name:=XXXXX;
From.Text:=XXXXX<'">XXXXXXX>';
Recipients.EMailAddresses:='';
// ts:=FormatDateTime('yyyy/mm/dd hh:mm',now);
Subject:=Title; //信件抬頭
Recipients.EMailAddresses:=MailAddress; //放入要傳送的信箱
for i:=0 to TxtMemo.Lines.Count-1 do
begin
if i=0 then
Body.Text:=TxtMemo.Lines[i] //信件內容
else
Body.Text:=Body.Text #13 TxtMemo.Lines[i]; //信件內容
end;
if AddFileName<>'' then
begin //如果有需要添加附件
if FileExists(AddFileName) then
begin //確認該檔案有存在
IdMessage1.MessageParts.Add;
tidattachment.Create(IdMessage1.MessageParts,AddFileName);
end;
end;
end;
idsmtp1.Connect;
idsmtp1.Send(IdMessage1);
idsmtp1.Disconnect;
===================引 用 zhouying82 文 章===================
我用的是D2009,另外，我想使用MAILTO函数。直接调用默认的邮件帐户进行发送。大大有没有代码啊？