สร้าง VBA เพื่อเรียก Meeting Calendar
Posted: Mon Mar 28, 2016 6:42 pm
เรีนท่านอาจารย์ครับ / ท่านผู้รู้ครับ
สืบเนื่องจากกระทู้เดิม ๆ ที่ผมสร้างใบลาแล้ว Run Macro เพื่อทำ Object ใน Outlook ได้เป็นผลสำเร็จและนำไปใช้งานต้องขอขอบคุณทุกท่านครับ ครั้งนี้ ต้องการเพิ่มฟังก์ชั่นให้สามารถลงบันทึกใน Calendar ของ Outlook ได้ด้วย ( เพื่อจะได้ติดตามการลาย้อนหลังได้ )
ดังนั้นผมจึงไปเสาะหาโค๊ดมาจากต่างประเทศ ผลที่ได้คือ ลง Calendar ได้ครับแต่เป็น Appointment ซึ่งสามารถดูได้เฉพาะของผู้ส่งไม่สามารถส่งและตอบรับพร้อมบันทึกได้ให้กับ Admin คือ HR ได้ ( ตอบรับและบันทึกจากการส่งเพื่อนัดประชุม )
ซึ่งจะต้องเรียก 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
ในกรณีนี้ผมจะทดสอบเรื่องความถูกต้องได้อย่างไร ถ้าถูกต้องแล้วผลลัพธ์จะได้ผลเช่นไรครับ 