outlook和数据库集成开发的问题

rucha

我想开发这样一个程序，使用outlook发送邮件至一个特定的信箱，收到这个邮件后根据邮件的标题将邮件的内容有选择的写入一个本地的数据库或者是在本地的一个excel文件中添加一个记录，不知道那位知道，谢谢！

rucha

谢谢，我想设计一个outlook的form，在form中写入script，当发件人发送这个form的时候出发这个script，会自动将email的某些信息（比如发送的时间）写入一个excel文件，请问有类似的sample吗？Thanks!

loadhigh

rucha:你好！

如下的代码就是利用outlook的itemsend事件实现的记录发送邮件的vba程序。当然也可以结合ado对象可以将mail的更多的属性记录到sql server或access的表内。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim xlapp, xlbook As Object Set xlapp = CreateObject("Excel.Application") '建立xlbook和xlapp对象 Set xlbook = xlapp.workbooks.Add With xlbook.worksheets(1) '将邮件的信息纪录在xls文件的sheet1内 .cells(1, 1) = "主题" .cells(1, 2) = Item.Subject .cells(2, 1) = "收件人" .cells(2, 2) = Item.To .cells(3, 1) = "发送时间" .cells(3, 2) = Now '当前时间 .cells(4, 1) = "" '还可以记录的其他信息,具体请参阅mailitem的属性 End With xlbook.SaveAs "c:\MySentMail.xls" '保存xls文件 xlbook.Close '关闭xls文件 xlapp.Quit '关闭excel程序 Set xlbook = Nothing '撤销xlbook和xlapp对象 Set xlapp = Nothing

End Sub

loadhigh

rucha:你好!

你可以参看本版中例子.

邮件的主题是subject属性;正文是body属性.

所以程序的处理过程就是:其实只要的逐个打开邮件,判断其subject,符合条件的就获取其body,然后保存到excel或数据库中 某表的某列即可.