我用shellexecute(handle,open,pchar('mailto':zhouying@163.com'),nil,nil,sw_shownormal)；
发送邮件，程序会调用自身的邮件客户端发送，比如说OUTLOOK,OUTLOOK EXPRESS，但是问题是每次都会弹出窗口，要你继续点击发送命令才行，我想请问，有么有是么办法，让他在后台直接发送？

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

可用 Indy 元件
TIdMessage 及 TIdSMTP
[code delphi]
idMessage1.From.Text := '"EagleWolf"';
idMessage1.BccList.Add.Address := strUserMailAddress;
idMessage1.Subject := 'Test Subject';
idMessage1.Body.Add('Mail Content');
idSmtp1.AuthenticationType := atLogin;
idSmtp1.Host := '192.168.0.1';
idSmtp1.Port := 25;
idSmtp1.UserId := 'eaglewolf';
idSmtp1.Password := 'eaglewolf';
try
idSmtp1.Connect;
Try
idSmtp1.Send(idMessage1);
except
idSmtp1.Disconnect;
ShowMessage('Send Mail Failed!');
Exit;
end;
idSmtp1.Disconnect;
ShowMessage('Mail Sent!');
except
ShowMessage('Connect to Mail Server Failed!');
end;

[/code]



===================引 用 zhouying82 文 章===================
我用shellexecute(handle,open,pchar('mailto':zhouying@163.com'),nil,nil,sw_shownormal)；
发送邮件，程序会调用自身的邮件客户端发送，比如说OUTLOOK,OUTLOOK EXPRESS，但是问题是每次都会弹出窗口，要你继续点击发送命令才行，我想请问，有么有是么办法，让他在后台直接发送？

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄