ไปยังเนื้อหาหลัก

 วิธีการส่งปฏิทินไปยังผู้รับหลายคนทีละคนใน 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

doc ส่งปฏิทินให้หลายคน 1

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

doc ส่งปฏิทินให้หลายคน 2

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

doc ส่งปฏิทินให้หลายคน 3

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

doc ส่งปฏิทินให้หลายคน 4


บทความที่เกี่ยวข้อง:

วิธีการส่งอีเมลไปยังผู้รับหลายรายใน Outlook เป็นรายบุคคล

วิธีการส่งอีเมลส่วนบุคคลไปยังรายการจาก Excel ผ่าน Outlook?

วิธีการส่งแบบร่างหลายฉบับพร้อมกันใน Outlook

วิธีส่งอีเมลไปยังผู้รับหลายคนโดยที่พวกเขาไม่รู้ใน Outlook


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations