Question

我们在Outlook上使用现有邮箱有多个用户。从邮箱发送的每个人都会收到＆＃34;发送的项目＆＃34;在他们自己的个人邮箱中。我已查看过规则，但无法找到任何内容，以便将已发送的项目显示在群组邮箱的已发送项目中。

我已经获得了以下代码，但无法理解为什么它没有运行。

Private Sub Application_ItemSend(ByVal Item As Object, _
                             Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next

strBcc = "<mailboxname>"

If Item.SendUsingAccount = "<mailboxname>" Then

Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC

'Set variable objRecip (recipient) = Item.Recipients.Add (strBcc)
If Not objRecip.Resolve Then
    strMsg = "Could not resolve the Bcc recipient. " & _
             "Do you want to send the message?"
    res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
            "Could Not Resolve Bcc")
    If res = vbNo Then
        Cancel = True
    End If
End If

End If

Set objRecip = Nothing
End Sub

Answer 1

要从邮箱帐户发送邮件，您需要执行以下操作：

With oMailItem
Set .SendUsingAccount = oOutlook.Session.Accounts.Item(iAccount)
...
End With

其中oMailItem和oOutlook引用您的相关对象，iAccount是您要使用的邮箱的索引号。在我的情况下，我有两个邮箱可供发送，我的个人和第一组。我的个人帐户是第一个（索引1），组邮箱是第二个（索引2）。

我使用此代码发送的邮件项目始终移至群组邮箱中的“已发送邮件”文件夹，而不是我的个人邮箱。

自动将BCC发送到发送的邮箱

1 个答案: