操作outlook express问题?

Question

各位大侠:
 我的一个客户要求在接到定单以后没，输入此单进系统(Delphi6+Sql2000)，输入完毕以后可以在系统中调用outlook,并且可以根据客户名称和订购货品自动的在outlook中将所有邮件找出来并显示出来?请问怎么操作?

Answer 1

估计你解决问题最终还是需要看VBA。uses
  comobj, outlook2000;procedure TForm1.Button1Click(Sender: TObject);
var
  OutlookApp, Mapi, InboxFolder, MailItem1, Item: OleVariant;
  I: Integer;
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    try
      OutlookApp := CreateOleObject('Outlook.Application');
    except
      Exit;
    end;
  end;  Mapi := OutlookApp.GetNameSpace('MAPI');
  Mapi.Logon('', '', False, False);  InboxFolder := Mapi.GetDefaultFolder(olFolderinbox);
  for I := 1 to InboxFolder.Items.Count do
  begin
    ListBox1.Items.Add(InboxFolder.Items(I));
  end;
  OutlookApp := Unassigned;
end;

Answer 2

OutlookApp := GetActiveOleObject('Outlook.Application');
这句话有错误，老是显示无效的字串类型