วิธีสร้างการนัดหมายใหม่อัตโนมัติเมื่ออีเมลถูกตั้งค่าสถานะใน Outlook

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

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

สร้างการนัดหมายใหม่อัตโนมัติเมื่ออีเมลถูกตั้งค่าสถานะ

1. ก่อนอื่นให้เปลี่ยนไปที่แท็บ "นักพัฒนา" และกดปุ่ม "Visual Basic" ในกลุ่ม "รหัส"
2. จากนั้นในหน้าต่าง "Microsoft Visual Basic for Applications" ใหม่ คุณต้องดับเบิลคลิกที่ "ThisOutlookSession" เพื่อเปิดโครงการนี้
3. จากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงไป

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim oAppt As AppointmentItem
    Dim strMsg As String
    Dim nRes As Integer
 
    On Error Resume Next
 
    If TypeName(Item) = "MailItem" And Item.IsMarkedAsTask = True Then
       strMsg = "Do you want to create a new appointment"
       nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Creating Appointment")
       If nRes = vbYes Then
          Set oAppt = Application.CreateItem(olAppointmentItem)
          With oAppt
               .Subject = "New Appt: " & Item.Subject
               .Location = InputBox("Enter the Location, please.")
               'Type the concrete time, such as "12/29/2015 15:30"
               .Start = InputBox("Enter a specific time (format: MM/DD/YYYY hh:mm), please.")
               .Duration = 120
               .Body = "New Appointment: " & vbCrLf & vbCrLf & Item.Body
               .Attachments.Add Item
               .ReminderSet = True
               .ReminderMinutesBeforeStart = 30
               'Use ".Save" to directly save the new appointment
               .Display
          End With
       End If
 
      'To clear the flag on the email
      'If you want to keep email flagged, remove the following 4 lines
       With Item
            .ClearTaskFlag
            .Save
       End With
    End If
End Sub

4. จากนั้น คุณควรใช้ “ใบรับรองดิจิทัลสำหรับโครงการ VBA” เพื่อสร้างใบรับรองใหม่และลงนามในโครงการ “ThisOutlookSession” ปัจจุบัน
5. หลังจากนั้น คุณสามารถออกจากหน้าต่าง "Visual Basic" และเปลี่ยนการตั้งค่ามาโครให้อนุญาตเฉพาะมาโครที่เซ็นชื่อแบบดิจิทัลเท่านั้น
6. ในที่สุดคุณสามารถลอง

• ขั้นแรก เสนอขายอีเมลและคลิกไอคอน "ตั้งค่าสถานะ" คุณจะได้รับพร้อมท์ เช่นภาพหน้าจอต่อไปนี้:
• หลังจากเลือก “ใช่” คุณจะต้องระบุตำแหน่งและกดปุ่ม “ตกลง”
• จากนั้นคุณต้องระบุเวลานัดหมาย
• สุดท้ายเมื่อคลิก “ตกลง” นัดหมายใหม่จะเปิดขึ้นดังภาพด้านล่าง:

หมายเหตุ:

1. ในรหัส VBA นี้ ตัวเตือนถูกตั้งค่าเป็น 30 นาทีตามค่าเริ่มต้น คุณสามารถเปลี่ยนรหัสได้ตามต้องการ
2. รหัสกำหนดระยะเวลาการนัดหมายเป็น 120 นาที คือ 2 ชั่วโมง คุณสามารถเปลี่ยนบรรทัด “.Duration = 120” ได้ตามความต้องการของคุณ
3. หากคุณไม่ได้ระบุเวลาที่แน่ชัด การนัดหมายใหม่จะถูกตั้งค่าเป็นวันที่และเวลาปัจจุบันตามค่าเริ่มต้น
4. คุณสามารถเพิ่มบรรทัด “.Save” เพื่อบันทึกการนัดหมายได้โดยตรง

กำจัดปัญหา Outlook

เป็นที่ทราบกันดีว่า Outlook อาจประสบปัญหาต่างๆ สถานการณ์ที่เลวร้ายที่สุดจะต้องเป็นความเสียหายของ Outlook หากไฟล์ Outlook ของคุณเสียหายและคุณมีข้อมูลสำรองอยู่แล้ว คุณสามารถกู้คืนไฟล์ได้อย่างง่ายดาย ข้อมูล Outlook เสียหาย จากการสำรองข้อมูล แต่ถ้าคุณไม่มีข้อมูลสำรอง คุณจะต้องซ่อมแซมไฟล์ Outlook ที่เสียหาย ในกรณีนี้ คุณสามารถใช้เครื่องมือซ่อมแซมในตัว Scapst.exe หรือใช้เครื่องมือที่มีประสบการณ์มากกว่า เช่น DataNumen Outlook Repair.

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

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