vba - Outlook VBA - 可以查看电子邮件源代码?
问题描述
在 MS Outlook 中,我想遍历每封选定的电子邮件,对于每封电子邮件,查看源代码并检查源文件(如 txt 格式)是否包含某个字符串“XX”。由于使用查看源代码可以将电子邮件内容显示为 html 格式,因此我想跟踪一些在文本中有问题的格式。
目前,我通过打开邮件手动进行操作,右键单击 > 查看源 > Ctrl+F 以查找我要查找的字符串。
是否有视图使用 VBA 在电子邮件中执行“查看源代码”的操作?
Dim individualItem As Object
For Each individualItem In Application.ActiveExplorer.Selection
'View Source Code of the email
'Find "XX" in the email body content
If Instr(individualItem.body, "XX") = 1 Then
Msgbox ("Find string!")
End if
Next Message
谢谢。
解决方案
“来源”是指邮件的 MIME 标头吗?它们存储在PR_TRANSPORT_MESSAGE_HEADERS
属性中 - 使用OutlookSpy查看消息(单击 IMessage 按钮)。您可以使用 读取该属性MailItem.PropertyAccessor.GetProperty
。PR_TRANSPORT_MESSAGE_HEADERS
属性的 DASL 名称"http://schemas.microsoft.com/mapi/proptag/0x007D001F"
。
推荐阅读
- python - JIT-ted函数中矩阵元素的条件化
- python - Matplotlib Barh 过渡平滑
- javascript - 无法将项目添加到数组中反应原生
- jquery - jquery sort 函数将项目排序为字符串而不是数字
- swift - 查找两个 UIImage 之间的相似度百分比
- flutter - 运行项目时 Flutter vscode 错误任务':app:checkDebugAarMetadata'执行失败
- python - 变量没有从函数返回正确的值
- python - 这个 BFS 实现是否正确?
- reactjs - 像这样布局顶级网页的组件
- c++ - 如何让这个程序重复,直到用户决定终止?