Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Mail-Adressen auslesen
zurück: Kann das Eigenschaftenfenster in Form nicht mehr aufrufen. weiter: Error 3027 bei RuntimeVersion 2010 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bibi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Mai 2006, 15:16
Rufname:

Mail-Adressen auslesen - Mail-Adressen auslesen

Nach oben
       

Hallo!

Ich möchte gerne - so unkompliziert wie möglich - aus meiner Access Tabelle die Mail-Adressen auslesen. Am besten wäre natürlich, wenn ich durch einen Button automatisch eine Mail erstellen kann (VBA?). Ich habe in Excel mit VBA gearbeitet. Allerdings aber festgestellt, dass es leider in Access komplett anders ist. Kann mir vielleicht jemand helfen??? Würde mich super freuen Very Happy Very Happy Very Happy

Gruß

Bibi
jens05
Moderator


Verfasst am:
10. Mai 2006, 20:44
Rufname:
Wohnort: ~~~~~


AW: Mail-Adressen auslesen - AW: Mail-Adressen auslesen

Nach oben
       

Hallo,
wenn du eine SammelMail an alle Adressen senden möchtest, hätte ich hier ein Beispiel, z.B. im Ereignis "Beim Klicken" eines Button
Code:
Private Sub ButtonName_Click()
    Dim rs As DAO.Recordset
    Dim mailadd As String

    Set rs = CurrentDb.OpenRecordset("TabellenName")
    Do While Not rs.EOF
        mailadd = mailadd & "; " & rs!EMail 'EMail = Spaltenname
        rs.MoveNext
    Loop
    DoCmd.SendObject , , , Mid(mailadd, 3), , , "Betreff", "Bodytext", True
    rs.Close
    Set rs = Nothing
End Sub
aktiviere dafür unter Extras->Verweise die Microsoft DAO 3.x Object Library
_________________
mfg jens05 Wink
Bibi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Mai 2006, 11:00
Rufname:

AW: Mail-Adressen auslesen - AW: Mail-Adressen auslesen

Nach oben
       

Hallo Jens!

Vielen Dank für die Antwort! Ich habe den Code in ein Modul geschrieben und dabei den Tabellennamen und den EMail-Spaltennamen angepasst. Wenn ich starte, bekomme ich allerdings den
Zitat:
Laufzeitfehler: 2295 Unbekannte Empfänger der Nachricht. Die Nachricht wurde nicht gesendet!
Ich bekomme leider nicht raus, warum! Hast Du vielleicht eine Ahnung woran das liegen könnte???

Über eine Antwort würde ich mich sehr freuen.

Mit freundlichem Gruß

Bibi
Nachtrag: Bibi am 11. Mai 2006 um 11:08 hat folgendes geschrieben:
Hallo Jens!

Habe den Fehler rausbekommen! Hatte leere Zeilen dazwischen. D.h. wenn ich den Code anwende klappt das nicht wegen der leeren Zeilen dazwischen. Brauche jetzt eigentlich "nur" noch einen If then Zusatz, dass die leeren Zeilen einfach übersprungen werden. Also nicht end of file sondern wenn leer dann überspringen und dann end of file!

Kennst Du den If then Zusatz vielleicht? Wäre super!!!

Gruß

Bibi
Willi Wipp
Moderator


Verfasst am:
11. Mai 2006, 13:25
Rufname:
Wohnort: Raum Wiesbaden

Re: Mail-Adressen auslesen - Re: Mail-Adressen auslesen

Nach oben
       

Hi Bibi,

wie waere es denn so
Code:
Private Sub ButtonName_Click()
    Dim rs As DAO.Recordset
    Dim mailadd As String

    Set rs = CurrentDb.OpenRecordset("TabellenName")
    Do While Not rs.EOF
        If Nz(rs!EMail, "") <> "" Then
            mailadd = mailadd & "; " & rs!EMail 'EMail = Spaltenname
        End If
        rs.MoveNext
    Loop
    DoCmd.SendObject , , , Mid(mailadd, 3), , , "Betreff", "Bodytext", True
    rs.Close
    Set rs = Nothing
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 15. Mai 2006, 17:42, insgesamt einmal bearbeitet
Bibi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Mai 2006, 17:37
Rufname:


Mail in CC - Mail in CC

Nach oben
       

Bibi am 11. Mai 2006 um 14:20 hat folgendes geschrieben:
Hallo Willi!

Super!!! Das hat geklappt! Vielen Dank! Jetzt muss ich nur noch im Formular einen Button bauen, welcher auf das Modul zugreift... Hoffe, das funktioniert wie in Excel VBA.

Schöne Grüße Very Happy Very Happy Very Happy

Bibi

Hallo Willi!

Das hat alles sehr gut funktioniert. Nun möchte ich zusätzlich einen Button bauen, mit welchem ich Mails in CC versenden kann. Weißt Du vielleicht auch, wie bzw. an welcher Stelle des Codes eine Änderung rein muss, wenn ich die Mail nicht "An" sondern die Mail-Adressen in CC einfügen will? Und wenn ja, wie lautet dann der Code? Über eine Antwort freue ich mich!

Gruß

Bibi

{Themen zusammengefuehrt by Willi Wipp}
Willi Wipp
Moderator


Verfasst am:
15. Mai 2006, 17:41
Rufname:
Wohnort: Raum Wiesbaden

Re: Mail-Adressen auslesen (II) - Re: Mail-Adressen auslesen (II)

Nach oben
       

Hi Bibi,

das sollte etwa so gehen
Code:
Private Sub ButtonName_Click()
    Dim rs As DAO.Recordset
    Dim mailadd As String

    Set rs = CurrentDb.OpenRecordset("TabellenName")
    Do While Not rs.EOF
        If Nz(rs!EMail, "") <> "" Then
            mailadd = mailadd & "; " & rs!EMail 'EMail = Spaltenname
        End If
        rs.MoveNext
    Loop
    DoCmd.SendObject , , , , Mid(mailadd, 3), , "Betreff", "Bodytext", True
    rs.Close
    Set rs = Nothing
End Sub
Einfach ein Komma mehr davor und eins weniger dahinter Wink (siehe auch OH)
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Bibi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Mai 2006, 17:56
Rufname:

AW: Mail-Adressen auslesen - AW: Mail-Adressen auslesen

Nach oben
       

PERFEKT!!! Das hat geklappt! Vielen vielen DANK!!! Very Happy Very Happy Very Happy

Gruß

Bibi
styler
Gast


Verfasst am:
08. Feb 2012, 17:19
Rufname:

AW: Mail-Adressen auslesen - AW: Mail-Adressen auslesen

Nach oben
       Version: Office 2010

Hallo ich krieg in dieser Zeile einen Fehler

If Nz(rs!EMail, "") <> "" Then

und zwar "rs!EMail in dieser auflistung nicht gefunden


würde gerne wissen wie ich das beheben kann
derArb
getting better


Verfasst am:
08. Feb 2012, 17:23
Rufname: derArb
Wohnort: Berlin


AW: Mail-Adressen auslesen - AW: Mail-Adressen auslesen

Nach oben
       

Hallo,
na, heisst Dein Tabellenfeld auch wirklich "EMail"?

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Tabelle mit VBA Code auslesen 10 Jampo 1084 24. Jul 2009, 12:26
Jampo Daten aus Tabelle mit VBA Code auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Auslesen einer Matrix 2 maxpower 594 03. Jul 2009, 11:00
Gast Auslesen einer Matrix
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld auslesen und in SQL verwenden 3 B0b 1917 17. Jun 2009, 19:53
jens05 Textfeld auslesen und in SQL verwenden
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Access Tabelle auslesen 7 JahNik 1697 08. Jun 2009, 01:41
Willi Wipp Daten aus Access Tabelle auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Informationen in mehreren Tabellen suchen und auslesen 4 informatikerin 478 07. Apr 2009, 08:00
informatikerin Informationen in mehreren Tabellen suchen und auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Username unter AC 2003 auslesen - Environ funktioniert nicht 12 andreczogalla 3210 03. Sep 2008, 14:29
andreczogalla Username unter AC 2003 auslesen - Environ funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: in Zeile springen, auslesen und verknüpfen 4 bubes 397 02. Aug 2008, 20:10
bubes in Zeile springen, auslesen und verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Schnittpunkt einer Matrix auslesen 0 derMatze 802 12. Feb 2008, 22:33
derMatze Schnittpunkt einer Matrix auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Ersten 3 Zeichen auslesen 1 testgast 692 15. Jan 2008, 13:04
KlausMz Ersten 3 Zeichen auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Summe + Wahrheitswert auslesen 2 pktm 374 11. Dez 2007, 11:56
pktm Summe + Wahrheitswert auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabellen auslesen und als excel exportieren 0 Hobo2k 392 27. Nov 2007, 10:50
Hobo2k 2 Tabellen auslesen und als excel exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Max-Wert per VBA aus einer Tabellenspalte auslesen 3 Riko 7810 26. Sep 2007, 16:32
jmc Max-Wert per VBA aus einer Tabellenspalte auslesen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum