A ankery Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-05 #1 目前开发的软件需要通过OutLook的电子邮件传递信息,这是客户的要求, 本人从来没有做过关于Office的软件,请大家赐教。如果能够提供D6的Server 组件的帮助文档,感激之至。
A antic_ant Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-05 #2 查msdn可以通过sql server数据库的扩展存储过程来处理 发送的是xp_sendmail 接受的我没记住,你查一下
A ankery Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #3 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; 不能读取服务器返回的邮件未发送信息,什么原因?
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; 不能读取服务器返回的邮件未发送信息,什么原因?