如何快速向 Outlook 中未回复的人重新发送会议邀请

展望解决方案 2025 年 9 月 29 日
立即分享：

很多用户希望能够快速将会议邀请重新发送给还未做出任何回应的与会者。 本文将向您展示如何实现它。

在我之前的文章中——“如何快速向未回复的会议与会者发送通知邮件”，您可以了解如何向未回复的会议收件人发送通知邮件。 与此类似，许多用户更愿意直接重新发送此会议​​邀请，而不是通知邮件。 因此，下面我们将公开一段VBA代码，让您瞬间实现。

快速向 Outlook 中未回复的人重新发送会议邀请

向未回复的人重新发送会议邀请

  1. 到tar然后，启动您的 Outlook 应用程序。
  2. 然后，在 Outlook 主窗口中，按“Alt + F11”键按钮访问 VBA 编辑器。
  3. 接下来您应该打开一个未使用的模块或简单地插入一个新模块。
  4. 随后，将下面的 VBA 代码复制并粘贴到该模块中。
Sub ResendMeetingInvitationToAttendeesNotRespond()
    Dim objMeeting As AppointmentItem
    Dim objAttendees As Recipients
    Dim objAttendee As recipient
    Dim AttendeesNotRespond As String
    Dim objCopiedMeeting As AppointmentItem
    Dim objRecipient As recipient
    Dim objItem As Object
 
    Set objMeeting = ActiveExplorer.Selection.Item(1)
    'Create a copy of the source meeting
    Set objCopiedMeeting = objMeeting.Copy
 
    'Remove all the original recipients
    For i = objCopiedMeeting.Recipients.Count To 1 Step -1
        objCopiedMeeting.Recipients.Item(i).Delete
    Next
 
    Set objAttendees = objMeeting.Recipients
    For Each objAttendee In objAttendees
        If (objAttendee.Type <> olOrganizer) And (objAttendee.MeetingResponseStatus = olResponseNone) Then
           'Add the recipients who haven't responded to this meeting
           objCopiedMeeting.Recipients.Add (objAttendee.Address)
        End If
    Next
 
    'Send this copied meeting
    objCopiedMeeting.Recipients.ResolveAll
    objCopiedMeeting.Send
 
    'Permanently delete the copied meeting
    objCopiedMeeting.UserProperties.Add ("Clear"), olText
    objCopiedMeeting.Save
    objCopiedMeeting.Delete
    For Each objItem In Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
        If TypeName(objItem.UserProperties.Find("Clear")) <> "Nothing" Then
           objItem.Delete
        End If
    Next
End Sub

VBA 代码 - 快速向未回复的人重新发送会议邀请

  1. 之后，为了以后方便访问，您最好像往常一样将这个新的 VBA 项目添加到快速访问工具栏。
  2. 此外，访问宏设置以确保允许使用宏。
  3. 最后你可以拍一张：
  • 首先，您需要在 Outlook 日历中选择源会议。
  • 然后按快速访问工具栏中的宏按钮。
  • 立即将此会议重新发送给未响应的与会者。

解决各种 Outlook 问题

当您使用 Outlook 时，可能会出现各种意外问题，例如突然的“无响应”、弹出错误消息、崩溃等。 通常，您必须使用内部修复实用程序修复小问题。 但是，如果问题严重到 Scanpst.exe 无法解决，您别无选择，只能求助于更强大、更可靠的修复工具，例如 DataNumen Outlook Repair. 它精通 PST修复，从而超越其竞争对手。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。