AV發送通過Outlook電子郵件和贖回時

Question

這裏是我的代碼：

const 
olMailItem = 0; 

var 
olApp, OlNameSpace, OlItem, rdSafeItem, rdUtils: variant; 

begin 
olApp:= CreateOleObject ('Outlook.Application'); 
olNameSpace:= olApp.GetNamespace ('MAPI'); 
olNameSpace.Logon; 
olItem:= olApp.CreateItem (olMailItem); 
rdSafeItem:= CreateOleObject ('Redemption.SafeMailItem'); 
rdSafeItem.Item:= olItem; 

rdSafeItem.Subject:= 'Testing'; 
rdSafeItem.attachments.Add ('c:\windows\win.ini'); 
rdSafeItem.Recipients.Add ('test@testing.com'); 
rdSafeItem.Send; 
rdUtils:= CreateOleObject ('Redemption.MAPIUtils'); 
rdUtils.DeliverNow; 
olNameSpace.Logoff; 
varclear (rdUtils); 
varclear (rdSafeItem); 
varclear (olItem); 
varclear (olNameSpace); 
varclear (olApp); 
end; 

的電子郵件發送後，我得到一個訪問衝突消息在地址A70D6D13（這個地址似乎是不變）。如果我用F8逐步完成整個過程，在'結束'語句之後，CPU窗口顯示在地址A70D6D13上，將所有內存顯示爲????。

我使用的是Delphi 7，Outlook 2003，Redemption 4.8.0.1184 此代碼缺少什麼？

編輯： 我發現了其他幾個代碼片斷通過Outlook/Redemption發送郵件。這是一個使用OutlookApplication服務器的片段。

begin 
outlookapplication1.Connect; 
NmSpace:= outlookapplication1.GetNamespace('MAPI'); 
NmSpace.Logon('', '', False, False); 
oItem:= outlookapplication1.CreateItem(olMailItem); 
sItem:= CreateOleObject('Redemption.SafeMailItem'); 
oItem.Subject:= 'my subject'; 
oItem.save; 
sItem.Item:= oItem; 
sItem.Recipients.Add('test@test.com'); 
sItem.Attachments.Add('C:\windows\win.ini'); 
sItem.save; 
SItem.send; 
outlookapplication1.Disconnect; 
end; 

這也給出了同樣的錯誤。什麼是AV的地址神奇？它必須是解決方案的線索。

TIA，

No'am

Answer 1

嘗試丟棄varclear語句。

您描述的症狀表明您正在設法從例程中的內存中驅逐COM對象，然後Delphi在方法變量超出範圍時嘗試再次釋放它們。

Answer 2

更新

由於No'am正確地評論說，Outlook的應用COM接口不支持連接和斷開。我很驚訝，但我通常使用Delphi包裝器，而TOutlookApplication的Connect實現只是返回CreateOleObject或GetActiveObject的結果。 TOutlookApplication的Disconnect方法的實現實際上不僅僅是發佈接口。如果AutoQuit爲true，它將在應用程序的COM接口上調用Quit。

但是，因爲它似乎是可選的，我認爲不叫olApp.Quit不應該導致No'am遇到的問題。留下我的答案爲「教育」材料，所以其他人不必檢查。

---

不知道這其實是你的問題的原因，但我在你的代碼錯過的是從Outlook應用程序連接和斷開。儘管他們顯然不需要使用Outlook COM服務器（正如發送的郵件所建議的那樣），但它們是我所知道的「常規」COM使用模式的一部分。我可以很好地想象，當連接/斷開連接/斷開連接超出範圍（在結束語句之後）觸發時，可能導致終結代碼崩潰。

我通常使用的模式是：

Create/CreateOleObject 
try 
    Connect 
    try 
    ... 
    finally 
    Disconnect 
    end 
finally 
    Free/Release 
end 

你會使用創建和免費使用時，德爾福的一個提供TxxxApplication包裝，CreateOleObject和釋放接口（將其設置爲無/未分配），如果你是使用「直線」COM。

在您的例子，這將意味着增加

olApp.Connect; 

的CreateOleObject和olNameSpace分配線間，和olNameSpace.LogOff後加入

olApp.Disconnect; 

;

添加一對try/finally塊也不會被浪費。

Answer 3

我使用贖回5.0.0.2174，德爾福7，Outlook 2003中

我修改您的代碼如下，並能發送電子郵件沒有任何錯誤

const 
olMailItem = 0; 
var 
olApp, OlNameSpace, OlItem, rdSafeItem, rdUtils: variant; 
begin 
olApp:= CreateOleObject ('Outlook.Application'); 
olNameSpace:= olApp.GetNamespace ('MAPI'); 
olNameSpace.Logon; 
olItem:= olApp.CreateItem (olMailItem); 
rdSafeItem:= CreateOleObject ('Redemption.SafeMailItem'); 
rdSafeItem.Item:= olItem; 
rdSafeItem.Subject:= 'Testing'; 
rdSafeItem.attachments.Add ('c:\windows\win.ini'); 
rdSafeItem.Recipients.Add ('test@testing.com'); 
rdSafeItem.Recipients.ResolveAll;      // added 
rdSafeItem.Send; 
// rdUtils:= CreateOleObject ('Redemption.MAPIUtils'); 
// rdUtils.DeliverNow; 
olNameSpace.Logoff; 
// varclear (rdUtils); 
// varclear (rdSafeItem); 
// varclear (olItem); 
// varclear (olNameSpace); 
// varclear (olApp); 
end; 

Answer 4

˚Firstly，沒有理由使用DeliverNow - MS破壞它在OUtlook 2002： http://www.dimastr.com/redemption/faq.htm#1

其次，它是否工作，如果你忘了Logoff語句？ 如果Outlook已經在運行，你需要小心 - 如果用戶正在運行它，你不想殺死它。

Answer 5

您在結束語句處得到錯誤，這意味着錯誤可能在清理一些臨時變量時拋出。也許是清理rdSafeItem.Recipients的臨時變量或者與CreateOleObject一起使用的一些中間變量。你可以做的是把你的代碼分割成更小的部分，在那些較小的過程中（至少那些使用中間變量的）做所有與com相關的東西，而不是在你的主要方法中。這可以更容易地追蹤問題或者甚至可以解決問題。

事情是這樣的：

function CreateOutlookApp: OleVariant; 
begin 
    Result := CreateOleObject ('Outlook.Application'); 
end; 

function GetAndLogonNamespace(const olApp: OleVariant): OleVariant; 
begin 
    Result := olApp.GetNamespace ('MAPI'); 
    Result.Logon; 
end; 

function GetSafeMailItem(const olApp: OleVariant): OleVariant; 
const 
olMailItem = 0; 
var 
    olItem: OleVariant; 
begin 
    olItem:= olApp.CreateItem (olMailItem); 
    Result := CreateOleObject ('Redemption.SafeMailItem'); 
    Result.Item:= olItem; 

    Result.Subject:= 'Testing'; 
    Result.attachments.Add ('c:\windows\win.ini'); 
    Result.Recipients.Add ('test@testing.com'); 
end; 

procedure SendTestMail; 
var 
olApp, olNameSpace, rdSafeItem: OleVariant 
begin 
OutputDebugString('CreateOutlookApp'); 
olApp := CreateOutlookApp; 
OutputDebugString('GetAndLogonNamespace'); 
olNameSpace := GetAndLogonNamespace(olApp); 
OutputDebugString('GetSafeMailItem'); 
rdSafeItem := GetSafeMailItem(olApp); 
OutputDebugString('rdSafeItem.Send'); 
rdSafeItem.Send; 
OutputDebugString('DeliverNow'); 
DeliverNow; //implement this yourself 
OutputDebugString('LogoffNamespace'); 
LogoffNamespace(olNamespace); //implement this yourself 
OutputDebugString('Cleaning up'); 
end; 

編輯：添加OutputDebugStrings因爲錯誤似乎只能當應用程序沒有調試器中運行的情況發生。當你發現有問題的功能時，你可以在那裏添加更多的OutputDebugStrings。