Send mail til flere brugere!

Hvad med flere adresser??

Fx. Til: "jensen@jensen.dk;hans@hansen.dk; osv..."

Måske vil det hjælpe dig?? :)

Fx. Til: "jensen@jensen.dk;hans@hansen.dk; osv..."

Måske vil det hjælpe dig?? :)

det virker ikke har prøvet ! når jeg sender emails til mine bruger er det ikke sådan her jeg skriver: jens@jensen.dk, jeg skriver kun hans brugernavn f.eks jens !

kør en løkke med de folk du vil sende til.

hvordan gør jeg det?

For i = 1 To 4 Step 1 [Her skrives: når 'i' er mellem 1 og 4 gennemløbes løkken med plus 1 af gangen]
  send_email.From = "Dit navn<dit_navn@domæne.dk>"
send_email.to = email
send_email.subject = "Du er nu tilmeldt BBD Corporate"
send_email.bodyformat = 0
send_email.mailformat = 0
send_email.body = HTML
send_email.send
Next

ups.... en mindre fejl.... her er hvad jeg ville have skrevet:

Do While Not rs.EOF
    Set email = createobject("CDONTS.NewMail")
    HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
    HTML = HTML & "<html>" & vbCrLf
    HTML = HTML & "<head>" & vbCrLf
    HTML = HTML & "<title>Titel på email</title>" & vbCrLf
    HTML = HTML & "</head>" & vbCrLf
    HTML = HTML & "<body>" & vbCrLf
    HTML = HTML & HTML-besked & vbCrLf
    HTML = HTML & "</body>" & vbCrLf
    HTML = HTML & "</html>" & vbCrLf

    alle_email = rs("email")

    email.From = Din_email<din_email@domæne.dk>
    email.To = alle_email
    email.Subject = "Emnet"
    email.BodyFormat = 0
    email.MailFormat = 0
    email.Body = HTML
    email.Send

    Set email = Nothing

    rs.MoveNext
Loop

Hmm? Fatter jeg ikke så meget af?

Kan du ikke lige sætte <% og %>
på ?

Lukker den her!