Outlook 2013使用VBA发送草稿

使用Outlook 2013的VBA可以轻松地发送草稿邮件。VBA是一种编程语言，可以在Outlook中自动执行各种操作，包括创建、编辑和发送邮件。这种功能非常实用，可以帮助用户提高工作效率。

vba
Sub SendDraftEmail()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olDraftsFolder As Outlook.MAPIFolder
    Dim olDraftItem As Outlook.MailItem
    
    ' 创建Outlook应用程序实例
    Set olApp = New Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 打开草稿邮件所在的文件夹
    Set olDraftsFolder = olNamespace.GetDefaultFolder(olFolderDrafts)
    
    ' 获取第一个草稿邮件
    Set olDraftItem = olDraftsFolder.Items(1)
    
    ' 发送草稿邮件
    olDraftItem.Send
    
    ' 释放对象
    Set olDraftItem = Nothing
    Set olDraftsFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

vba
Sub SendDraftEmail()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olDraftsFolder As Outlook.MAPIFolder
    Dim olDraftItem As Outlook.MailItem
    
    ' 创建Outlook应用程序实例
    Set olApp = New Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 打开草稿邮件所在的文件夹
    Set olDraftsFolder = olNamespace.GetDefaultFolder(olFolderDrafts)
    
    ' 获取第一个草稿邮件
    Set olDraftItem = olDraftsFolder.Items(1)
    
    ' 发送草稿邮件
    olDraftItem.Send
    
    ' 释放对象
    Set olDraftItem = Nothing
    Set olDraftsFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub