OutLook邮件读取(200分)

  • 主题发起人 主题发起人 ankery
  • 开始时间 开始时间
A

ankery

Unregistered / Unconfirmed
GUEST, unregistred user!
目前开发的软件需要通过OutLook的电子邮件传递信息,这是客户的要求,
本人从来没有做过关于Office的软件,请大家赐教。如果能够提供D6的Server
组件的帮助文档,感激之至。
 
查msdn可以通过sql server数据库的扩展存储过程来处理
发送的是xp_sendmail 接受的我没记住,你查一下
 
procedure TForm1.Button1Click(Sender: TObject);
var
MAPIFolders: MAPIFolder;
Email: MailItem;
begin
outlook.Connect;
NmSpace.ConnectTo(outlook.GetNamespace('MAPI'));
MAPIFolders := NmSpace.getdefaultfolder(olFolderInbox) as MAPIFolder;
edit10.Text := inttostr(MAPIFolders.Items.Count);
edit11.Text := inttostr(MAPIFolders.UnReadItemCount);
Email := MAPIFolders.items.item(index) as MailItem;
end;
不能读取服务器返回的邮件未发送信息,什么原因?
 
没有结果的一次提问,唉........
 
后退
顶部