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

时间：2023-03-08 20:48:18
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