suche eine Funktion die es mir gestattet an eine Auswahl von Email Empfängern aus dem Outlook Adressbuch Email´s zu verschicken und zwar in abhängighkeit eines Zelleninhaltes.
Sub Mail()
Dim eMailEmpfänger
ReDim eMailEmpfänger(1 To 16)
On Error Resume Next
eMailEmpfänger(1) = ThisWorkbook.Sheets("Allgemein").Range("aw2")
eMailEmpfänger(2) = ThisWorkbook.Sheets("Allgemein").Range("aw3")
eMailEmpfänger(3) = ThisWorkbook.Sheets("Allgemein").Range("aw4")
eMailEmpfänger(4) = ThisWorkbook.Sheets("Allgemein").Range("aw5")
eMailEmpfänger(5) = ThisWorkbook.Sheets("Allgemein").Range("aw6")
eMailEmpfänger(6) = ThisWorkbook.Sheets("Allgemein").Range("aw7")
eMailEmpfänger(7) = ThisWorkbook.Sheets("Allgemein").Range("aw8")
eMailEmpfänger(8) = ThisWorkbook.Sheets("Allgemein").Range("aw9")
eMailEmpfänger(9) = ThisWorkbook.Sheets("Allgemein").Range("aw10")
eMailEmpfänger(10) = ThisWorkbook.Sheets("Allgemein").Range("aw11")
eMailEmpfänger(11) = ThisWorkbook.Sheets("Allgemein").Range("aw12")
eMailEmpfänger(12) = ThisWorkbook.Sheets("Allgemein").Range("aw13")
eMailEmpfänger(13) = ThisWorkbook.Sheets("Allgemein").Range("aw14")
eMailEmpfänger(14) = ThisWorkbook.Sheets("Allgemein").Range("aw15")
eMailEmpfänger(15) = ThisWorkbook.Sheets("Allgemein").Range("aw16")
eMailEmpfänger(16) = ThisWorkbook.Sheets("Allgemein").Range("aw17")
ActiveWorkbook.SendMail eMailEmpfänger, "Auswertung Stand: " & Date
MsgBox "Nachricht wurde gesendet!", vbOKOnly + vbInformation, ThisWorkbook.Name
End Sub