Правило для отправки электронной почты с адресом только в BCC

Question

Я нашел блок кода, который позволит мне BCC автоматически отправлять каждое электронное письмо.

Что я хочу сделать: когда полученное с чем-то конкретным в строке темы, электронное письмо переадресовывается с адресом электронной почты «email@email.com» в поле BCC, и никого нет в строке «Кому».

Public Sub BCC(Item As Outlook.MailItem) 

Dim objRecip As Recipient 
Dim strMsg As String 
Dim res As Integer 
Dim BCC_ADDR As String 
On Error Resume Next 

BCC_ADDR = "email@email.com" 

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

Set objRecip = Nothing 
End Sub 

Answer 1

Вы должны использовать Forward метод, который выполняет форвард действие для элемента и возвращает полученную копию в качестве объекта MailItem. Затем вы можете использовать метод отправки для отправки элемента для дальнейшей обработки. Например:

`Public Sub BCC(Item As Outlook.MailItem) 
    Dim objRecip As Recipient 
    Dim strMsg As String 
    Dim res As Integer 
    Dim BCC_ADDR As String 
    Dim forward as MailItem 
    On Error Resume Next   
    BCC_ADDR = "email@email.com" 
    Set forward = Item.Forward 
    Set objRecip = forward.Recipients.Add(BCC_ADDR) 
    objRecip.Type = olBCC 
    If Not objRecip.Resolve Then 
     strMsg = "Could not resolve the Bcc recipient. " & _ 
     "Do you want still to send the message?" 
     res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ 
     "Could Not Resolve Bcc Recipient") 
     If res = vbNo Then 
      Cancel = True   
     End If 
    Else 
     foward.Send 
    End If 
    Set objRecip = Nothing 
End Sub`