Autohotkey Outlook Calender Search

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、