Autohotkey Outlook日历搜索

Question

我试图找出如何使用基于SubjectName的Autohotkey搜索特定约会。现在我有工作来展示最新的约会。

olFolderCalendar := 9 
 
olFolderContacts := 10 
 
olAppointmentItem = 1 
 
         
 
profileName := "Outlook" 
 
Outlook := ComObjCreate("Outlook.Application") 
 
namespace := Outlook.GetNamespace("MAPI") 
 
namespace.Logon(profileName) 
 
calendar := namespace.GetDefaultFolder(olFolderCalendar) 
 
items := calendar.Items 
 
count := items.Count 
 

 
msgbox % "calendar items: " count 
 
item := calendar.Items(count) 
 

 

 
item1 := "subject: " item.Subject . "`n" 
 
item1 .= "Start: " item.Start . "`n" 
 
item1 .= "Duration: " item.Duration . "`n" 
 
item1 .= "Body: " item.Body "`n" 
 
msgbox % "item1" item1

在此先感谢。

Answer 1

遍历，寻找它：

olFolderCalendar := 9 
olFolderContacts := 10 
olAppointmentItem = 1 

profileName := "Outlook" 
Outlook := ComObjCreate("Outlook.Application") 
namespace := Outlook.GetNamespace("MAPI") 
namespace.Logon(profileName) 
calendar := namespace.GetDefaultFolder(olFolderCalendar) 
items := calendar.Items 
count := items.Count 

msgbox % "calendar items: " count 

InputBox, testsubj, What Subject?, What Subject? 
Loop { 
    item := calendar.Items(count - A_Index + 1) 
    subj := item.Subject 
    IfEqual, subj, %testsubj% 
     break 
} 

item1 := "subject: " item.Subject . "`n" 
item1 .= "Start: " item.Start . "`n" 
item1 .= "Duration: " item.Duration . "`n" 
item1 .= "Body: " item.Body "`n" 
msgbox % "item1" item1 

H个，