我正在使用IE 11从内部网页面调用VBS函数(是的,它必须是那个浏览器)。该函数处理一个Outlook邮箱,并且部分工作:我可以列出邮件列表并找到主题和正文,但我需要发件人的电子邮件地址。当我运行与Outlook宏类似的代码时,我可以以各种方式实现这一点,但是没有一个在VBS中工作--当我试图获得任何感兴趣的内容时,脚本只是挂起(没有错误消息)--请看这个函数,还有我尝试过的各种注释。任何关于我哪里出错的建议都会感激地收到.
Function readEmails(mailbox)
Dim iCt
Set objOutlook = CreateObject("Outlook.Application")
Set NS = objOutlook.GetNamespace("MAPI")
Set olFolder = NS.Folders(mailbox)
Set olFolInbox = olFolder.Folders("Inbox")
iCt = 0
For iCt =1 to olFolInbox.Items.Count
set olMessage=olFolInbox.Items(iCt)
msgbox(ict & "-" & olMessage.Subject )
msgbox("SenderEmailType=" & olMessage.SenderEmailType)
msgbox("SenderEmailAddress=" & olMessage.SenderEmailAddress) 'hangs
'set sn=olMessage.SenderName 'hangs
set sUser=olMessage.Sender
'set sn=sUser.Name 'hangs
'msgbox(sUser) 'hangs
'set sExUser=sUser.GetExchangeUser ' hangs
End If
Next
readEmails=sReturn
End Function
发布于 2021-08-17 08:31:56
当您从外部宏自动化Outlook时,似乎出现了安全问题--它可能是代码中的安全提示或异常。如何看待它取决于Outlook版本(它的内部实现)。为了避免在处理OOM时出现安全问题,可以使用以下方法:
用户获得安全提示/异常,因为Outlook是以下列方式之一在客户端计算机上配置的:
在Outlook对象模型的安全行为文章中阅读更多有关这方面的内容。
https://stackoverflow.com/questions/68809573
复制相似问题