Automatisk afsendelse af mail?
Hej,Jeg skal have lavet sådan at når der kommer en ny besvarelse i et indlæg så skal der sendes en e-mail til dem som deltager i indlægget. Jeg bruger JMail 4.
Jeg har forsøgt med denne kode, men email bliver kun sendt til den først adresse i databasen...
'--------------------------------------------------
'start på afsendelse af e-mail
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../Databaser/Forum.mdb")
Conn.Open DSN
SQL = "SELECT Email FROM Poster WHERE HovedID=" & Request.Form("HovedID")
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.eof
HovedID = Request.Form("HovedID")
varForumID = Request.Form("ForumID")
Mailhost = "mail.votus.dk"
MailSubject = "Nyt indlæg i forum..."
MailAddress = rs("Email")
MailFrom = "robot@votus.dk"
MailPlain = "Hej," & MailAdress & VbCrLf & VbCrLf & "Der er kommet en kommentar i et af de indlæg du deltager i." & VbCrLf & "Se det på http://www.votus.dk/Afrika/Board/Vis.asp?HovedID=" & HovedID &"&ForumID=" & varForumID & VbCrLf & VbCrLf & "Med venlig hilsen" & VbCrLf & "Afrika In Touch"
Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = MailHost
Mail.Subject = MailSubject
Mail.AddRecipient MailAddress
Mail.Sender = MailFrom
Mail.Body = MailPlain
Mail.Execute
rs.movenext
loop
End if
'slut på afsendelse af e-mail
'--------------------------------------------------
/pfp
