JMail ....

Taget herfra: http://n247.net/JMailbox/index.asp?pg=help

Most probably you have not set MySMTP to a valid SMTP server address. You should contact your webhost to see what SMTP settings they require for sending emails from their servers.

Det betyder den adresse du har angivet som SMTP server ikke vil acceptere at man sender mail via den. Web-hoteller har deres egne mail servere og hvis man køre koden på deres web-hotel virker det, men køres den lokalt virker det ikke fordi man ikke udefra kan komme på mail serveren.

det ligger sådan at mail og web serveren er den samme computer og der er installeret smtp med i mail serveren, og den er jeg sikker på virker for jeg har lige sendt en mail over den.
Hvor kan jeg gå ind og rette i mit JMail så jeg kan se om der står den rigtige smtp server?

prøv allerførst at kom med lidt kode

Det angiver du i koden hvor du sender mailen.:

Det kommer lidt an på hvilken version af JMail du har og hvprdan du bruger den eks:
JMail.SenderAddress = "mail.xxxx.dk"

Det kan også være:
JMail.Send("mail.xxxxx.dk")

Jeg har JMail 4.0

Så skal det vist være denne:

Jmail.Send("mail.xxxx.dk")

okay... jeg kigger lige på det.

Nu smider jeg lige koden jeg bruger:


<%Dim afsender_mail, afsender_navn, mailserver, subject, body, priority, modtager_liste
afsender_mail = Trim(Request.Form("afsender_mail"))
afsender_navn = Trim(Request.Form("afsender_navn"))
mailserver = Trim(Request.Form("mailserver"))
subject = Trim(Request.Form("subject"))
body = Trim(Request.Form("body"))
priority = Request.Form("priority")
modtager_liste = Trim(Request.Form("modtager_liste"))
Response.Cookies("Nyhedsbrev")("afsender_mail") = afsender_mail
Response.Cookies("Nyhedsbrev")("afsender_navn") = afsender_navn
Response.Cookies("Nyhedsbrev")("mailserver") = mailserver
Response.Cookies("Nyhedsbrev")("modtager_liste") = modtager_liste
Response.Cookies("Nyhedsbrev").Expires = Date+365

Set mail = Server.CreateObject("JMail.SMTPMail") 'Opretter objekt af JMail-komponent
With mail
.ServerAddress = mailserver
.Sender = afsender_mail
.SenderName = afsender_navn
.Subject = subject
.Body = body
.Priority = priority

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/newsletter.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev")
If Not rs.EOF Then
Do While Not rs.EOF
.AddRecipient(rs("email"))
Response.Write "Sender e-mail til: " & rs("email") & "<br>"
rs.MoveNext
Loop
Else
Response.Redirect("admin_nbrev_index.asp")
End If
Conn.Close
Set Conn = Nothing
If modtager_liste <> "" Then
.HideRecipients = modtager_liste
End If
.Execute() 'Sender e-mails
mail.Close()
End With
Set mail = Nothing
Response.Write "Færdig! - Nyhedsbrev sendt"
%>

Mailser adressen bliver sat i denne linie:

ServerAddress = mailserver


Variablen sættes i denne linie:

mailserver = Trim(Request.Form("mailserver"))


Så indholdet af variablen kommer fra et form felt som hedder mailserver.

ja, men kan ikke rigtig få det til at virke.... har selv en smtp server som ligger på smtp.host2all.dk men den kommer der bare fejl ved.

Og du har angivet  smtp.host2all.dk  i feltet på formen?

Eller måske skal du angive username og password for at logge på serveren??

hvordan kan jeg gøre det?

Det kan gøre med:

Jmail.MailServerPassWord = "mitpassword"
Jmail.MailServerUserName = "brugernavn"

okay.... prøver jeg også lige

Det er muligt de to MailServerPassWord og MailServerUserName ikke virker med "JMail.SMTPMail". Hvis du har version 4.0 så prøv at rette denne linie:
Set mail = Server.CreateObject("JMail.SMTPMail")

Til:
Set mail = Server.CreateObject("JMail.Message")


Så skal
.ServerAddress = mailserver

Være:
.MailDomain = mailserver


Det muligt du også er nød til at lave denne:
.Execute() 'Sender e-mails

om til:
.Send()

Så virker det eagleeye, så du må gerne lige smide et svar så du kan få point :)

Ok det kommer her :)

Sådan så har du fået point :)

Du skal have en stor tak for hjælpen med at sætte det op :)