outlook密送给自己的VBA

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim oItem As MailItem
    Dim oRecipient As Recipient
    Set oItem = Item

    Set oRecipient = oItem.Recipients.Add("account@mailserver.com")
    oRecipient.Type = Outlook.olBCC
    oItem.Recipients.ResolveAll
    oItem.Save
    Set oRecipient = Nothing
    Set oItem = Nothing
End Sub

把 account@mailserver.com 改成自己的邮箱账号