Outlook宏將電子郵件添加到密件抄送併發送

Question

我有一點VBA的經驗，所以我發現了一些有點像我想要的帖子，但我似乎無法讓他們工作。

我想添加一個電子郵件地址作爲密件抄送到Outlook併發送。

Answer 1

它去thisOutlookSession

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
Dim olRecip As Recipient 
    Dim olMsg As String 
    Dim res As Integer 
    Dim olBcc As String 

    On Error Resume Next 

    '// set email address here 
    olBcc = "Address@domain.com" 

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

    Set olRecip = Nothing 
End Sub 

下