调用outlook2003？

我自己机子上装的是outlook Express, 用以下代码调用，没有问题。
装了outlook2003或outlook2007的机子，调用就不成功。怎么办？
var
  MapiMessage: TMapiMessage;
  msgstr :string;
  Success: integer;
  Recis: TMapiRecipDesc;
begin
  FillChar(MapiMessage, SizeOf(TMapiMessage), 0);
  FillChar(Recis, SizeOf(Recis), 0);
  Recis.lpszAddress := PChar(Address);
  Recis.ulRecipClass := 1;
  MapiMessage.nRecipCount := 1;
  MapiMessage.lpRecips := @Recis;  Success:= MapiSendMail(0, Application.Handle, MapiMessage,
    MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);