วิธีตอบกลับข้อความที่ได้รับโดยอัตโนมัติเมื่อคุณไม่ว่างใน Outlook?

ผู้เขียน: ซัน แก้ไขล่าสุด: 2024-08-30

บางครั้งคุณต้องการตอบกลับข้อความที่ได้รับใน Outlook โดยอัตโนมัติในขณะที่คุณกำลังยุ่งอยู่ในช่วงเวลาหนึ่ง แต่ไม่มีฟังก์ชันในตัวที่สามารถจัดการงานนี้ได้อย่างไรก็ตามที่นี่ฉันมีรหัส VBA เพื่อจัดการกับมัน

ตอบกลับอัตโนมัติเมื่อคุณยุ่งกับรหัส VBA

ตอบกลับอัตโนมัติเมื่อคุณยุ่งกับรหัส VBA

นี่คือรหัส VBA ซึ่งจะตอบกลับอัตโนมัติในขณะที่มีการนัดหมายบางอย่างในปฏิทิน Outlook ของคุณหากไม่มีสิ่งใดในปฏิทินจะหยุดตอบโดยอัตโนมัติ

1 กด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ดับเบิลคลิกที่ นี้OutlookSession จาก Project1 บานหน้าต่างคัดลอกและวางโค้ดด้านล่างลงในสคริปต์

VBA: ตอบกลับอัตโนมัติในขณะที่คุณกำลังยุ่งอยู่ในปฏิทิน

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3. บันทึกรหัสนี้และรีสตาร์ท Outlook จากนี้ไป หากได้รับอีเมลในช่วงเวลาที่คุณนัดหมาย ระบบจะส่งการตอบกลับอัตโนมัติ

ทิปส์:

(1) ในโค้ดคุณสามารถเปลี่ยนเนื้อหาการตอบกลับได้ตามที่คุณต้องการในสคริปต์นี้ “ฉันขอโทษที่ฉันไม่สามารถตอบคุณได้ในขณะนี้ ฉันจะตอบคุณในภายหลัง” & _

(2) แมโคร VBA นี้สามารถตอบอีเมลที่ได้รับในกล่องขาเข้าของไฟล์ข้อมูลเริ่มต้นได้โดยอัตโนมัติ

AI Mail Assistant ใน Outlook: การตอบกลับที่ชาญฉลาดยิ่งขึ้น การสื่อสารที่ชัดเจนยิ่งขึ้น (เวทย์มนตร์เพียงคลิกเดียว!) ฟรี

ปรับปรุงงาน Outlook ประจำวันของคุณด้วย AI Mail Assistant จาก Kutools for Outlook เครื่องมืออันทรงพลังนี้เรียนรู้จากอีเมลที่ผ่านมาของคุณเพื่อให้การตอบกลับที่ชาญฉลาดและแม่นยำ เพิ่มประสิทธิภาพเนื้อหาอีเมลของคุณ และช่วยให้คุณร่างและปรับแต่งข้อความได้อย่างง่ายดาย

คุณสมบัตินี้รองรับ:

การตอบกลับอัจฉริยะ: รับการตอบกลับที่สร้างขึ้นจากการสนทนาที่ผ่านมาของคุณ ปรับแต่ง แม่นยำ และพร้อมใช้งาน
เนื้อหาที่ได้รับการปรับปรุง: ปรับแต่งข้อความอีเมลของคุณโดยอัตโนมัติเพื่อความชัดเจนและผลกระทบ
องค์ประกอบที่ง่ายดาย: เพียงระบุคำหลัก แล้วปล่อยให้ AI จัดการที่เหลือด้วยสไตล์การเขียนที่หลากหลาย
ส่วนขยายอัจฉริยะ: ขยายความคิดของคุณด้วยคำแนะนำที่คำนึงถึงบริบท
สรุป: รับภาพรวมโดยย่อของอีเมลขนาดยาวทันที
การเข้าถึงทั่วโลก: แปลอีเมลของคุณเป็นภาษาต่างๆ ได้อย่างง่ายดาย

คุณสมบัตินี้รองรับ: