항목은

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를 추가하기위한 책임이있는 부분 "받는 사람 :" 필드 대신.

Answer 1

Recip.Type = olCC 다음에 Recip.Resolve를 추가하기 만하면됩니다. 그것으로 문제가 해결되었습니다.