Fel med Jmail

jmail.Send skall vara namnet på smtp-servern du skall använda dig av.

JMail.ServerAddress = "127.0.0.1:25"  'smtpservern
JMail.Sender = "mailbot@yourdomain.com" 'brukar behöva vara samma domän som smtp servern.

(Edit: jag var visst inte snabb nog.)

Suck...har prövat allt men inget funkar.

namn = Request.Form("namn") 
epost = Request.Form("epost")
tel = Request.Form("tel")
Meddelande = Replace(Request.Form("mess"), vbCrLf, "<br>" & vbCrLf)
	
Set jmail = Server.CreateObject("JMail.Message")
jmail.Logging = True
Jmail.Priority = 1 
jmail.From = "" & epost & "" 
jmail.AddRecipient "sudden1987@hotmail.com"
jmail.Subject = "NÅGOT_SUBJECT:"
jmail.Body = "VAD_SOM_HELST:"
jmail.appendHTML "<font face=verdana size=2>"
jmail.appendHTML "<b>Skickades: </b> " & Now & "<br>" 
jmail.appendHTML "<b>Namn: </b> " & namn & "<br>" 
jmail.appendHTML "<b>Epost: </b> " & epost & "<br>"
jmail.appendHTML "<b>Telefon nr: </b> " & tel & "<br>"
jmail.appendHTML "<b>Meddelande: </b> " & Meddelande & "<br>"
jmail.appendHTML "</font>"

jmail.Send ("SMTP_SERVER")
Response.Redirect("index.asp?page=kontakt")
%>

Får fortfarande samma felmeddelande

Vad har du för webhotell?!

Har inte lagt upp sidan än!

Kör du ens någon egen smtp-server då? Vissa isp:s omöjliggör användandet av egen mailserver ex. bredbandsbolaget. Då blir du tvungen att använda deras.

Har verkligen slitit mina grå hår med det här men det funkar fortfarande inte.
Har nu koden:

<%
namn = request.form("namn")
epost = request.form("epost")
medd = request.form("mess")
subject = "CREA KONTAKT"
IP = Request.ServerVariables("REMOTE_ADDR")
Set objJMail = Server.CreateObject("JMail.SMTPMail")
On Error Resume Next
objJMail.Logging = True

With objJMail
   .ServerAddress = IP

   .Sender = "epost"
   .SenderName = "namn"
   .AddRecipient "sudden1987@hotmail.com"
  
   .Subject = "subject"
  
   If blnHTML = True Then
	  				.HTMLBody = "medd"
				Else
					.Body = "medd"
				End If
   .Priority = 3 
  
   If NOT IP = "" Then .Execute	
End With
Response.write objJMail.Log
			Response.End	
Set objJMail = Nothing
Response.Redirect("index.asp?page=kontakt")
%>

Felmeddelandet ser ut:
The message was undeliverable. All servers failed to receive the message .execute() { Trying server mail:127.0.0.1 127.0.0.1 failed with the message: "WSAGetLastError() returned 10061, Connection refused" No socket for server. ConnectToServer() 1 of 1 servers failed }

Jag kör alltså från min egen server.
Tacksam för hjälp :)

Har abbonemang hos telia kanske bör tilläggas :)

Okej nu använder jag telias server för utgående e-post.
Får det här felmeddelandet:

The message was undeliverable. All servers failed to receive the message .execute() { Trying server mail:mail1.telia.com <- 220 smtp2-2-sn4.m-sp.skanova.net ESMTP Postfix -> EHLO sundins <- 250-smtp2-2-sn4.m-sp.skanova.net 250-PIPELINING 250-SIZE 50000000 250-ETRN 250 8BITMIME -> MAIL FROM: <- 250 Ok -> RCPT TO:sudden1987@hotmail.com <- 504 : Sender address rejected: need fully-qualified address -> DATA <- 554 Error: no valid recipients Error: 554 Error: no valid recipients .execute() { Trying server mail:mail1.telia.com <- 220 smtp2-2-sn4.m-sp.skanova.net ESMTP Postfix -> EHLO sundins <- 250-smtp2-2-sn4.m-sp.skanova.net 250-PIPELINING 250-SIZE 50000000 250-ETRN 250 8BITMIME -> MAIL FROM: <- 250 Ok -> RCPT TO:sudden1987@hotmail.com <- 504 : Sender address rejected: need fully-qualified address -> DATA <- 554 Error: no valid recipients Error: 554 Error: no valid recipients 1 of 1 servers failed }

.Sender = "epost"

prova att ändra till

.Sender = "dinteliaadress@telia.se"

Nopp...får bara:

.execute() { Trying server mail:mail1.telia.com <- 220 smtp3-1-sn1.fre.skanova.net ESMTP Postfix -> EHLO sundins <- 250-smtp3-1-sn1.fre.skanova.net 250-PIPELINING 250-SIZE 50000000 250-ETRN 250 8BITMIME -> MAIL FROM: <- 250 Ok -> RCPT TO:sudden1987@hotmail.com <- 250 Ok -> DATA <- 354 End data with . Sending headers... Sending body... Message sent <- 250 Ok: queued as B61A237E4E 0 of 1 servers failed

Fast om jag nu har .Sender = "dinteliaadress@telia.se"
Då så är det ju alltid "dinteliaadress@telia.se" som skickar.
Jag vill ju att klienten ska skriva in sin mail...och att hans mailadress ska synas i meddelandet.

Om det ska funka så måste du nog autha dig mot mailservern annars kommer den räkna ditt mail som spam.

objJmail.Send ("myUserName:mypassword@mymailserver.mydomain.com")

Nu får jag inget felmeddelande iallafall.
Men jag får inget mail.

Koden:

<%
subject = "CREA KONTAKT"
mailserver = "mail1.telia.com"
Set objJMail = Server.CreateObject("JMail.SMTPMail")
On Error Resume Next
objJMail.Logging = True
With objJMail
   .ServerAddress = mailserver
   .smtp.Server = "www.hotmail.com"
   .Sender = request.form("epost")
   .SenderName = request.form("namn")
   .AddRecipient "sudden1987@hotmail.com"
  
   .Subject = "subject"
   
   If blnHTML = True Then
	  				.HTMLBody = request.form("mess")
				Else
					.Body = request.form("mess")
				End If
   .Priority = 1 
  
   If NOT mailserver = "" Then .Execute
   Response.Redirect("index.asp?page=kontakt")
   End With
Response.write objJMail.Log
			Response.End	
Set objJMail = Nothing
%>

Eller joförresten hehe!
Det tog ett tag att få mailet bara ;)