发件人是组电子邮件时的 Outlook VBA 错误答案

【问题标题】：Outlook VBA Error when sender is group email发件人是组电子邮件时的 Outlook VBA 错误
【发布时间】：2020-06-23 15:21:36
【问题描述】：

我有以下信息来识别发件人电子邮件地址和姓名（然后我将其存储以备后用）：

strSender = itm.Sender.GetExchangeUser().PrimarySmtpAddress
strSenderName = itm.Sender

这很好用，但是当使用群组电子邮件地址（即多个用户可以发送电子邮件的地址，例如 customerservice@company.com）时，我会收到如下错误消息：

运行时错误“91”：
对象变量或未设置块变量

知道如何解决这个问题吗？

完整脚本：

Public Sub saveAcct(itm As Outlook.MailItem)
Const Filepath1 = "C:\Users\tenba1\Documents\QlikView\Account Recons\Recon_Acct.txt"
Const Filepath2 = "C:\Users\tenba1\Documents\QlikView\Account Recons\Recon_Acct_Sender.txt"
Const Filepath3 = "C:\Users\tenba1\Documents\QlikView\Account Recons\Recon_Acct_SenderName.txt"
Const ForWriting = 2

strAccNumber = Trim(Mid(itm.Subject, InStrRev(itm.Subject, " "), Len(itm.Subject) - InStr(1, itm.Subject, " ")))
strSender = itm.Sender.GetExchangeUser().PrimarySmtpAddress
strSenderName = itm.Sender


Do Until FileExists("C:\Users\tenba1\Documents\QlikView\Account Recons\DONE.txt")
Loop

'Create a Busy file:
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\tenba1\Documents\QlikView\Account Recons\BUSY.txt", True)
MyFile.Close

'Delete the DONE file:
aFile = "C:\Users\tenba1\Documents\QlikView\Account Recons\DONE.txt"
Kill aFile

'Update the Account Number File:
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO1.OpenTextFile(Filepath1, ForWriting)
objFile1.Write ("SET vAcct = '" & strAccNumber & "';")

'Update the Sender Email Address File:
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO2.OpenTextFile(Filepath2, ForWriting)
objFile2.Write (strSender)

'Update the Sender Name File:
Set objFSO3 = CreateObject("Scripting.FileSystemObject")
Set objFile3 = objFSO3.OpenTextFile(Filepath3, ForWriting)
objFile3.Write (strSenderName)

'Launch the PowerShell Script for creating the recon file:
Dim shell
Set shell = CreateObject("wscript.shell")
shell.Run "C:\Users\tenba1\Documents\Scripts\Account_Recon.bat"

End Sub

【问题讨论】：

标签： vba outlook

【解决方案1】：

你永远不会检查GetExchangeUser() 是否返回一个有效的对象。对于一次性 SMTP 对象，它将返回 null。

更新：尝试以下操作：

strSender = ""
strSenderName  = itm.SenderName
If itm.SenderEmailAddress = "EX" Then
  set objSender = itm.Sender
  If Not (objSender Is Nothing) Then
    set objExchUser = Sender.GetExchangeUser()
    If Not (objExchUser Is Nothing) Then
      strSender = objExchUser.PrimarySmtpAddress
    End If
  End If
Else
  strSender = itm.SenderEmailAddress
End If

【讨论】：

我通常可以自行解决问题 - 但由于我无法访问群组电子邮件地址，因此我无法真正测试并通过反复试验来正确解决问题。我需要请求 Ops 中的某个人帮助我测试它。如果发件人类似于 customerservice@company.com ，有什么方法可以识别发件人？我已经用我当前的代码更新了我的原始帖子 - 请帮忙，因为我（显然）在这里有点无能为力。
当来自群组电子邮件 (Collections@companyname.com) 时，它现在按如下方式保存发件人：/O=PEP STORES/OU=EXCHANGE ADMINISTRATIVE GROUP (FYDIBOHF23SPDLT)/CN=RECIPIENTS/ CN=61C3A6B1D814C34686A48F0B30A58D73-000022B0CC10 和我自己的电子邮件一样：/O=PEP STORES/OU=PEPMAIL/CN=RECIPIENTS/CN=GERHARDL

【解决方案2】：

德米特里回应的关键是：

set objExchUser = Sender.GetExchangeUser()
If Not (objExchUser Is Nothing) Then <do something>

对发件人的检查是初步的，它解决了与@user2725402 提出的问题不同的问题。

正如 Dmitry 在他的第一句话中所暗示的，群组电子邮件的问题在于缺少有效的 Exchange 用户。 GetExchangeUser 方法上的Microsoft documentation 声明它“如果 AddressEntry 对象不对应于 Exchange 用户，则返回 Null（在 Visual Basic 中为无）”。因此，您要在此处检查群组电子邮件地址的空值。

总结：
要解决此类问题，请检查有效的 Exchange 用户，并仅在您知道存在时才继续：

    If Msg.SenderEmailType = "EX" Then 'email is from within your Exchange
        Dim objExchangeUser As Object
        Set objExchangeUser = Msg.Sender.GetExchangeUser()
        If objExchangeUser Is Nothing Then Exit Sub <or other appropriate action>
    End If

【讨论】：