Hmm... Tänkte att jag skulle försöka skicka ett mail nu, från hemsidan. Så jag har ängnat massa timmar åt att läsa på internett om Jmail som jag vet fungerar på mitt webhotell eftersom jag har en webshop som skickar med det.
Men jag har tagit en massa exempel, och ändrat till rätt email och SMTP port m.m. Men de fungerar inte..
Tex. denna:
Kod: Markera allt
<%
'----------------------------------------------------------------------------
'
' Send email using the Jmail component
'
' by Chris Hardy
' http://www.chrishardy.co.uk/
'
'----------------------------------------------------------------------------
Option Explicit
dim sName, sEmail, sMessage
if Request.Form("Action") <> "" then
sName = Request.Form("Name")
sEmail = Request.Form("Email")
sMessage = Request.Form("Message")
dim oJMail
Set oJMail = Server.CreateObject("JMail.SMTPMail")
with oJMail
.Sender = "shop@crazycasemod.se"
.SenderName = "Your Name"
.AddRecipient "shop@crazycasemod.com"
.Subject = "Message from website"
.Body = sMessage
.ServerAddress = "mail.crazycasemod.se:25"
.Execute
end with
Set oJMail = Nothing
response.write "Thanks for your message!"
else
%>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<p>Name:<br /><input type="text" name="Name" /></p>
<p>E-mail:<br /><input type="text" name="Email" /></p>
<p>Message:<br /><textarea name="Message"></textarea></p>
<p><input type="submit" name="Action" value="Send" /></p>
</form>
<%
end if
%>
På alla försök får jag felmedelandet
Kod: Markera allt
jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/startsida/jmail.asp, line 29
29'e raden är ".Execute"
Den koden som fungerar ser ut såhär:
Kod: Markera allt
...
...
...
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient ""& eposten &"", ""& eposten &""
jmail.From = "" & info(7) & ""
jmail.Subject = "Beställning"
jmail.appendHTML "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
jmail.appendHTML "<b>Art.nr: </b>" & MyArray(2,i) & "<br>"
jmail.AppendHTML "<b>Produkt: </b>" & MyArray(3,i) & "<br>"
jmail.AppendHTML "<b>Antal: </b>" & MyArray(1,i) & "<br>"
jmail.AppendHTML "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
jmail.AppendHTML " <br>"
END IF
END IF
Next
jmail.appendHTML "<b>Namn: </b>" & info(0) & "<br>"
jmail.appendHTML "<b>Adress: </b>" & info(1) & "<br>"
jmail.appendHTML "<b>Postnr: </b>" & info(2) & info(3) & "<br>"
jmail.appendHTML "<b>Postadress: </b>" & info(4) & "<br>"
jmail.appendHTML "<b>Telefonnummer: </b>" & info(5) & "-" & info(6) & "<br>"
jmail.appendHTML "<b>E-post: </b>" & info(7) & "<br>"
jmail.appendHTML "<b>Övrigt: </b>" & info(8) & "<br>"
jmail.appendHTML "<b>Skickat: </b>" & Now() & "<br>"
jmail.appendHTML "</font>"
jmail.Send(mailserver)
For Each nyckel in Request.Cookies(Session.SessionID)
Response.Cookies(Session.SessionID)(nyckel) = ""
Next
sida = Request.ServerVariables("HTTP_REFERER") & "&skickad=ja"
Response.Redirect sida
Men när jag har försökt plocka ut den så att den inte ska ha en massa variabler och hämta saker från databasen slutar den genast fungera och ger samma felmedelande som de andra..
HÄR har jag bla. läst och testat exempel från..
Tacksam för all hjälp!
..
, också hade jag inte hittat hur man kunde se felmedelandena heller.. Så det va inte så lätt att hitta 
. Jag började med att kolla CSS, där fick jag inte ett enda fel! 
112 fel!
