Hjælp til JMail

Hejsa - jeg er igang med et intranet system, der (når man opretter en besked) skal sende en mail med beskeden til vores eksterne brugere (sælgere m.m.).

Jeg kan godt få JMail til at virke på alle mailadresser der kører på vores egen mail-server, men når det bliver fx. en hotmail-adresse får jeg følgende fejl:

jmail.SMTPMail error \'8000ffff\'

The message was undeliverable. All servers failed to receive the message

/sebg/ny.asp, line 132

Det undrer mig lidt for jeg har brugt samme script (dog lidt ændret) et andet sted.

Mit script ser således ud:

<%
Select Case Request.QueryString(\"action\")

Case \"save\"

Dim Connect, sql, rs, old_id, new_id, tid, sql2, sql3, sql4, Danmark, Norge, Sverige

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"sb_budget\", \"scanbox_admin\", \"scanboxadm\"

Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT Id FROM Scan_info ORDER BY Id DESC\", Connect, 1, 3

If (rs.BOF OR rs.EOF) Then
    old_id = \"0\"
Else
    old_id = rs(\"Id\")
End if

new_id = old_id + 1

tid = Time()

If Request.Form(\"land\") = \"Danmark\" Then
    sql = \"INSERT INTO Scan_info (ID, Dato, Klokke, Navn, Subject, Text, Land) VALUES (\"&\"\'\"&new_id&\"\', \'\"&date&\"\', \'\"&tid&\"\', \'\"&Request.Form(\"navn\")&\"\', \'\"&Request.Form(\"subject\")&\"\', \'\"&Request.Form(\"text\")&\"\', \'\"&Request.Form(\"land\")&\"\')\"
    Connect.Execute(sql)
End if

If Request.Form(\"land\") = \"Norge\" Then
    sql2 = \"INSERT INTO Scan_info_no (ID, Dato, Klokke, Navn, Subject, Text, Land) VALUES (\"&\"\'\"&new_id&\"\', \'\"&date&\"\', \'\"&tid&\"\', \'\"&Request.Form(\"navn\")&\"\', \'\"&Request.Form(\"subject\")&\"\', \'\"&Request.Form(\"text\")&\"\', \'\"&Request.Form(\"land\")&\"\')\"
    Connect.Execute(sql2)
End if

If Request.Form(\"land\") = \"Sverige\" Then
    sql3 = \"INSERT INTO Scan_info_se (ID, Dato, Klokke, Navn, Subject, Text, Land) VALUES (\"&\"\'\"&new_id&\"\', \'\"&date&\"\', \'\"&tid&\"\', \'\"&Request.Form(\"navn\")&\"\', \'\"&Request.Form(\"subject\")&\"\', \'\"&Request.Form(\"text\")&\"\', \'\"&Request.Form(\"land\")&\"\')\"
    Connect.Execute(sql3)
End if

If Request.Form(\"land\") = \"Alle\" Then
    sql = \"INSERT INTO Scan_info (ID, Dato, Klokke, Navn, Subject, Text, Land) VALUES (\"&\"\'\"&new_id&\"\', \'\"&date&\"\', \'\"&tid&\"\', \'\"&Request.Form(\"navn\")&\"\', \'\"&Request.Form(\"subject\")&\"\', \'\"&Request.Form(\"text\")&\"\', \'\"&Request.form(\"danmark\")&\"\')\"
    Connect.Execute(sql)
    sql2 = \"INSERT INTO Scan_info_no (ID, Dato, Klokke, Navn, Subject, Text, Land) VALUES (\"&\"\'\"&new_id&\"\', \'\"&date&\"\', \'\"&tid&\"\', \'\"&Request.Form(\"navn\")&\"\', \'\"&Request.Form(\"subject\")&\"\', \'\"&Request.Form(\"text\")&\"\', \'\"&Request.Form(\"norge\")&\"\')\"
    Connect.Execute(sql2)
    sql3 = \"INSERT INTO Scan_info_se (ID, Dato, Klokke, Navn, Subject, Text, Land) VALUES (\"&\"\'\"&new_id&\"\', \'\"&date&\"\', \'\"&tid&\"\', \'\"&Request.Form(\"navn\")&\"\', \'\"&Request.Form(\"subject\")&\"\', \'\"&Request.Form(\"text\")&\"\', \'\"&Request.Form(\"Sverige\")&\"\')\"
    Connect.Execute(sql3)
End if

Dim subj, tekst, email, rs1, JMail

subj = Request.Form(\"subject\")
tekst = Request.Form(\"text\")

Set rs1 = Server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"SELECT Mail FROM Info_mails\", Connect, 1, 3

do while not rs1.EOF

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = \"mail.scanbox.dk\"
JMail.Sender = \"IntranetInfo@scanbox.com\"
JMail.Subject = subj
JMail.Body = tekst
JMail.AddRecipient rs1(\"Mail\")
JMail.Execute

rs1.MoveNext
loop

Set JMail = Nothing

Connect.Close
Set Connect = Nothing

Response.Redirect(\"intranet_dk.asp\")

End Select
%>