这就是你如何做到的。据最近的消息内容写入“第一消息content.txt”
on writeTextToFile(theText, theFile, overwriteExistingContent)
try
-- Convert the file to a string
set theFile to theFile as string
-- Open the file for writing
set theOpenedFile to open for access file theFile with write permission
-- Clear the file if content should be overwritten
if overwriteExistingContent is true then set eof of theOpenedFile to 0
-- Write the new content to the file
write theText to theOpenedFile starting at eof
-- Close the file
close access theOpenedFile
-- Return a boolean indicating that writing was successful
return true
-- Handle a write error
on error
-- Close the file
try
close access file theFile
end try
-- Return a boolean indicating that writing failed
return false
end try
end writeTextToFile
tell application "Microsoft Outlook"
set theMessage to first item of (get current messages)
get subject of theMessage
set theContent to (content of theMessage)
end tell
set theFile to (((path to desktop folder) as string) & "first-message-content.txt")
writeTextToFile(theContent, theFile, true)
您可以通过打开苹果的脚本编辑器找到的Outlook 2016的所有操作,然后选择文件>打开字典>的Microsoft Outlook 。
来源
2017-05-03 02:26:03
tom