请教如何在delphi中单击按钮后调用本地邮箱发邮件.
uses
shellApi;
Shellexecute(0, nil, 'mailto:XXX@XX.XX', nil, nil, sw_ShowNormal);
是成功调出了Outlook Expree,能不能更方便点,就是不弹出这个,在程序里定义邮件标题和内容,当用户一点Botton时就自动发出去.
up
用indy Clients标签中的IdSMTP和indy Misc标签里的IdMessage,代码如下:
//-----问题是不知如何获取本机默认的邮件客户端的用户名去发这个邮件,
//-----各位一起研究一下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,
IdSMTP, IdBaseComponent, IdMessage, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
MailMessage: TIdMessage;
Mail: TIdSMTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Mail.Connected then Mail.Disconnect;
Mail.Username:=
