Hi Alex.
Ich rate dir zu Access-VBA.
Hier ist eine eigentlich fertige Lösung:
Du brauchst dazu Ms Outlook (mit dem du bereits Mails versenden kannst)
und Ms Access.
Erstelle eine Tabelle in Access mit zwei Feldern:
Id als Autowert
Email als Memo
… speichere diese als tblMailAdressen.
Schreibe alle Emailadressen in die Tabelle ins Feld Email.
(Oder per Insert…)
Erstelle ein Modul und füge folgenden Verweiß hinzu:
Microsoft Outlook 9.0 Object Libary (…oder ähnlich bei dir)
und folgendem Code:
_Option Compare Database
Option Explicit
Function fncSendEmail(strEmail As String)
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = CreateObject(„Outlook.Application“)
Set objMail = objOutlook.CreateItem(olMailItem)
objMail.Subject = „Test“
objMail.HTMLBody = "_ Hallo Welt "
objMail.Recipients.Add (strEmail)
'objMail.Save
objMail.Send
Set objMail = Nothing
Set objOutlook = Nothing
End Function
Function fncDurchlauf()
Dim cnnDatenbank As New ADODB.Connection
Dim rstObjekt As New ADODB.Recordset
Dim i As Integer
cnnDatenbank.Open CurrentProject.Connection
rstObjekt.Open „tblMailAdressen“, cnnDatenbank, adOpenStatic
rstObjekt.MoveLast
rstObjekt.MoveFirst
For i = 1 To rstObjekt.RecordCount
fncSendEmail (rstObjekt!Email)
rstObjekt.MoveNext
Next
rstObjekt.Close
cnnDatenbank.Close
End Function
Dann einfach den Text bei HTMLbody und bei Subject anpassen und fncDurchlauf starten.
…zum Ausführen muss Outlook geöffnet sein!
Gruß Chris
