Implementierung cc Adresse

Question

Ich habe Code, wie beabsichtigt funktioniert:

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 

Ich mag wäre so etwas wie oAccount.CC = „email_address“ hinzufügen Carbon Copy-Feld automatisch gefüllt zu bekommen.

Answer 1

Verwenden

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