Rundmail via BCC

[Roland hb]

Moin,
ich habe ein problem für meine sonst fertige datenbank. und zwar ist es eine Adresssammlung und ich hätte gerne noch eine Ausgabe der mailadressen durch semikolons getrennt im Bcc von outlook.
Also dafür habe ich schon eine abfrage, die nur die mailadressen ausgibt. und eine schaltfläche, die den Code auslösen soll.
die abfrage heist "Nur Mail" und die Schaltfläche "Mail senden"
ich habe aber keine ahnung wie der code aussehen muss damit die adressen aus der abfrage gelesen hintereinander gesetzt und an outlook geschickt werden, so dass sie im bcc der mail sind, mann die mail aber noch schreiben kann und dann erst selber abschickt.
Ich würde mich riesig über tips und hilfe freuen.
gruß und besten dank

[Jonny]

Hallo Roland,
ich habe hier eine kleine Funktion die aber noch angepasst werden muss.
Public Function EmailVersenden(email As String, Optional Projekt)
    Dim olApp As Outlook.Application
   
    Dim olNamespace As NameSpace
    Dim objMailItem As MailItem
    Dim objFolder As mapiFolder
    Dim rs As DAO.Recordset
     Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    Set objMailItem = objFolder.Items.Add(olMailItem)
    With objMailItem
        .To = email
        .Subject = Forms!adressenfrm!Betreff
        .Body = Forms!adressenfrm!Nachricht & vbCrLf & vbCrLf & Forms!adressenfrm!Fußbereich
        If Not IsMissing(Projekt) Then
            Set rs = CurrentDb.OpenRecordset( _
                            "Select Datei " & _
                              "From Anhaenge " & _
                             "Where Projekt=" & Projekt)
                Do While Not rs.EOF
                    .Attachments.Add "" & rs!Datei & ""
                    rs.MoveNext
                Loop
            rs.Close: Set rs = Nothing
        End If
        .Display
    End With
    olApp.ActiveWindow
    SendKeys "%s"
End Function

Forms!adressenFRM ist mein Formular mit den Feldern Betreff, Nachricht und Fußbereich (nicht schimpfen ist schon älter und ß benutzte ich normalerweise nicht)
Projekt ist optional und kann für einen Anhang benutzt werden.

Wie gesagt muss noch etwas angepasst werden aber ich hoffe es hilft Dir.

Gruß
Johann

[Jonny]

Nachtrag:
Die Routine ist nicht von mir sondern habe ich vor Jahren mal gefunden. Urheber ist mir leider nicht mehr bekannt.
Nicht das jemand meint ich will mich hier mit fremden Federn schmücken.