Hvorfor denne fejl i SMTPsvg.Mailer
Jeg har funden dette script og tilpasset det så det passer til mit behov, men hvorfor får jeg denne fejl meddelseMicrosoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'AddRecipient'
/log/news/Mail_group.asp, line 28
i dette script, når alle sti'er til databasen er ok.
%
do while not Record.EOF
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.RemoteHost = "mail.scannet.dk" 'Mail server
Mail.FromAddress = "tomoe@tomoe.dk" 'Reply adresse
Mail.FromName = "Info tomoe"
Mail.AddRecipient Record("Email") ' Henter Email adressen fra databasen
Mail.Subject = "Mail fra www.tomoe.dk" ' Emnet som skal vises når mailen modtages
Body = "<HTML><Head></Head><BODY BGCOLOR='#000000'><font color='#ffffff'>Hej "
Body = Body + Record("Navn")
Body = Body + "<br>"
Body = Body + StrMail
Body = Body + "</font></BODY></HTML>"
Mail.Body = Body
Mail.IsHTML = True
If AttachFile <> "" then
Mail.AddAttachment Request.Form("File")
End if
On Error Resume Next
Mail.Send
Record.MoveNext
loop
set Record = nothing
set Connect = nothing
If Err <> 0 Then
Response.Write "Der er sket en fejl, dette er bl.a. en af dem: " & Err.Description & "<br>"
Else
Response.Write "Der er nu send nyhedsbrev rund til alle i den valgte kategori"
End If
%>
