[求助]如何在excel中使用outlook中的搜索文件夹数据

somelee

在使用excel作数据统计的时候需要记录特定的邮件的数量。已经在outlook中建立了搜索文件夹，但每次都需要向excel手动填写数量。怎样才能让excel自动读取到这些邮件的数量？

[此贴子已经被作者于2007-10-13 15:00:32编辑过]

aaaaabbbbb

1.直接在OUTLOOK里加入一段宏代码。

Sub CreateNewAM()
'如何将存储区上的搜索文件夹“昨天邮件”中的邮件数读到EXCLE中
    Dim olApp As New Outlook.Application
    Dim excelApp As Object
    Dim colStores As Outlook.Stores
    Dim oStore As Outlook.Store
    Dim oSearchFolders As Outlook.Folders
    Dim oFolder As Outlook.Folder
   
    On Error Resume Next
    Set colStores = olApp.Session.Stores
    olunreadmail = colStores.Item(1).GetSearchFolders("昨天邮件").UnReadItemCount

    Set excelApp = GetObject(, "excel.Application")
    excelApp.Worksheets("Sheet1").Activate
    excelApp.Range("B1").Value = olunreadmail
   
    Set excelApp = Nothing
   
End Sub

2.在EXCEL里执行宏代码，同样可以

Sub CreateNewAM()
'请在工具－》引用中选中Microsoft Outlook的library
Dim olApp As Object
'Dim colStores As Outlook.Stores
Dim colStores As Object
Dim olUnReadMail As Long

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Set olApp = CreateObject("Outlook.Application")
End If

 ' On Error Resume Next
Set colStores = olApp.Session.Stores
olUnReadMail = colStores.Item(1).GetSearchFolders.Item("昨天邮件").UnReadItemCount
Worksheets("Sheet1").Activate
Range("B1").Value = olUnReadMail
 
Set olApp = Nothing

End Sub

[此贴子已经被作者于2007-10-15 2:39:18编辑过]

nancy0731

outlook也可以加载宏文件？？？太强了。

来到这个网站后才发现高手云集呀。

请问这个网站里有OUTLOOK2000的问题集连接么？想现看看各位高手以往的解答。

谢谢了。

lwl123007

真牛比啊,膜拜 一下

charliemailbox

搜集搜集搜集