วิธีการส่งปฏิทินไปยังผู้รับหลายคนทีละคนใน Outlook?
โดยปกติคุณสามารถส่งปฏิทินไปยังผู้รับได้อย่างรวดเร็วและง่ายดายโดยใช้ไฟล์ อีเมลปฏิทิน คุณลักษณะใน Outlook หากคุณต้องการส่งปฏิทินที่แนบมาเป็นไฟล์ iCalendar ไปยังผู้ติดต่อหลายรายทีละคนคุณต้องส่งทีละรายการ ในบทความนี้ฉันจะพูดถึงวิธีง่ายๆในการส่งปฏิทินไปยังผู้รับหลายคนทีละคนใน Outlook
ส่งปฏิทินไปยังผู้รับหลายคนทีละคนด้วยรหัส VBA
ส่งปฏิทินไปยังผู้รับหลายคนทีละคนด้วยรหัส VBA
หากต้องการส่งปฏิทินไปยังผู้รับหลายคนแยกกันรหัส VBA ต่อไปนี้สามารถช่วยคุณได้โปรดดำเนินการดังนี้:
1. ไปที่ไฟล์ ติดต่อ บานหน้าต่างและเลือกผู้ติดต่อที่คุณต้องการส่งปฏิทินไป
2. จากนั้นกดปุ่ม ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:
รหัส VBA: ส่งปฏิทินไปยังผู้รับหลายคนทีละคน:
Sub EmailCalendarToMultiplePersonsSeparately()
Dim xSelection As Outlook.Selection
Dim xCalendarFolder As Outlook.Folder
Dim xCalendarExporter As Outlook.CalendarSharing
Dim xStartDate, xEndDate As Date
Dim xCalendarFile As String
Dim xContactItem As Outlook.ContactItem
Dim xDistListItem As Outlook.DistListItem
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xFilePath, xFileName, xEmailAddress As String
Dim xRecipient As Recipient
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16) & "\MyCalendar"
If Dir(xFilePath, vbDirectory) = "" Then MkDir xFilePath
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
MsgBox "Please Select contacts first!", vbExclamation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Then Exit Sub
Set xCalendarFolder = Outlook.Application.Session.PickFolder
If xCalendarFolder Is Nothing Then Exit Sub
If xCalendarFolder.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xCalendarExporter = xCalendarFolder.GetCalendarExporter
xStartDate = InputBox("Enter the start date:", "Kutools for Outlook", "")
If Len(Trim(xStartDate)) = 0 Then Exit Sub
xEndDate = InputBox("Enter the end date:", "Kutools for Outlook", "")
If Len(Trim(xEndDate)) = 0 Then Exit Sub
If xStartDate = #1/1/4501# Or xEndDate = #1/1/4501# Then Exit Sub
xFileName = "Calendar (" & Format(xStartDate, "YYYYMMDD") & " - " & Format(xEndDate, "YYYYMMDD") & ").ics"
xCalendarFile = xFilePath & "\" & xFileName
With xCalendarExporter
.IncludeWholeCalendar = False
.StartDate = xStartDate
.EndDate = xEndDate
.CalendarDetail = olFullDetails
.IncludeAttachments = True
.IncludePrivateDetails = False
.RestrictToWorkingHours = False
.SaveAsICal xCalendarFile
End With
For Each xItem In xSelection
If xItem.Class = olContact Then
Set xContactItem = xItem
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
With xMailItem
.To = xContactItem.Email1Address
.Recipients.ResolveAll
.Subject = xFileName
.Attachments.Add xCalendarFile
.Body = "Dear " & xContactItem.FullName & "," & vbCrLf & "Type body here..."
.Display
End With
End If
If xItem.Class = olDistributionList Then
Set xDistListItem = xItem
For i = 1 To xDistListItem.MemberCount
Set xRecipient = xDistListItem.GetMember(i)
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
With xMailItem
.To = xRecipient.AddressEntry.Address
.Recipients.ResolveAll
.Subject = xFileName
.Attachments.Add xCalendarFile
.Body = "Dear " & xRecipient.Name & "," & vbCrLf & "Type body here..."
.Display
End With
Next i
End If
Next
End Sub

4. หลังจากใส่รหัสแล้วกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และไฟล์ เลือกโฟลเดอร์ กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกปฏิทินที่คุณต้องการส่งดูภาพหน้าจอ:

5. คลิก OKจากนั้นระบุช่วงวันที่ที่คุณต้องการส่งปฏิทินในกล่องพร้อมต์ต่อไปนี้ดูภาพหน้าจอ:

6. จากนั้นคลิก OKอีเมลใหม่พร้อมปฏิทินที่แนบมาได้ถูกสร้างขึ้นตามภาพหน้าจอต่อไปนี้จากนั้นคุณต้องส่งทีละรายการ

บทความที่เกี่ยวข้อง:
วิธีการส่งอีเมลไปยังผู้รับหลายรายใน Outlook เป็นรายบุคคล
วิธีการส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel ผ่าน Outlook?
วิธีการส่งแบบร่างหลายฉบับพร้อมกันใน Outlook
วิธีส่งอีเมลไปยังผู้รับหลายคนโดยที่พวกเขาไม่รู้ใน Outlook
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!
สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!
🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล
📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมล / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เตือนคุณเมื่อมีอีเมลสำคัญมาถึง / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...

