Wie kann ich im Outlook cc ausblenden

Hi

mit den beiden Methoden bekommst Du jeweils ein Array mit allen gefunden CC zurück.

Also

Dim cc() as Variant

cc=Activedocument.SelectContentControlsByTitle("Name")



For i=LBound(cc) To UBound(cc)

Msgbox cc(i)

Next i

' ungetestet aus dem Gedächtnis

Zum CC-Cleaner:

Der CC-Cleaner ist nicht gelaufen. Ich hatte eine Anleitung in einem Forum gefunden. Dort war beschrieben, wie man mit CC-Cleaner die Einträge los wird. Die entsprechenden Einträge hatte ich aber im CC-Cleaner nicht.

Zum Fix-It Tool:

Hat nichts geholfen. Die alten Symbole sind trotzdem da.

Habe jetzt einen neuen Nutzer angelegt.

Danke

Hallo,



nun funzt es super - Danke.



Private Sub CommandButton2_Click()

Dim cc As ContentControls

Dim i As Integer



Set cc = ActiveDocument.SelectContentControlsByTitle("MeinTitel")



For i = 1 To cc.Count

MsgBox cc(i).Title & "-" & cc(i).Tag & "-" & cc(i).Range.Text

Next i

End Sub



Gruss

In der E-Mail gibt es drei Felder

To: (An

Cc: (Cc

Bcc: (Bcc

Ich meine von "Cc:" in "To:" kopieren per Script.

Danke für die Frage.

Gruß Viola

daher auch die Anmerkung "ungetestet aus dem Gedächtnis)...



Folgendes funktioniert und liefert ein paar Informationen (Name-Tag-Inhalt)



Dim cc As ContentControls

Dim i As Integer

Set cc = ActiveDocument.SelectContentControlsByTitle("Name")

For i = 1 To cc.Count

MsgBox cc(i).Title & "-" & cc(i).Tag & "-" & cc(i).Range.Text

Next i