Outlook 2013 - Empfänger per Makro in CC
11.11.2015 08:29:05
Nik
Hallo,
ich weiß, dass es hier eigentlich nicht reingehört. Aber ich habe schon das halbe Internet dazu durchsucht und bin zu keiner für mich zufriedenstellenden Antwort gekommen.
Ich habe ein VBA Makro in Outlook 2013 zusammengeschustert, welches per Button Email Empfänger hinzufügt.
Das Problem ist, dass der CC-Empfänger im unten stehenden Code alle anderen in CC stehenden EMail-Adressen ersetzt. Ich möchte aber, dass der CC zusätzlich zu den bereits bestehenden hinzugefügt wird.
Ich weiß natürlich, dass ich das über eine Kontakt-Gruppe das ganze lösen könnte.
Kann mir da einer helfen?
Gruß
Nik
Public Sub add()
Dim Mail As Outlook.MailItem
Set Mail = Application.ActiveInspector.CurrentItem
With Mail
.Recipients.add "n@gmx.de"
.CC = "n@gmx.de; n@gmx.de; n@gmx.de"
End With
End Sub