进入了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。这解决了这个问题。