从excel（vba）创建邮件：检查不在办公室

Question

我创建了一个宏，该宏基于Excel中的信息创建邮件。 一切正常，但我也想检查收件人是否有外出办公室。 在这种情况下，我不想发送而是显示消息。 我已经找到了receives.autoresponse方法，但是它不起作用。

到目前为止我的代码：

Set OutMail = OutApp.CreateItem(0)
With OutMail
    .SentOnBehalfOfName = "xx@xx.com"
    .Attachments.Add ("\\xxxxx)\test\attachment_call.docx")
    If destination = "pom" Then
    .To = [C14]
    .CC = [C12] & ";" & [C15]
    ElseIf destination = "sales" Then
    .To = [C12]
    .CC = [C15]
    End If
    .Body = strbody
    .Subject = "Call on " & [C21] & " : " & [C18] & " / " & [C17]
    If Not .Recipients.ResolveAll Then
        .Display
    Else
        .Save
    End If
End With
Next I
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

MsgBox ("Done")
End Sub

它在一行中

If Not .Recipients.ResolveAll Then

我想为不在办公室添加额外条件。 如果我以正常方式发送电子邮件，则缺席的同事将显示为绿色。 我在Exchange上工作。