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
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
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.