vba API操作OUTLOOK

在VBA中，使用`Microsoft.Office.Interop.Outlook` API来操作Outlook主要涉及到对Outlook的对象模型进行编程。这个API提供了一个对象层次结构，让你能够访问Outlook的功能，如创建邮件、管理邮件文件夹、处理邮件、日历和任务等。

例如，以下是几个常见的VBA API操作Outlook的例子：

1. **打开Outlook并新建邮件**:

   Sub CreateAndSendEmail()
       Dim outlookApp As Outlook.Application
       Set outlookApp = New Outlook.Application
       
       Dim newMail As Outlook.MailItem
       Set newMail = outlookApp.CreateItem(olMailItem)
       
       With newMail
           .To = "recipient@example.com"
           .Subject = "VBA API测试邮件"
           .Body = "这是通过VBA API发送的邮件。"
           .Send
       End With
       
       Set newMail = Nothing
       outlookApp.Quit
   End Sub

2. **读取收件箱邮件**:

   Sub ReadInboxEmails()
       Dim inbox As Outlook.MAPIFolder
       Dim items As Outlook.MailItems
       
       Set inbox = Application.Session.GetDefaultFolder(olFolderInbox)
       Set items = inbox.Items
       
       For Each mail In items
           Debug.Print mail.Subject
       Next mail
   End Sub

3. **添加日历事件**:

   Sub AddCalendarEvent()
       Dim calendar As Outlook.AppointmentItem
       Set calendar = Application.CreateItem(olAppointmentItem)
       
       With calendar
           .Start = DateNow + 1 ' 1小时后的开始时间
           .Duration = 60 ' 会议持续时间为1小时
           .Subject = "VBA会议"
           .Save
       End With
   End Sub