สร้าง VBA เพื่อเรียก Meeting Calendar

[หิรัญ ชัยกุล]

เรีนท่านอาจารย์ครับ / ท่านผู้รู้ครับ
สืบเนื่องจากกระทู้เดิม ๆ ที่ผมสร้างใบลาแล้ว Run Macro เพื่อทำ Object ใน Outlook ได้เป็นผลสำเร็จและนำไปใช้งานต้องขอขอบคุณทุกท่านครับ ครั้งนี้ ต้องการเพิ่มฟังก์ชั่นให้สามารถลงบันทึกใน Calendar ของ Outlook ได้ด้วย ( เพื่อจะได้ติดตามการลาย้อนหลังได้ )
ดังนั้นผมจึงไปเสาะหาโค๊ดมาจากต่างประเทศ ผลที่ได้คือ ลง Calendar ได้ครับแต่เป็น Appointment ซึ่งสามารถดูได้เฉพาะของผู้ส่งไม่สามารถส่งและตอบรับพร้อมบันทึกได้ให้กับ Admin คือ HR ได้ ( ตอบรับและบันทึกจากการส่งเพื่อนัดประชุม )
ซึ่งจะต้องเรียก Meeting Calendar มาจึงจะทำได้ ต้องขอความช่วยเหลือจากท่านอาจารย์และผู้รู้ครับ ช่วยปรับโค้ดให้ผมด้วยครับผม
ขอบคุณมากครับ

Code: Select all

Sub ToCalendar()
'Add reference to MS Outlook Library
Dim oOL As Outlook.Application, oAppoint As Outlook.AppointmentItem
Dim oWs As Worksheet, r As Long, i As Long, sStart As String
Set oWs = Sheet1
r = oWs.Range("A1").CurrentRegion.Rows.Count
Set oOL = New Outlook.Application
For i = 2 To r
Set oAppoint = oOL.CreateItem(olAppointmentItem)
With oAppoint
    sStart = oWs.Cells(i, 3)
    sStart = Left(sStart, Len(sStart) - 4) & Year(Date)
    .Start = CDate(sStart)
    .Subject = " ¢ÍŧªèǧàÇÅÒ¡ÒÃÅÒ"
    .Location = oWs.Cells(i, 2) & "   " & oWs.Cells(i, 1)
    .MeetingStatus = olNonMeeting
    .ReminderSet = True
    .Save
    .Display
    End With
    Next i
    Set oOL = Nothing
       
End Sub

[snasui]

ในกรณีนี้ผมจะทดสอบเรื่องความถูกต้องได้อย่างไร ถ้าถูกต้องแล้วผลลัพธ์จะได้ผลเช่นไรครับ

กรณีลง Calendar ใน Outlook ผมไม่สามารถทดสอบให้ได้ เพราะ Calendar ในเครื่องผมมีข้อมูลที่สำคัญไม่สามารถใช้เพื่อการทดสอบได้ครับ

สำหรับการสร้าง Meeting ลองศึกษาเพิ่มเติมจาก Link นี้ครับ Meeting Item