关于使用shellexecute打开outlook2007发送邮件

[qq_34132234]

在mailto协议中
1:参数body的内容如果包含字符%，则shellexecute返回值为2，不能打开outlook程序。
2:如果body内容中英文字符的""前面有字符＃，则打开outlook之后会在Outlook里面提示命令行引数无效，若改成中文的“”或者把＃删掉就执行成功。
大佬们可以帮帮解决这两个问题吗。

[qq_34132234]

没有人遇到这个问题吗。或者提供解决思路也行啊。

[lyhoo163]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Comobj,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function SendMailWithAttachments(Email, Subject : string; Body : Widestring ; Filename : string): boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function TForm1.SendMailWithAttachments(Email, Subject : string; Body : Widestring ; Filename : string): boolean;
                                    // 邮箱地址  主题  人名（注释） 附件：文件名
var outlook : variant;
    item : variant;
begin
  try
    outlook := CreateOLEObject('outlook.application');
    try
      item := outlook.CreateItem(0);
      item.Subject := Subject;                             // 主题
      item.Body := Body;                                   // 内容
      if (FileName<>'') and (FileExists(FileName))
        then item.Attachments.Add(FileName,1,1,FileName);  //  附件
      item.To := email;
      item.Send;
    finally
      outlook.quit;
    end;
  except
    result := false;
    exit;
  end;
  result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Opendialog1 : TOpenDialog;
    S1,S2,S3,FileName:string;
begin
  S1:=Edit1.text;
  S2:=Edit2.text;
  S3:=Memo1.text;
  FileName:=Edit3.text;
  SendMailWithAttachments(S1,S2,S3,FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit3.Text:= OpenDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

end.

操作系统中的OutLook 的参数你要设置好，就可以发了。代码修改一下，就是你的...,...