在 Outlook 中自动聚焦新邮件以保存其内容

Question

我想将邮件的内容保存到文本文件中，以便以后可以在我们的通知系统中使用。为此，我创建了一个Outlook规则，该规则将按脚本处理主题行中包含某些文本的所有邮件。脚本很简单：

 Public Sub SaveMailAsFile(itm As Outlook.MailItem)
 Dim oMail As MailItem
 Set oMail = Application.ActiveExplorer.Selection.item(1)
 oMail.SaveAs "UNCPATHTOFILE"
 End Sub

最终我可以替换oMail.SaveAs（以避免"FROM...到..."标题）与

dim f as FileSystemObject
dim t as TextStream
...
set t= f.OpenTextFile("UNCPATH...",ForWriting,True)
t.Write(oMail.Body)
t.close 

但是我现在遇到的问题更烦人 - 此规则适用于 SELECTED 消息，这通常意味着保存的文本将属于上一条消息而不是新消息。

有没有办法从触发此脚本的消息中保存文本，而不是从当前关注的随机消息中保存文本？

Answer 1

不要更改为选择。处理它。

Public Sub SaveMailAsFile(itm As Outlook.MailItem)
 itm.SaveAs "UNCPATHTOFILE"
End Sub