Jmail fel!

6 svar · 272 visningar · startad av [AMD]Zmaster 22 aug. 2002

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

Frågan22 aug. 2002 07:49#1

Det kommer inget felmeddelande, det står bara att nyhetsbrevet är skickat.

If Request.Querystring("action") = "sent" Then

Set RecSet=Conn.Execute("SELECT * From nyhetsbrev")

Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf)

On Error Resume Next
Do While Not RecSet.EOF

smtpServer = "mail.aleborg.com"
smtpPort = 25

' ---
dim sender, subject, body, smtpServer, smtpPort
' Now gets the data from Form
sender = Request.Form("dinemail")
receiver = Request.Form("Email")
subject = Request.Form("Subject")
body = Request.Form("meddelande")

Set mail = CreateObject ("JMail.SMTPMail") 
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html" ' or you can put 'text/plain' for plain text email 
mail.ISOEncodeHeaders = false 
mail.ContentTransferEncoding = "8bit"
mail.Body = body

' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest 
mail.Priority = 3

' Add sender's IP address (not required, but useful for web-based email)
mail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")

' Actually send mail
mail.Execute 
set mail = nothing

RecSet.MoveNext
Loop
	
RecSet.Close
Set RecSet = Nothing

Session("mess") = "<b>Nyhetsbrevet har nu skickats!</b>"
Response.Redirect "admin.asp?sektion=4"

End If

LarsGMedlem sedan dec. 200012 464 inlägg

22 aug. 2002 07:51#2

Kommentera bort

ON ERROR resume next

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

22 aug. 2002 07:57#3

Då får jag felmeddelande:

jmail.SMTPMail error '8000ffff'

Error: 502 The following recipients could not be sent to:

/hnadmin/admin.asp, line 1048

@ndersMedlem sedan juni 200032 967 inlägg

22 aug. 2002 07:59#4

Kontrollera innehållet i variablerna innan du skickar iväg mailet.

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

22 aug. 2002 08:03#5

Jag kan ingenting om ASP, vad menar du med "Kontrollera innehållet i variablerna innan du skickar iväg mailet."?

@ndersMedlem sedan juni 200032 967 inlägg

22 aug. 2002 08:06#6

Det viktiga är att kontrollera innehållet i variablerna sender och receiver.

sender = Request.Form("dinemail")
receiver = Request.Form("Email")
Response.write "sender: " & sender & "<br>"
Response.write "receiver: " & receiver & "<br>"

Kommentera också bort execute-raden.

Mvh,

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

22 aug. 2002 08:09#7

Äh, jag blir så lack på detta, jag fattar ingenting =(.
Jag struntar i det så länge =(