進入了CC領域進入到域

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 
    Dim Recip As Outlook.Recipient 

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

    If oAccount.CurrentFolder.Store = "1@2.com" Then 
     MsgBox ("CC needs to be added") 

     Set Recip = myItem.Recipients.Add("user@test.com") 
     Recip.Type = olBCC 
    Else 
     MsgBox ("no need to add CC") 
    End If 
End Sub 

負責添加user@test.com到CC字段添加該地址的一部分「到：」而不是。

Answer 1

我只需在Recip.Type = olCC後添加Recip.Resolve。這解決了這個問題。