这个问题挂了他太久了。。。outlook express调用(50分)

我自己做了个邮件自动发送的邮件：用的控件是：idsmtp和idmessage。
//邮件信息设置
IdMessage1.From.Address := efrom;
IdMessage1.Recipients.EMailAddresses := eto + ',' + ecc;

IdMessage1.Subject := 'PCLNPO EDI FILE';
IdMessage1.Body.Assign(Memo1.lines);
TIdAttachment.Create(IdMessage1.MessageParts, Edifilename);
//自动发送
try
try
IdSMTP1.Connect(1000);
IdSMTP1.Send(IdMessage1);
except on E:Exception do
Msgb.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if IdSmtp1.Connected then IdSmtp1.Disconnect;
end;
Idmessage1.clear;
showmessage('The Edi file send success'+edifilename);

现在要应使用者要求，不要自动发送，‘邮件信息设置’这块仍旧不变，就是‘自动发送’这块，换成：调出outlook express，他确认后，手动发送。
请问各位大侠，这个怎么实现？（急。。。。。）

我用了：shellexecute(handle,nil,'mailto:aa@qccl.com',nil,nil,SW_SHOWnormal);
调出outlook没问题，发件人也没问题，但还有几点：
抄送邮件地址、邮件主题、邮件正文怎么赋值？？？

try
MyOutlook := GetActiveOleObject('Outlook.Application');
except
MyOutLook:=CreateOleObject('Outlook.Application');
end;

item:=MyOutlook.CreateItem(0);
item.recipients.add('lio_cheng@penavico-ccl.com');

item.subject:='PCLNPO EDI FILE';
// item.body:='hello';

item.Attachments.add(Edifilename,1,1,shortname);
item.display(1);

我用了这个方法，但运行到MyOutlook := GetActiveOleObject('Outlook.Application');
出现：无效的类别字符串，没办法了，帮帮忙吧。。。。。

为什么没人理呢？？

我只装了outlook express,是不是不行？要调用outlook express怎么办？？

我以前做过一个类似的功能，不过不是用outlook Express,而是用office中带的outlook,把MicroSoft Outlook当作com组件调用。类似调用Word,很简单，可以在MicroSoft Outlook中增加任意多封新邮件，再由用户进入MicroSoft Outlook手工发送，也可以修改后再发送。

问题是这个程序的用户装的都是outlook express。。。。。

有调用outlook express,又可以插入附件的办法吗？？

用mapi阿
搜一下就知道了

我搜了很多了，没结果啊，哪位大侠能不能给个例子，或再说的详细点？？？

shellexecute(application.Handle,'open', 'mailto:XXX@YYYY.com', nil, nil,sw_shownormal);

。。。。。。。。。。。。。要求能插入附件；正文等。。。

{ Copyright (C) 1998-2004, written by Mike Shkolnik, Scalabium Software
E-Mail: mshkolnik@scalabium.com
WEB: http://www.scalabium.com
tel: 380-/44/-552-10-29
}
unit SendMail;

interface
uses
Classes,dialogs;

type
TMAPIMail = class(TComponent)
private
{ Private declarations }
FLastError: Integer;

FSubject: string;
FBody: string;

FSenderName: string;
FSenderAddress: string;

FRecipients: TStrings;
FAttachments: TStrings;
FAttachmentNames: TStrings;

FEditDialog: Boolean;
FResolveNames: Boolean;
FRequestReceipt: Boolean;

procedure SetRecipients(Value: TStrings);
procedure SetAttachments(Value: TStrings);
procedure SetAttachmentNames(Value: TStrings);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

function Send: Boolean;

property LastError: Integer read FLastError;
published
{ Published declarations }
property Subject: string read FSubject write FSubject;
property Body: string read FBody write FBody;

property Recipients: TStrings read FRecipients write SetRecipients;
property Attachments: TStrings read FAttachments write SetAttachments;
property AttachmentNames: TStrings read FAttachmentNames write SetAttachmentNames;

property EditDialog: Boolean read FEditDialog write FEditDialog;
property ResolveNames: Boolean read FResolveNames write FResolveNames;
property RequestReceipt: Boolean read FRequestReceipt write FRequestReceipt;

property SenderName: string read FSenderName write FSenderName;
property SenderAddress: string read FSenderAddress write FSenderAddress;
end;

function SendEMailByMAPI(SenderName, SenderAddress, Subject, Body: string; Recipients, Attachments, AttachmentNames: TStrings; WithOpenMessage, ResolveNames, NeedReceipt: Boolean; intMAPISession: Integer): Integer;
function MAPIErrorDescription(intErrorCode: Integer): string;

procedure Register;

implementation
uses Windows, SysUtils, MAPI, Registry, Forms;

procedure Register;
begin
RegisterComponents('SMComponents', [TMAPIMail]);
end;

function MAPIErrorDescription(intErrorCode: Integer): string;
begin
case intErrorCode of
MAPI_E_USER_ABORT: Result := 'User cancelled request';
MAPI_E_FAILURE: Result := 'General MAPI failure';
MAPI_E_LOGON_FAILURE: Result := 'Logon failure';
MAPI_E_DISK_FULL: Result := 'Disk full';
MAPI_E_INSUFFICIENT_MEMORY: Result := 'Insufficient memory';
MAPI_E_ACCESS_DENIED: Result := 'Access denied';
MAPI_E_TOO_MANY_SESSIONS: Result := 'Too many sessions';
MAPI_E_TOO_MANY_FILES: Result := 'Too many files open';
MAPI_E_TOO_MANY_RECIPIENTS: Result := 'Too many recipients';
MAPI_E_ATTACHMENT_NOT_FOUND: Result := 'Attachment not found';
MAPI_E_ATTACHMENT_OPEN_FAILURE: Result := 'Failed to open attachment';
MAPI_E_ATTACHMENT_WRITE_FAILURE: Result := 'Failed to write attachment';
MAPI_E_UNKNOWN_RECIPIENT: Result := 'Unknown recipient';
MAPI_E_BAD_RECIPTYPE: Result := 'Invalid recipient type';
MAPI_E_NO_MESSAGES: Result := 'No messages';
MAPI_E_INVALID_MESSAGE: Result := 'Invalid message';
MAPI_E_TEXT_TOO_LARGE: Result := 'Text too large.';
MAPI_E_INVALID_SESSION: Result := 'Invalid session';
MAPI_E_TYPE_NOT_SUPPORTED: Result := 'Type not supported';
MAPI_E_AMBIGUOUS_RECIPIENT: Result := 'Ambiguous recipient';
MAPI_E_MESSAGE_IN_USE: Result := 'Message in use';
MAPI_E_NETWORK_FAILURE: Result := 'Network failure';
MAPI_E_INVALID_EDITFIELDS: Result := 'Invalid edit fields';
MAPI_E_INVALID_RECIPS: Result := 'Invalid recipients';
MAPI_E_NOT_SUPPORTED: Result := 'Not supported';
else
Result := 'Unknown Error Code: ' + IntToStr(intErrorCode);
end;
end;

function GetDefaultLogon(var strDefaultLogon: string): Boolean;
const
KEYNAME1 = 'Software/Microsoft/Windows Messaging Subsystem/Profiles';
KEYNAME2 = 'Software/Microsoft/Windows NT/CurrentVersion/Windows Messaging Subsystem/Profiles';
VALUESTR = 'DefaultProfile';
begin
Result := False;
strDefaultLogon := '';
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(KEYNAME1, False) then
begin
try
strDefaultLogon := ReadString(VALUESTR);
Result := True;
except
end;
CloseKey;
end
else
if OpenKey(KEYNAME2, False) then
begin
try
strDefaultLogon := ReadString(VALUESTR);
Result := True;
except
end;
CloseKey;
end
else
finally
Free;
end;
end;

function SendEMailByMAPI(SenderName, SenderAddress, Subject, Body: string; Recipients, Attachments, AttachmentNames: TStrings; WithOpenMessage, ResolveNames, NeedReceipt: Boolean; intMAPISession: Integer): Integer;
const
RECIP_MAX = MaxInt div SizeOf(TMapiRecipDesc);
ATTACH_MAX = MaxInt div SizeOf(TMapiFileDesc);
type
TRecipAccessArray = array [0..(RECIP_MAX - 1)] of TMapiRecipDesc;
TlpRecipArray = ^TRecipAccessArray;

TAttachAccessArray = array [0..(ATTACH_MAX - 1)] of TMapiFileDesc;
TlpAttachArray = ^TAttachAccessArray;

TszRecipName = array[0..256] of Char;
TlpszRecipName = ^TszRecipName;

TszPathName = array[0..256] of Char;
TlpszPathname = ^TszPathname;

TszFileName = array[0..256] of Char;
TlpszFileName = ^TszFileName;

var
i: Integer;

Message: TMapiMessage;
lpRecipArray: TlpRecipArray;
lpAttachArray: TlpAttachArray;


function CheckRecipient(strRecipient: string): Integer;
var
lpRecip: PMapiRecipDesc;
begin
try
Result := MapiResolveName(0, 0, PChar(strRecipient), 0, 0, lpRecip);
if (Result in [MAPI_E_AMBIGUOUS_RECIPIENT,
MAPI_E_UNKNOWN_RECIPIENT]) then
Result := MapiResolveName(0, 0, PChar(strRecipient), MAPI_DIALOG, 0, lpRecip);
if Result = SUCCESS_SUCCESS then
begin
strRecipient := StrPas(lpRecip^.lpszName);
with lpRecipArray^ do
begin
lpszName := StrCopy(new(TlpszRecipName)^, lpRecip^.lpszName);
if lpRecip^.lpszAddress = nil then
lpszAddress := StrCopy(new(TlpszRecipName)^, lpRecip^.lpszName)
else
lpszAddress := StrCopy(new(TlpszRecipName)^, lpRecip^.lpszAddress);
ulEIDSize := lpRecip^.ulEIDSize;
lpEntryID := lpRecip^.lpEntryID;
MapiFreeBuffer(lpRecip);
end
end;
finally
end;
end;

function SendMess: Integer;
const
arrMAPIFlag: array[Boolean] of Word = (0, MAPI_DIALOG);
arrReceipt: array[Boolean] of Word = (0, MAPI_RECEIPT_REQUESTED);
arrLogon: array[Boolean] of Word = (0, MAPI_LOGON_UI or MAPI_NEW_SESSION);
begin
try
Result := MAPISendMail(0, Application.Handle{0}, Message,
arrReceipt[NeedReceipt] or
arrMAPIFlag[WithOpenMessage] or
MAPI_LOGON_UI {or MAPI_NEW_SESSION} or
arrLogon[{True}intMAPISession = 0],
0);
finally
end;
end;

var
lpSender: TMapiRecipDesc;
strDefaultProfile, s: string;
begin
FillChar(Message, SizeOf(Message), 0);
with Message do
begin
strDefaultProfile := '';
if GetDefaultLogon(strDefaultProfile) then
begin
try
{ try to logon with default profile }
Result := MapiLogOn(0, PChar(strDefaultProfile), nil, MAPI_NEW_SESSION, 0, @intMAPISession);
finally
if (Result <> SUCCESS_SUCCESS) then
begin
intMAPISession := 0;
raise Exception.CreateFmt('MAPI Error %d: %s', [Result, MAPIErrorDescription(Result)]);
end;
end
end;


if (SenderAddress <> '') then
begin
lpSender.ulRecipClass := MAPI_ORIG;
if (SenderName <> '') then
lpSender.lpszName := PChar(SenderAddress)
else
lpSender.lpszName := PChar(SenderName);
lpSender.lpszAddress := PChar(SenderAddress);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := @lpSender;
end;

lpszSubject := PChar(Subject);
lpszNoteText := PChar(Body);

if Assigned(Attachments) and (Attachments.Count > 0) then
begin
nFileCount := Attachments.Count;

lpAttachArray := TlpAttachArray(StrAlloc(nFileCount*SizeOf(TMapiFileDesc)));
FillChar(lpAttachArray^, StrBufSize(PChar(lpAttachArray)), 0);
for i := 0 to nFileCount-1 do
begin
lpAttachArray^.nPosition := Cardinal(-1); //Cardinal($FFFFFFFF); //ULONG(-1);
lpAttachArray^.lpszPathName := StrPCopy(new(TlpszPathname)^, Attachments);
if i < AttachmentNames.Count then
lpAttachArray^.lpszFileName := StrPCopy(new(TlpszFileName)^, AttachmentNames)
else
lpAttachArray^.lpszFileName := StrPCopy(new(TlpszFileName)^, ExtractFileName(Attachments));
end;
lpFiles := @lpAttachArray^
end
else
nFileCount := 0;
end;


if Assigned(Recipients) and (Recipients.Count > 0) then
begin
lpRecipArray := TlpRecipArray(StrAlloc(Recipients.Count*SizeOf(TMapiRecipDesc)));
FillChar(lpRecipArray^, StrBufSize(PChar(lpRecipArray)), 0);
for i := 0 to Recipients.Count-1 do
begin
s := Recipients;
if (UpperCase(Copy(s, 1, 3)) = 'CC:') then
begin
lpRecipArray^.ulRecipClass := MAPI_CC;
Delete(s, 1, 3);
end
else
if (UpperCase(Copy(s, 1, 4)) = 'BCC:') then
begin
lpRecipArray^.ulRecipClass := MAPI_BCC;
Delete(s, 1, 4);
end
else
lpRecipArray^.ulRecipClass := MAPI_TO;

if ResolveNames then
CheckRecipient(s)
else
begin
lpRecipArray^.lpszName := StrCopy(new(TlpszRecipName)^, PChar(s));
lpRecipArray^.lpszAddress := StrCopy(new(TlpszRecipName)^, PChar(s));
end;
end;
Message.nRecipCount := Recipients.Count;
Message.lpRecips := @lpRecipArray^;
end
else
Message.nRecipCount := 0;

Result := SendMess;

if Assigned(Attachments) and (Message.nFileCount > 0) then
begin
for i := 0 to Message.nFileCount-1 do
begin
Dispose(lpAttachArray^.lpszPathname);
Dispose(lpAttachArray^.lpszFileName);
end;
StrDispose(PChar(lpAttachArray));
end;

if Assigned(Recipients) and (Recipients.Count > 0) then
begin
for i := 0 to Message.nRecipCount-1 do
begin
if Assigned(lpRecipArray^.lpszName) then
Dispose(lpRecipArray^.lpszName);

if Assigned(lpRecipArray^.lpszAddress) then
Dispose(lpRecipArray^.lpszAddress);
end;
StrDispose(PChar(lpRecipArray));
end;

if intMAPISession <> 0 then
try
MapiLogOff(intMAPISession, 0, 0, 0);
except
end;
end;


{ TMAPIMail }
constructor TMAPIMail.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

EditDialog := True;
FRecipients := TStringList.Create;
FAttachments := TStringList.Create;
FAttachmentNames := TStringList.Create;
end;

destructor TMAPIMail.Destroy;
begin
FRecipients.Free;
Attachments.Free;
AttachmentNames.Free;

inherited Destroy;
end;

procedure TMAPIMail.SetRecipients(Value: TStrings);
begin
FRecipients.Assign(Value)
end;

procedure TMAPIMail.SetAttachments(Value: TStrings);
begin
Attachments.Assign(Value)
end;

procedure TMAPIMail.SetAttachmentNames(Value: TStrings);
begin
AttachmentNames.Assign(Value)
end;

function TMAPIMail.Send: Boolean;
begin
FLastError := SendEMailByMAPI(SenderName, SenderAddress, Subject, Body, Recipients, Attachments, AttachmentNames, EditDialog, ResolveNames, RequestReceipt, 0);

Result := (LastError = SUCCESS_SUCCESS);
end;

end.

具体例子：http://www.scalabium.com/mapimail.htm

郁闷啊。。好不容易等来一个高手，却是这么复杂的东东。。。真的要这么复杂吗？？有没有简洁一点的例子啊？？？？

outlook express不支持ole操作