webForumDet fria alternativet

ersätta en jmailstas med en annan

ASP

14 svar · 266 visningar · startad av costodia

Medlem sedan aug. 2000864 inlägg
Frågan#1

Går det att ersätta denna koden

	sEmail = Rs("Email")
	set msg = Server.CreateOBject( "JMail.Message" )
	response.write "msg.From =" &  Session("from") & "<br>"
	response.write "msg.FromName =" &  Session("fromname") & "<br>"
	response.write "msg.Body = " & strMessage & "<br>"
	response.write "msg.AddRecipient " &  sEmail & "<br>"
    response.write "msg.Subject = " & Session("Subject") & "<br>"
	msg.Send("smtp.sajthotellet.com")
	set msg = Nothing
	Rs.MoveNext

med denna

sEmail = Rs("Email")
	set msg = Server.CreateOBject( "JMail.Message" )
	msg.From = Session("from")
	msg.FromName = Session("fromname")
	msg.Body = strMessage
	msg.AddRecipient sEmail
	msg.Subject = Session("subject")
	msg.Send("smtp.sajthotellet.com")
	set msg = Nothing
	Rs.MoveNext
Medlem sedan jan. 20032 285 inlägg
#2

Det beror ju på vad det är du ska göra. Ska du skicka ett meddelande eller skriva ut värdena som du använder i det andra exemplet till webbläsaren?
Om du ska skicka meddelandet ska du använda den nedre koden och om du bara ska skriva ut text till webbläsaren så ska du använda den övre.

Medlem sedan aug. 2000864 inlägg
#3

jag skrev fel i första inlägget,
det är den nedre jag har idag och det den övre jag vill byta till.

det är så att webhotellet (sajthotellet.com) har bytt server och helt plötsligt funkar inte mitt mailscript.

Han som har webhotellet sa att jag skulle lägga in den övre koden. Men som du skrievr så skrivs det ut på skärmen då istället för att skcikas iväg som det gjorde innan.

Kan det vara så att han på Sajthotellet har fel för sig och har gjort någon inställning fel?

Medlem sedan jan. 20032 285 inlägg
#4

Ta och fråga honom om de inte har bytt så att CDONTS eller någon annat mailkomponent funkar.

Medlem sedan aug. 2000864 inlägg
#5

jag frågade honom, och han säger att jmail och bara jmail är installerat.

Medlem sedan jan. 20032 285 inlägg
#6

Vad är det med det "gamla" scriptet som inte funkar då? :)

Medlem sedan aug. 2000864 inlägg
#7

det står

jmail.Message error '8000ffff' 

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

/_Nyhetsbrev/sendit.asp, line 58
Medlem sedan jan. 20032 285 inlägg
#8

Aha, de verkar ha bytt mailserver, så fråga honom vad de har bytt ut "smtp.sajthotellet.com" mot.

Medlem sedan aug. 2000864 inlägg
#9

det fågade jag honom om och han satt det var precis samma.

smtpservern har alltid legat seprat även innan, när det fungerade.

Medlem sedan jan. 20032 285 inlägg
#10

Testa det här och se vad som skrivs ut:

set msg = Server.CreateOBject( "JMail.Message" )
msg.From = Session("from")
msg.FromName = Session("fromname")
msg.Body = strMessage
msg.AddRecipient sEmail
msg.Subject = Session("subject")

If msg.Send("smtp.sajthotellet.com") Then
  Response.Write("Inget fel alls...")
Else
  Response.Write("Något var tydligen fel...")
End If

set msg = Nothing
Medlem sedan aug. 2000864 inlägg
#11

det kommer upp samma felmeddalnde tyvärr.

jmail.Message error '8000ffff' 

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

/_Nyhetsbrev/sendit.asp, line 58

jag funderar på om detta

meddelandet har blivit skickat till:

jmail.Message error '8000ffff' 

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

/_Nyhetsbrev/sendhtml.asp, line 50

alltså om "meddelandet har blivit skickat till:" skrivs ut kanske betyder att dne komemr en bit i koden

Medlem sedan jan. 20032 285 inlägg
#12

Jo, det betyder nog att den har kommit en bit i koden.
Vilken rad är rad 50/58?

Medlem sedan aug. 2000864 inlägg
#13
iCount = iCount+1
	sEmail = Rs("Email")
		set msg = Server.CreateOBject( "JMail.Message" )
		msg.From = Session("from")
		msg.FromName = Session("fromname")
		msg.Body = strMessage
		msg.AddRecipient sEmail
		msg.Subject = Session("subject")
		If msg.Send("smtp.sajthotellet.com") Then
  			Response.Write("Inget fel alls...")
				Else
  		Response.Write("Något var tydligen fel...")
				End If
	set msg = Nothing
	Rs.MoveNext

överst är "iCount = iCount+1"
det är rad 50

Medlem sedan jan. 20032 285 inlägg
#14

Jag har tyvärr ingen aning om vad som kan vara fel förutom att mailserveradressen är fel. :(

Medlem sedan aug. 2000864 inlägg
#15

ok, tack ändå

266 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
132 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)