วิธีส่งคำเชิญเข้าร่วมการประชุมอีกครั้งอย่างรวดเร็วไปยังผู้ที่ไม่ได้ตอบกลับใน Outlook

โซลูชัน Outlook September 29, 2025

ผู้ใช้หลายคนหวังว่าจะส่งคำเชิญเข้าร่วมการประชุมอีกครั้งอย่างรวดเร็วให้กับผู้เข้าร่วมที่ไม่ได้ตอบกลับ บทความนี้จะแสดงวิธีการบรรลุเป้าหมาย

ในบทความก่อนหน้าของฉัน -“วิธีส่งเมลแจ้งเตือนไปยังผู้เข้าร่วมประชุมที่ยังไม่ตอบกลับอย่างรวดเร็ว” คุณสามารถเรียนรู้วิธีส่งเมลแจ้งเตือนไปยังผู้รับการประชุมที่ยังไม่ตอบกลับ ในทำนองเดียวกันผู้ใช้หลายคนต้องการส่งคำเชิญเข้าร่วมการประชุมนี้อีกครั้งโดยตรงแทนอีเมลแจ้งเตือน ดังนั้นในสิ่งต่อไปนี้เราจะเปิดเผยโค้ด VBA ส่วนหนึ่งซึ่งสามารถช่วยให้คุณรู้ได้ในทันที

ส่งคำเชิญเข้าร่วมการประชุมอีกครั้งสำหรับผู้ที่ยังไม่ได้ตอบกลับ

ถึงtarเปิดแอปพลิเคชัน Outlook ของคุณ
จากนั้นในหน้าต่างหลักของ Outlook ให้กดปุ่ม“ Alt + F11” เพื่อเข้าถึงตัวแก้ไข VBA
ถัดไปคุณควรเปิดโมดูลที่ไม่ได้ใช้งานหรือเพียงแค่ใส่โมดูลใหม่
จากนั้นคัดลอกและวางโค้ด 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 ใหม่นี้ลงในแถบเครื่องมือด่วนตามปกติ
นอกจากนี้ให้เข้าถึงการตั้งค่ามาโครเพื่อให้แน่ใจว่าอนุญาตให้ใช้มาโครได้
ในที่สุดคุณก็สามารถถ่ายภาพได้:

ประการแรกคุณต้องเลือกการประชุมต้นทางในปฏิทิน Outlook ของคุณ
จากนั้นกดปุ่มมาโครในแถบเครื่องมือด่วน
ในทันทีการประชุมนี้จะไม่ตอบสนองต่อผู้เข้าร่วมที่ไม่ได้ตอบกลับ

แก้ไขปัญหาต่างๆของ Outlook

เมื่อคุณใช้ Outlook ของคุณปัญหาทุกประเภทอาจเกิดขึ้นโดยไม่คาดคิดเช่น“ ไม่ตอบสนอง” กะทันหันข้อความแสดงข้อผิดพลาดของป๊อปอัปข้อขัดข้องและอื่น ๆ โดยทั่วไปคุณจำเป็นต้องแก้ไขปัญหาเล็กน้อยเกี่ยวกับยูทิลิตี้การซ่อมแซมภายใน อย่างไรก็ตามหากปัญหาร้ายแรงเกินกว่าจะแก้ไขโดย Scanpst.exe คุณไม่มีทางเลือกอื่นนอกจากใช้เครื่องมือแก้ไขที่มีประสิทธิภาพและเชื่อถือได้มากกว่าเช่น DataNumen Outlook Repair. มีความเชี่ยวชาญเป็นอย่างดี ซ่อม PSTจึงโอบไหล่คู่แข่ง

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ sql ที่เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.