请教chenlili,在你回答的直接弹出OUTLOOK的问题里的程序时，OUTLOOK 的新邮件的界面好象被锁定，不知道如何才能解决，谢谢！(50分)

下面是这段程序，还有谁知道吗。
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
// lpszNoteText := PChar(RichEdit1.Lines.Text);
lpszNoteText := PChar('****');
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;

MError := MapiSendMail(0, 0, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
if MError <> 0 then
MessageDlg(SSendError, mtError, [mbOK], 0);

发邮件到brute@21cn.com问问他

接受答案了.

sunys 我也遇到了同样的问题，该如何解决呢？帮帮我，谢谢！！！