delphi MS Office Outlookのエラー

Question

MS Office OutlookからBDS 2006で開発したアプリケーションを使用してメールを送信しようとしています。 見通しが完全に正常に動作しますが、Outlookが閉じている場合はtryブロックで失敗します。

それは私がこれを克服するにはどうすればよい私のコード

procedure TMyform.BTN_mailClick(Sender: TObject); 
const 
    olMailItem =0; 
var 
    Outlook: OleVariant; 
    vMailItem: variant; 
begin 
    try 
    Outlook := GetActiveOleObject('Outlook.Application'); 
    except 
    Outlook := CreateOleObject('Outlook.Application'); 
    end; 
    vMailItem := Outlook.CreateItem(olMailItem); 
    vMailItem.Recipients.Add(mailaddress); 
    vMailItem.Subject := 'mymail'; 
    vMailItem.Body := 'Dear ' 
    vMailItem.Attachments.Add(path); 
    vMailItem.Send; 
    VarClear(Outlook); 
end; 

をエラーEOlesystem error : Operation unavailableを表示し、Exceptブロックに行きませんか？

ありがとうございました

Answer 1

例外ブロックに移動する必要があります。そこにブレークポイントを設定して確認しましたか？

しかし、それにもかかわらず、あなたが起きてから例外を防ぐことができます。

var 
    Outlook: OleVariant; 
    ClassID: TCLSID; 
    Unknown: IUnknown; 
begin 
    if Succeeded(GetActiveObject(ClassID, nil, Unknown)) then 
    OleCheck(Unknown.QueryInterface(IDispatch, Outlook)) else 
    Outlook := CreateOleObject('Outlook.Application'); 
{ ... } 

Answer 2

私は同じ問題を抱えていました。しかし、最近私は回避策を見つけました。 "vMailItem.Recipients.Add（mailaddress）;"を使用して複数の電子メールアドレスを追加する代わりに、 "vMailItem.To：= 'mailID';"を使用しました。それがあなたに役立つことを願っています; `それは私が破る押した後にのみ行くブロックexcept` .About`

procedure TForm1.SendMailClick(Sender: TObject); 
const olMailItem = $00000000; 
Var 
    Outlook: OleVariant; 
    Mail: Variant; 
begin 
    try 
    try 
     Outlook := GetActiveOleObject('Outlook.Application'); 
    except 
     Outlook := CreateOleObject('Outlook.Application'); 
    end; 
    Mail := Outlook.CreateItem(olMailItem); 

    Mail.To := 'receiver1@xyz.com' + ';' + 'receiver2@xyz.com'; 

    Mail.Subject := 'your subject'; 

    Mail.Display; //Mail.Send; if you want to send directly 

    Except 
    on E : Exception do 
     ShowMessage(E.ClassName+' error raised, with message : '+E.Message); 
    End; 
end;