實施抄送地址

Question

我有一些代碼按預期工作：

Public WithEvents myItem As Outlook.MailItem 

Private Sub Application_ItemLoad(ByVal Item As Object) 
If Item.Class = olMail Then 
    Set myItem = Item 
End If 
End Sub 


Private Sub myItem_Open(Cancel As Boolean) 

Dim oAccount As Outlook.Explorer 
Dim oMail As MailItem 

Set oAccount = Application.ActiveExplorer 
MsgBox (oAccount.CurrentFolder.Store) 

If oAccount.CurrentFolder.Store = "test@test.com" Then 
    MsgBox ("CC needs to be added") 
Else 
    MsgBox ("no need to add CC") 
End If 
End Sub 

我想補充像oAccount.CC =「EMAIL_ADDRESS」收穫的人自動填寫抄送領域。

Answer 1

使用

set Recip = myItem.Recipients.Add("user@test.demo") 
Recip.Type = olCC