Mail-Massenversand

Computer: Software & Programmierung Programmierung allgemein
1

Hi,

ich betreibe einen Newsletter-Server unter www.newsletter-planet.de (für die, die es nicht glauben). Da der Mailversand oft ziemlich groß ist, such ich jetzt eine Möglichkeit den Versand effektiver zu gestalten. Bis jetzt geht es über ein PHP-Skript. Ich hatte die Idee eines kleinen Programms, über das der user seine Mails direkt von seinem Rechner aus verschicken kann. Geht das? Oder hat jemand eine bessere Idee???

Thx

PS: Sorry das der Artikel in nem anderen Board schon vorhanden ist, aber ich habe erst hinterher festgestellt das es hier vielleicht besser passt.

2

Hi,
worum geht es dir genau?
willst du die Mails effizienter generieren oder effizienter verschicken?

Für zweiters ist ein MTA zuständig, d.h. du gibts die Mails an localhost weiter und der MTA stellt sie zu.

HTH,
Moritz

3

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

4

Hallo,

Du brauchst dazu Ms Outlook (mit dem du bereits Mails
versenden kannst)
und Ms Access.

Ähm.
Du empfiehlst Outlook zum effizienten versenden von Massen-Mails?
Da muß ich wohl in der Entwicklung von Outlook was verpasst haben…

Grüße,
Moritz

5

Ich muss das ganze aber Webbasiert versenden. Oder eben lokal von den usern selber, aber so kann ich denen das nie erklären. Das ganze soll ja automatisch laufen.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

6

Hallo,

Ich muss das ganze aber Webbasiert versenden. Oder eben lokal
von den usern selber, aber so kann ich denen das nie erklären.
Das ganze soll ja automatisch laufen.

Ich meinte du sollst den MTA auf dem Server auf dem bisher dein PHP läuft benutzen. Oder machst du das bereits?

Grüße,
Moritz

7

Was ist denn MTA?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

8

Was ist denn MTA?

Mail Transfer Agent

9

Und wo bekomm ich sowas her? Wie funktioniert soetwas?

Was ist denn MTA?

Mail Transfer Agent