|
Guten Tag
Access ist totales Neuland für mich und deswegen komme ich leider nicht weiter.
Ich habe eine Adressliste (tblAdressen). Über verschiedene Formulare frage ich gewisse Dinge ab und am Schluss entsteht die korrekte Abfrage. Soweit so gut. Ist die Abfrage erstellt, erhält der User die Möglichkeit, einen Haken in die Checkbox Mail senden zu setzten. Hat er das gemacht und klickt er auf weiter, so wird eine neue Abfrag erstellt, welche nur die Adressen der Personen zeigt, die eine Mail erhalten sollen. Diese Abfrage heisst (abfKundeninteresseArtikelMail). Wenn man dann auf einen Button - senden - klickt, so sollte sich Outlook öffnen und für jede Person (sind nie über 10) eine eigene Mail aufmachen. Man müsste dann noch ein PDF (Flyer) mitschicken können.
Folgenden Code hab ich gefunden und angepasst:
Dim rs As DAO.Recordset
Dim OlApp As Object
Dim OutMail As Object
Dim strEmail As String
Dim bccEmails As String
Set OlApp = CreateObject("Outlook.Application")
Set OutMail = OlApp.CreateItem(olMailItem)
Set rs = CurrentDb.OpenRecordset("SELECT Mailadresse FROM tblAdressen")
With rs
Do Until .EOF
strEmail = !Mailadresse
' add email to BCC email list string
bccEmails = bccEmails & strEmail & ";"
rs.MoveNext
Loop
End With
rs.Close
Set rs = Nothing
' set BCC using string of concatenated emails
OutMail.BCC = Left(bccEmails, Len(bccEmails) - 1) ' trims trailing semicolon
OutMail.Display
Sobald das durchgelaufen ist, setze die die Checkbox wieder auf Nein, damit man das Ganze neu starten kann. Wenn ich aber FROM tblAdresse zu abfKundeninteresseArtikelMail ändere, bekomme ich eine Fehlermeldung:
error 3061 - two parameter are expected.
Kann mir jemand sagen, wie ich den Code so ändere, dass er durch die verschiedenen Adressen Loopt und für jede Adresse, die in der Checkbox Mailsenden ein Ja hat, eine Mail aufmacht mit Anhang? Die Mailadresse müsste ich im An und nicht im BCC sein.
Hoffe, ich hab das irgendwie logisch erklärt - ist gar nicht so einfach :)
Herzlichen Dank schon mal für jegliche Hilfe!!!!
|