有没有办法在附件内容之后动态重命名传入电子邮件的主题行？

Question

我每天有多次通过电子邮件发送给我pdf文档。文件，文件名和主题行会更改，但每次格式都相同。

但是主题行和文件名代码对于组织邮件没有用，所以我希望主题行更改为pdf文件的部分或全部内容。

到目前为止，我有一个脚本可以更改传入电子邮件的主题行，但这是静态的。显然，附件内容的更改不会动态更改。

Sub RunAScriptRuleRoutine(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim olMail As Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)
' do stuff with olMail, e.g.
olMail.Subject = "new subject line"
olMail.Save

Set olMail = Nothing
Set olNS = Nothing
End Sub

我要查找的结果是将传入电子邮件的主题行更改为附件中的pdf文件的内容。

Answer 1

除了可以方便地将附件保存到磁盘之外，Outlook Object Model中没有专门用于访问文件附件内容的内容。您需要为要解析的每种专有文件内容类型使用其他API。