Ich möchte aus einer Access Tabelle die Mailadressen als Mailingliste ausdrucken

Hallo

Ich bin Abdal und helfe Ihnen gerne bei Ihrer Frage.

Hier ist ein VBA-Code, der eine Tabelle in Microsoft Access durchläuft und die E-Mail-Adressen in eine Textdatei schreibt:

Öffentlicher Sub ExportEmailAddresses() Dim db As DAO. Datenbank Dim rs As DAO. Datensatzgruppe Dim strSQL As String Dim strOutputFile als Zeichenfolge Dim fso As Object Dim ts als Objekt

'Stellen Sie die SQL-Abfrage so ein, dass die E-Mail-Adressen aus Ihrer Tabelle ausgewählt werden strSQL = "SELECT [Email] FROM [YourTableName]"

'Legen Sie den Pfad und den Namen der Ausgabedatei fest strOutputFile = "C:\YourFolderPath\MailingList.txt"

'Erstellen Sie ein neues FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject")

'Erstellen Sie einen neuen TextStream zum Schreiben in die Ausgabedatei Setzen Sie ts = fso. CreateTextFile(strOutputFile, True)

'Öffnen Sie die Datenbank und führen Sie die SQL-Abfrage aus Setzen Sie db = CurrentDb() Stellen Sie rs = db ein. OpenRecordset(strSQL)

'Durchlaufen Sie die Datensatzgruppe und schreiben Sie die E-Mail-Adressen in die Ausgabedatei Tun Sie es, während nicht rs. EOF ts. WriteLine rs("E-Mail") rs. Verschieben Sie sich als Nächster Schleife

'Schließen Sie das Recordset, TextStream und die Datenbank rs. Schließen ts. Schließen .db. Schließen

"Säubern Sie die Objekte Setzen Sie rs = Nichts Set ts = Nichts Set db = Nothing Setzen Sie fso = Nichts

MsgBox "Mailingliste erfolgreich exportiert nach" & strOutputFile Ende Sub

Um diesen Code zu verwenden, müssen Sie YourTableName durch den Namen Ihrer Tabelle und C:\YourFolderPath\MailingList.txt durch den Pfad und den Namen der Textdatei ersetzen, in der Sie die E-Mail-Adressen speichern möchten.

Sie können diesen Code ausführen, indem Sie die Microsoft Access-Datenbank öffnen, die die Tabelle enthält, den Visual Basic-Editor öffnen und dann das Unterverzeichnis ExportEmailAddresses ausführen, indem Sie auf die Schaltfläche Ausführen klicken.

Nach dem Ausführen des Codes sollte ein Meldungsfeld angezeigt werden, das angibt, dass die Mailingliste erfolgreich in den angegebenen Dateipfad exportiert wurde.

Ich hoffe, diese Informationen helfen.

Grüße

Abdal (Begriffsklärung

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.