Detta problem får jag när jag försöker skicka mail via min mailing lista.
"jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/Mlist/email.asp, line 62"
Här är koden för JMail:
Do While not Recordsx.eof
Set jmail=Server.CreateObject("jmail.smtpmail")
jmail.ServerAddress="pop3.uniimport.fi"
jmail.AddRecipient Recordsx("email")
jmail.Sender=request.form("fromName")
jmail.SenderName=request.form("fromName")
jmail.Subject=Request.Form("subject")
jmail.Body=request.form("body") & chr(13) & request.form("ending")
jmail.Execute
Set jMail = nothing
Recordsx.movenext
i=i+1
loop
Det var CDONTS förut med det funkade inte på servern så jag använde JMail
Det funkar också när jag använder test databasen, enda skillanden där är att det bara finns en e-mail adress.
------------------
The Eliens!
They are here!
Now where did I put my Napalm Cannon?
Såhär ser det ut nu men ingen log fil...
set connection = Server.CreateObject("ADODB.Connection")
Connection.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("/mlist") & "\blr.mdb;"
Set Recordsx = CreateObject("ADODB.Recordset")
sqltemp = "SELECT * FROM swe"
Recordsx.Open sqltemp, Connection,2,3
i=0
Set jmail=Server.CreateObject("jmail.smtpmail")
jmail.logging=true
Do While not Recordsx.eof
jmail.ServerAddress="pop3.uniimport.fi"
jmail.AddRecipient Recordsx("email")
jmail.Sender=request.form("fromName")
jmail.SenderName=request.form("fromName")
jmail.Subject=Request.Form("subject")
jmail.Body=request.form("body") & chr(13) & request.form("ending")
jmail.Execute
response.write jmail.log
on error resume next '## Ignore Errors
Recordsx.movenext
i=i+1
loop
Set jMail = nothing
set rsEmail = nothing
response.write "Sent " & i & " emails"
end if
------------------
The Eliens!
They are here!
Now where did I put my Napalm Cannon?
