Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatisches versenden einer Email

Automatisches versenden einer Email
15.07.2004 13:55:36
Huber
Hallo zusammen,
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches versenden einer Email
Frederik
Hallo!
Das geht so:

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

Gruß
Frederik
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige