Autohotkey 自动热键Outlook日历搜索

我想知道如何根据SubjectName使用自动热键搜索特定约会。现在我有它的工作，以显示最新的约会

olFolderCalendar:=9
olFolderContacts:=10
olAppointmentItem=1
profileName:=“Outlook”
Outlook:=ComObjCreate（“Outlook.Application”）
命名空间：=Outlook.GetNamespace（“MAPI”）
namespace.Logon（profileName）
日历：=命名空间.GetDefaultFolder（olFolderCalendar）
项目：=日历。项目
计数：=项目。计数
msgbox%“日历项：”计数
项目：=日历。项目（计数）
item1:=“主题：”item.subject。“`n”
item1.=“开始：”item.Start。“`n”
item1.=“持续时间：”item.Duration。“`n”
item1.=“Body:”item.Body“`n”
msgbox%“item1”item1

循环，查找它：

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

---

Hth，

循环，寻找它：

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

---

嗯，

@StefanBosman:很好。请将其标记为已回答，然后（并单击向上箭头以指示答案有用）。这对网站上的每个人都有帮助。我对你的问题投了“赞成票”，因为它表明了研究的努力，而且很清楚。谢谢@史蒂芬博斯曼：好。请将其标记为已回答，然后（并单击向上箭头以指示答案有用）。这对网站上的每个人都有帮助。我对你的问题投了“赞成票”，因为它表明了研究的努力，而且很清楚。谢谢！！