Jmail virker ikke
Hej Jeg kan ikke få min jmail op at køre får denne fejljmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/escortny/Mail_Send_AccountInfo.asp, line 62
Og linie 62 er
JMail.Execute
her er hele koden
<%
If Session("Mail_User_Username")&""="" Then
Response.Redirect "/"
end if
' #### BEGIN ## Retrive the newly created accounts data ####
Str_Temp=Replace(Session("Mail_User_Username")&"","'","''")
Str_Temp=Replace(Str_Temp,"""","""""")
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL_Str="SELECT ID,FROM Users WHERE Username LIKE '"&Str_Temp&"'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("e.mdb")
rs.Open SQL_Str, strDSN, 1, 1
If Not rs.EOF Then
Str_ID=rs("ID")
Str_Username=rs("Username")
Str_Password=rs("password")
Str_Email=rs("Email")
else
Response.Redirect "Index.asp?Err_Login=7"
end if
rs.close
Set rs=nothing
' #### BEGIN ## Retrive the newly created accounts data ####
' #### BEGIN ## Send e-mail to user, using JMail component ####
Name = "admin@.dk"
SenderEmail = "admin@.dk"
Subject = "Oprettelse hos dk"
Recipient = Str_Email
' BEGIN - Generate message
Str_Message=""
Str_Message=Str_Message&"Velkommen "& Str_username &" til Escortline.Dk , " & vbCrLf & vbCrLf
Str_Message=Str_Message&"Du har nu oprettet en annonce hos Escortline.dk. Før du kan bruge dit Brugernavn og password, skal du klikke herunder for at aktivere din annonce :" & vbCrLf
Str_Message=Str_Message&" http://www.boligannoncen.dk/escortny/mail_activate_account.asp?id=" & Str_ID & vbCrLf & vbCrLf
Str_Message=Str_Message&"Når du har fået beskeden at annoncen er aktiveret ,kan du bruge dit brugernavn og password." & vbCrLF & vbCrLF
Str_Message=Str_Message&"Her er annoncens detaljer:" & vbCrLf
Str_Message=Str_Message&" Brugernavn: " & Str_Username & vbCrLf
Str_Message=Str_Message&" Password: " & Str_Password & vbCrLf & vbCrLf
Str_Message=Str_Message&"Brug dit brugernavn og password til at logge ind.første gang du logger ind skal du rette din annonce så du kan få det hele med" & vbCrLf & vbCrLf
Str_Message=Str_Message&" Venlig hilsen" & vbCrLf
Str_Message=Str_Message&"" & vbCrLf
Str_Message=Str_Message&"Husk er 100 % Gratis så klik på på <font size=4><b>bannerne</b></font>" & vbCrLf
Str_Message=Str_Message&"http://eny/" & vbCrLf& vbCrLf
Str_Message=Str_Message&"P.S.Hvis du har modtaget denne mail og har ikke oprettet en annonce,(http://www./), undskylder vi mange gange og du bedes sende en mail og vi skal få det rettet ! " & vbCrLf
' END - Generate message
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Enter your own SMTP-server here
JMail.ServerAddress = "smtp.mail.dk"
JMail.Sender = SenderEmail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Str_Message
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
' #### END ## Account Send e-mail to user, using JMail component (http://tech.dimac.net/) ####
Response.Redirect "Index.asp?Page=AccountCreated"
%>
<p> </p>
