论坛 › 邮件服务 › 用 OUTLOOK VBA 生成 自定义文件夹 邮件列表

zhouying23 发表于 2015-9-14 09:45:18

用 OUTLOOK VBA 生成 自定义文件夹 邮件列表

Option Explicit
Sub TestFolder()
'Dim outlookapp, myitem, myfolder
'Dim mailcounts As Integer
'
'
'Set outlookapp = CreateObject("outlook.application")
'    Set myitem = outlookapp.Application.GetNamespace("mapi")
'    Set myfolder = myitem.GetDefaultFolder(olFolderInbox).Folders("AnualParty15")
'    mailcounts = myfolder.Items.Count
'
'    Debug.Print mailcounts
Dim mobjOutlook As Outlook.NameSpace
Dim objOutlook As New Outlook.Application
Dim objFolder As Outlook.Folder
Set mobjOutlook = objOutlook.GetNamespace("MAPI")
Set objFolder = mobjOutlook.GetDefaultFolder(olFolderInbox).Folders("AnualParty15")
Dim objMail As Outlook.MailItem
For Each objMail In objFolder.Items
Debug.Print objMail.SenderEmailAddress, objMail.Sender, objMail.Subject, objMail.ReceivedTime
Next
End Sub
　　

查看完整版本: 用 OUTLOOK VBA 生成 自定义文件夹 邮件列表