Hallo Leute,
ich habe den folgenden Code und versuche eine Mail noch an eine zweite Mailadresse als CC zu senden. Wie kann ich das einfügen?
Hier mein Code:
ActiveSheet.Copy
Dim gzdateiname As String
Dim gzempfaenger1 As String
Dim gzempfaenger2 As String 'als CC
Dim gzbetreff As String
gzbetreff = Range("w7")
gzdateiname = Range("w8")
gzempfaenger1 = Range("w9")
gzempfaenger2 = Range("w10")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs gzdateiname
Application.DisplayAlerts = True
ActiveWorkbook.SendMail Recipients:=gzempfaenger1, _
Subject:=gzbetreff
ActiveWorkbook.Close
Danke für Eure Hilfe... Micha