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,