Gui, Add, Text, xm ym w325 Section, Select the Outlook item you wish to create:
Gui, Add, ListBox, r6 xs wp AltSubmit gItemSelection vitem, Mail||Appointment|Contact|Task|Journal|Note|Post|Distribution List
Gui, Add, Button, xs+295 gCreateItem, OK
Gui, Show, AutoSize Center, Create New Outlook Item
return
ItemSelection:
CreateItem:
if (A_ThisLabel="ItemSelection" && A_GuiEvent<>"DoubleClick")
return
Gui, Submit
ComObjActive("Outlook.Application").CreateItem[item-1].GetInspector.Display()
Gui, Destroy
return
GuiCancel:
GuiClose:
Gui, Destroy
return
获取当前选中邮件的主题
F12::
Emails := ComObjActive("Outlook.Application").ActiveExplorer.Selection
For Email in Emails
MsgBox % Email.Subject
return