fange fejl i jmail
Jeg sender en stak mails afsted med jmail,hvordan fanger jeg de fejl der opstår undevejs,
således at den skrive fejl i stedet for OK.
Den sender ellers som den skal osv..
Koden:
strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strStiDB&"\mailing_list.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strconnect
SQL = "SELECT * FROM members"
set rs = objConn.Execute(SQL)
If rs.eof then
Else
Do
strEmail = rs("Email")
strNavn = rs("navn")
'SENDER EMAIL **********************************************************************************************************
Set jmail = Server.CreateObject("JMail.SMTPmail")
jmail.Logging = true
jmail.ServerAddress = strServeradr
jmail.AddRecipient ""& strEmail &""', ""& strNavn &""
jmail.Sender = strFrom
jmail.Subject = strSubject
jmail.Body = " - "
jmail.HTMLBody = strHTML
jmail.Body = "-"
jmail.appendText "Dette er en HTML-Mail"
'***********************************************************************************************************************
If not jmail.execute then
Response.Write "<TR bgcolor=""#f5f5f5"" onmouseover=""this.style.background='#D8E4F8'"" onmouseout=""this.style.background='#f5f5f5'"">"
Response.Write "<TD>"&rs("email")&"</TD>"
Response.Write "<TD>"&strNavn&"</TD>"
Response.Write "<TD>"&rs("postnr")&" "&rs("city")&"</TD>"
Response.Write "<TD>FEJL</TD>"
Response.Write "<TD>FEJL</TD>"
Response.Write "</TR>"
Else
Response.Write "<TR bgcolor=""#f5f5f5"" onmouseover=""this.style.background='#D8E4F8'"" onmouseout=""this.style.background='#f5f5f5'"">"
Response.Write "<TD>"&rs("email")&"</TD>"
Response.Write "<TD>"&strNavn&"</TD>"
Response.Write "<TD>"&rs("postnr")&" "&rs("city")&"</TD>"
Response.Write "<TD>OK</TD>"
Response.Write "<TD>OK</TD>"
Response.Write "</TR>"
End if
set JMail = nothing
rs.movenext
Loop While Not rs.EOF
End if
set rs = nothing
objConn.Close
set objConn = Nothing
