Send via Outlook
Hej med jer!Jeg har en database over nogle medlemmer. Jeg vil gerne kunne sende beskeder til alle/udvalgte medlemmer hvis mail adresse står i en given tabel. Jeg har set flere indlæg her på hvorledes man løser dette og har fundet nedenstående kode. Jeg får dog kun den første mail adresse i tabellen med over i emailformularen i Outlook. Jeg skulle jo gerne have alle adresser med over. Hvad gør jeg forkert? Koden er indsat i forbindelsen med en knap i en formular!
Sub Emails_Click()
Dim db As Recordset
Set rs = CurrentDb.OpenRecordset("Emails")
Do Until rs.EOF
DoCmd.SendObject acSendNoObject, , , , , rs!ItnMail, , , True
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
