想用Excel VBA 查找其他人日程里面名字為E1的日程
下面的程式可以查找自己日程里面的名字為E1的日程
希望路過的大神可以幫助一下
十分感謝
Public Sub pupdate()
Dim ns As Namespace
Dim Inbox As MAPIFolder
Dim Item As Variant 'MailItem
Dim sSubject As String
Dim apt As Variant 'AppointmentItem
Dim rct As Recipient
Dim AppID As Variant
Dim AppCnt As Integer
Dim AppBetreff As String
Dim AppStartDatum As Variant
Dim AppUhrzeitDatum As String
Dim AppOrt As String
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
For Each apt In ns.GetDefaultFolder(olFolderCalendar).Items
If apt.Class = olAppointment Then
If apt.Subject = "E1" Then
If apt.Start = t Then
MsgBox (t)
End If
End If
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/56130.html
下一篇：【論文排版 - 圖片調整】