通过 Outlook 和 Redemption 发送电子邮件时的 AV

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 ('[email protected]');
 rdSafeItem.Send;
 rdUtils:= CreateOleObject ('Redemption.MAPIUtils');
 rdUtils.DeliverNow;
 olNameSpace.Logoff;
 varclear (rdUtils);
 varclear (rdSafeItem);
 varclear (olItem);
 varclear (olNameSpace);
 varclear (olApp);
end;

发送电子邮件后，我在地址 A70D6D13 处收到访问冲突消息（该地址似乎是不变的）。如果我用 F8 单步执行整个过程，在“end”语句之后，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('[email protected]');
 sItem.Attachments.Add('C:\windows\win.ini');
 sItem.save;
 SItem.send;
 outlookapplication1.Disconnect;
end;

这也给出了同样的错误。 AV的地址有什么神奇之处？这一定是解决问题的线索。

蒂亚，

诺姆

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 使用模式的一部分。我可以想象，当变量超出范围（在 end 语句之后）触发时，不连接/断开连接很可能会导致终结代码失败。

我通常使用的模式是：

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

如果您使用“直接”COM，则在使用 Delphi 提供的 TxxxApplication 包装器、CreateOleObject 和释放接口（将其设置为 nil/未分配）之一时，您将使用 Create 和 Free。

在您的示例中，这意味着

olApp.Connect;

在 CreateOleObject 和 olNameSpace 分配行之间添加，并

olApp.Disconnect;

在 olNameSpace.LogOff 之后添加；

添加几个 try/finally 块也不会浪费。

Answer 3

我正在使用 Redemption 5.0.0.2174、Delphi 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 ('[email protected]');
 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

您在结束语句中收到错误，这意味着在清理某些临时变量时可能会抛出错误。也许是清理 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 ('[email protected]');
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。

Answer 5

首先，没有理由使用 DeliverNow - MS 在 Outlook 2002 中破坏了它：
http://www.dimastr.com/redemption/faq.htm#1

其次，尝试摆脱 Logoff 语句。
如果 Outlook 已经在运行，您需要小心 - 如果用户正在运行它，您不想终止它。