email sturen naar een groep medewerkers

[elagas]

Hallo ik heb een programmering gemaaklt die ik maar niet aan de praat krijg.
Kunnen jullie me misschien helpen. Ik heb een formulier met een knop, nu wil ik dat als ze op de knop klikken dat hij een vraag stelt welke afdeling ik wil mailen en als ze die hebben ingevuld dat hij een loop door de database maakt en dan de desbetreffende mailadressen opsomt.
Dit is de programmering die ik heb gemaakt:
Dim Naam As String
Dim Emailtje As String
Dim db As Database
Dim rs As Recordset
Dim uit As String
Naam = InputBox("Welke afdeling wilt u mailen?", "Geef hier de afdeling op")
Set db = CurrentDb
Set rs = db.OpenRecordset("qryFilterBHVLeden")
While Not rs.EOF
rs.Edit
If [CODEGRP] = "[CODEGRP] like '*" & Naam & "*'" Then 'ik denk dat hier de fout zit!
Emailtje = Emailtje & rs("") & "; "
End If
rs.Update
rs.MoveNext

Wend
Dim o As Outlook.Application
Dim mail As mailitem
Set o = CreateObject("Outlook.Application")
Set mail = o.CreateItem(olMailItem)
mail.To = Emailtje
mail.Subject = "De gehele afdeling"
mail.Body = "Dit is een standaard mail naar de gehele afdeling."
mail.Importance = olImportanceHigh
mail.Display
Set o = Nothing
Set mail = Nothing
rs.Close
db.Close

 

[elagas]

Ik heb het al opgelost

Voor degene die nog belangstelling heeft in de goede programmering,

Dim Naam As String
Dim Emailtje As String
Dim db As Database
Dim rs As Recordset
Dim uit As String
Naam = InputBox("Welke afdeling zoekt u?", "Geef hier de afdeling op")
Set db = CurrentDb
Set rs = db.OpenRecordset("qryFilterBHVLeden")
On Error Resume Next
rs.MoveFirst
While Not rs.EOF
rs.Edit
If rs("[CODEGRP]").Value Like "*" & Naam & "*" Then
Emailtje = Emailtje & rs("") & "; "
End If
rs.MoveNext
Wend
Dim o As Outlook.Application
Dim mail As mailitem
Set o = CreateObject("Outlook.Application")
Set mail = o.CreateItem(olMailItem)
mail.To = Emailtje
mail.Subject = "De gehele afdeling"
mail.Body = "Dit is een standaard mail naar de gehele afdeling."
mail.Importance = olImportanceHigh
mail.Display
Set o = Nothing
Set mail = Nothing
rs.Close
db.Close

 

[WinteE]

In een selectiequery kun je met behulp van een keuzevak een voorwaarde instellen.

rs.MoveFirst en rs.Edit zijn overbodig.

Gebruik Do While Not ... Loop in plaats van While Not ... Wend