MS Access - Massen-E-Mail-Versand?

Question

Ich verwende MS Access, um eine Datenbank mit über 5000 Kontakten zu erstellen. Diese Kontakte sind nach dem Mitarbeiter, zu dem der Kontakt gehört, und dann noch einmal nach Kategorien für eine einfache Suche unterteilt. Ich möchte eine Schaltfläche erstellen, die eine Abfrage in Tabellenform öffnet (einfach) und dann Kontrollkästchen enthält, damit ein Mitarbeiter z. B. aus den 110 Kontakten in der Tabelle 100 auswählen kann, an die er eine E-Mail senden möchte, und dann eine Massen-E-Mail, z. B. einen Newsletter, versenden kann (nicht so einfach!). Ich bin verrückt geworden bei dem Versuch, herauszufinden, wie ich das anstellen soll, da ich nicht wirklich etwas vom Programmieren verstehe (ich bin eine Zeitarbeiterin, die in diesen Job hineingeworfen wurde, und ich gebe mein Bestes), und alles, was ich zu diesem Thema finden kann, ist etwas über Schleifen (keine Ahnung!) und dass ich eine Software brauche, um dies zu tun.

Haben Sie eine Lösung für mich? Ich möchte den Kauf/die Installation von Software nach Möglichkeit vermeiden, und wenn Sie eine Antwort haben, machen Sie es bitte so einfach wie möglich...

Vielen Dank im Voraus!

Kate

Answer 1

Ich habe soeben das Folgende erstellt arbeiten Beispiel in MS Access 97.

Eine Beispieltabelle (ich habe den Code mit gültigen E-Mail-Adressen getestet):

ID Name E-Mail

1 Rics rics@stack.com

2 Kate kate@stack.com

3 X x@stack.com

Ein Formular mit einer Schaltfläche. Der folgende Code wird ausgeführt, wenn die Schaltfläche angeklickt wird:

Private Sub Mail_Click()

    Dim r As Recordset
    Dim email As String
    Set r = CurrentDb.OpenRecordset("select * from Addresses")
    Do While Not r.EOF
        email = r(2)
        DoCmd.SendObject acSendNoObject, Null, Null, email, Null, Null, "Test subject", "Message body of the test letter", False, Null
        r.MoveNext
    Loop
    r.Close

End Sub

Ich hoffe, Sie können sie in Ihre Bewerbung einfügen.

Answer 2

Es hat funktioniert :)

Der Code war großartig, aber es brauchte einige Optimierungen, um speziell mit meinen Daten zu arbeiten. Nach einer Menge von Fehlern auftauchen dies ist, was ich schließlich kam mit:

    Dim r As Recordset
Dim Email As String
Set r = CurrentDb.OpenRecordset("select Email from FranksFinanceBrokers")
Do While Not r.EOF
    Email = Email & r(0) & ";"
    r.MoveNext
Loop
r.Close

DoCmd.SendObject acSendNoObject, Null, Null, "", "", Email, "", "", True, Null

End Sub

Vielen Dank für eure Hilfe, Leute!

Answer 3

Ich denke, Sie müssen etwas VBA-Programmierung lernen, um dies zu erreichen. Diese Lehrgang nützlich sein könnte.

Hier ein Weg zu E-Mail vom Zugang aus senden .

Answer 4

Hier ist eine weitere Ressource für das Senden E-Mail über MS Access

Answer 5

Die Antwort, die rics gegeben hat, sendet eine E-Mail an alle in einem Recordset, aber es hört sich so an, als ob Sie eine einzelne E-Mail an eine benutzerdefinierte Verteilerliste senden möchten. Ändern Sie dazu den Code von rics so ab, dass der Adress-String etwa so aufgebaut ist:

Private Sub Mail_Click()

Dim r As Recordset
Dim email As String
Set r = CurrentDb.OpenRecordset("select * from Addresses")
Do While Not r.EOF
    email = email & r(2) & ";"
    r.MoveNext
Loop
r.Close

DoCmd.SendObject acSendNoObject, Null, Null, email, Null, Null, "Test subject", "Message body of the test letter", False, Null

End Sub