title image


Smiley Re: Serien-Email..Standart E-mail an beliebig viele Adressen versenden..
Na, etwa so:



Dim RS as DAO.Recordset

Set RS = Me.Recordsetclone

If rs.recordcount > 0 then

RS.Movefirst

Do until RS.EOF

Docmd.SendObject ,,,RS!Email,,,"Betreff","Nachricht",False

RS.Movenext

Loop

end if



Alternative - mit BCC:



Dim RS as DAO.Recordset, A as string

Set RS = Me.Recordsetclone

If rs.recordcount > 0 then

RS.Movefirst

Do until RS.EOF

A = A & ";" & RS!Email

RS.Movenext

Loop

Docmd.SendObject ,,,,,Mid(A,2),"Betreff","Nachricht",False

end if





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: