Outlook调用问题 ( 积分: 50 )

outlook我现在知道如何调用，但不知道如何使其显示出来，我不想自动就发送，而希望加载好主题、收件人等后，由我自己来点 outlook的[发送]按钮来发送。目前，我不知道如何使outlook显示出来
try
outlook:=CreateOLEObject('outlook.application');
try
item := outlook.CreateItem(0);
item.Subject :=A_sSubject;
// You can use "Body := Memo1.text".
item.Body :=A_sBody;
// You can add more Attachments by adding the same line.
if Trim(A_sFileName)<>'' then
if FileExists(A_sFileName) then
item.Attachments.Add(A_sFileName,1,1,A_sFileName);
item.To:=A_sEmailTo;
//不要自动发送，要加载好信息后，outlook显示出来
//item.Send;
finally
// To make sure Outlook don't stay open.
outlook.quit;
end;
except
result := false;
exit;
end;
result := true;

outlook我现在知道如何调用，但不知道如何使其显示出来，我不想自动就发送，而希望加载好主题、收件人等后，由我自己来点 outlook的[发送]按钮来发送。目前，我不知道如何使outlook显示出来
try
outlook:=CreateOLEObject('outlook.application');
try
item := outlook.CreateItem(0);
item.Subject :=A_sSubject;
// You can use "Body := Memo1.text".
item.Body :=A_sBody;
// You can add more Attachments by adding the same line.
if Trim(A_sFileName)<>'' then
if FileExists(A_sFileName) then
item.Attachments.Add(A_sFileName,1,1,A_sFileName);
item.To:=A_sEmailTo;
//不要自动发送，要加载好信息后，outlook显示出来
//item.Send;
finally
// To make sure Outlook don't stay open.
outlook.quit;
end;
except
result := false;
exit;
end;
result := true;