如何將通知電子郵件快速發送給尚未在Outlook中投票的人

Outlook解決方案 2025 年 9 月 29 日

發送帶有投票按鈕的電子郵件後，您將收到收件人的投票響應。但是，有時可能會有一些未投票的接收者。在這種情況下，您可能希望向他們發送通知郵件。本文將幫助您快速入門。

Outlook允許用戶發送帶有投票按鈕的電子郵件。如果您已將此類電子郵件發送給許多收件人，那麼您肯定希望盡快得到他們的投票答复。不過，如果您發現某些收件人在幾天后仍未投票，則可能希望向他們發送通知電子郵件。在這種情況下，它要求您通過標準方式手動提取收件人，這有點麻煩。現在，在下文中，我們將為您介紹另一種簡便的方法。

發送通知電子郵件給尚未投票的人

首先，點擊“ Alt + F11”以觸發Outlook VBA編輯器。
然後，將以下代碼複製並粘貼到未使用的模塊中。

Sub SendNotification_ThoseNotVoted()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objNotification As Outlook.MailItem
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection(1)
    End Select
 
    'Create a notification email
    Set objNotification = Outlook.Application.CreateItem(olMailItem)
 
    'Add those who haven't voted to the notification email as recipients
    For Each objRecipient In objMail.Recipients
        If objRecipient.TrackingStatus = olTrackingNone Then
           objNotification.Recipients.Add objRecipient.Address
        Else
           If objRecipient.AutoResponse = "" Then
              objNotification.Recipients.Add objRecipient.Address
           End If
        End If
    Next
 
    'Set the notification email details
    With objNotification
         .Recipients.ResolveAll
         .Subject = "Please Vote!!!"
         .Body = "Please vote as soon as possible!!"
         .Attachments.Add objMail
         '.Send ==> To directly send out
         .Display
    End With
End Sub