DelphiでOutlookを他の電子メールクライアントとはどのように連携させていますか？

Question

私はDelphiアプリケーションでmapiメッセージを作成し、デフォルトのmapiメールクライアントでメッセージを送信します。つまり、フォーマットされたメッセージがメールクライアントに表示され、「送信」をクリックします。

電子メールクライアントがThunderbirdまたはOutlook Expressの場合、すべてがうまくいきますが、Outlook（2007）のときは見知らぬものです。たとえば、Outlookにはフォーカスが当てられますが、ユーザーはOutlookウィンドウを閉じることができません。また、プログラム内でマウスを使用することもできません。矢印はOutlook内で消えます。私は自分自身がタスクマネージャからアプリを閉じる必要があることがわかります。

初心者の観点から見ると、この問題は、フォームを制御し、単純なマップや拡張されたマップに接続されているものよりも重視されます。後者はこのケースでは無関係と思われる。

ここで何が起こっているのか分かりますか？問題を処理するためにコードをどのように変更する必要がありますか？

この

はコードです：

MapiMail1 := TMapiMail.Create(self); 
try 
    MapiMail1.Recipients.Add(MainGrid.AllCells[aCol, aRow]); 
    MapiMail1.Subject := ''; 
    MapiMail1.Body := ''; 
    MapiMail1.EditDialog := True; 
    MapiMail1.Send; 
finally 
    MapiMail1.Free; 
end; 

Answer 1

OutlookがMAPIではなくOLEを使用して素晴らしい作品。試してみてください：

USES OleCtrls, ComObj; 

procedure TForm1.Button1Click(Sender: TObject); 
const 
    olMailItem = 0; 
var 
    Outlook: OLEVariant; 
    MailItem: Variant; 
    MailInspector : Variant; 
    stringlist : TStringList; 
begin 
    try 
    Outlook:=GetActiveOleObject('Outlook.Application') ; 
    except 
    Outlook:=CreateOleObject('Outlook.Application') ; 
    end; 
    try 
    Stringlist := TStringList.Create; 
    MailItem := Outlook.CreateItem(olMailItem) ; 
    MailItem.Subject := 'subject here'; 
    MailItem.Recipients.Add('someone@yahoo.com'); 
    MailItem.Attachments.Add('c:\boot.ini'); 
    Stringlist := TStringList.Create; 
    StringList.Add('body here'); 
    MailItem.Body := StringList.text; 
    MailInspector := MailItem.GetInspector; 
    MailInspector.display(true); //true means modal 
    finally 
    Outlook := Unassigned; 
    StringList.Free; 
    end; 
end;