Jmail... Igen... Gider ikke at sende... :(
Ok... Her er den... Jeg har fundet et script om Jmail inde på asp.dk ... Har testet den på min server... har fundet ud af mailserver... Ved at vi har Jmail installeret på serveren... :) Det script jeg fandt virker også fint.. Den er til at sende SMS med... Men hovedsagen er at den virker.. :)Så vil jeg overføre en lille til min side... men... Nu virker det ikke mere... Nu brokkede den sig over at den ikke vidste hvad Jmail var... Så prøvede jeg (fordi at det havde de gjort i det andet script) at sætte noget Functions rundt om... kan ikke rigtig se hvad de gør godt for... men nu virkede det... problemet er bare at den ikke sender mailen :( I får her begge koder... Hvis i så vil sige havd jeg gør gal... Det er første gang jeg leger med mail i ASP :)
Dette er det script jeg fandt på asp.dk :
<%
\'--------- SKAL TILRETTES FØR BRUG START ---------
\'1 = JMail
\'2 = ASPMail
\'3 = CDONTS
\'4 = Webhostme mail
mailer = 1
afsendermail = \"morticuz@sprit.dk\"
\'--------- SKAL TILRETTES FØR BRUG SLUT ----------
fedfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\" COLOR=\"\"#FFFFFF\"\"><STRONG>\"
gulfedfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\" COLOR=\"\"#FFFF00\"\"><STRONG>\"
rodfedfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\" COLOR=\"\"#FF0000\"\"><STRONG>\"
fedstor = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"4\"\" COLOR=\"\"#000099\"\"><STRONG>\"
fe = \"</STRONG></FONT>\"
Function sendsms( mobil )
if Request.Form(\"telefonnummer\") = \"\" or Request.Form(\"afsender\") = \"\" or Request.Form(\"besked\") = \"\" then
sendsms = rodFedfont &\"Alle felter SKAL udfyldes !!! \"& fe
else
\'**************** Teleselskaber email start ****************
teledk = \"@sms.tdm.dk\"
sonofon = \"@note.sonofon.dk\"
telia = \"@gsm1800.telia.dk\"
mobilix = \"@sms.mobilix.dk\"
\'**************** Teleselskaber email slut *****************
\'**************** Find teleselskab start ****************
If Not IsNumeric(mobil) Then
gyldigt = 0
else
if left(mobil,4) < 2010 OR len(mobil) < 8 then
gyldigt = 0
else
gyldigt = 1
end if
end if
if gyldigt = 1 then
if int(left(mobil,4)) => 2010 AND int(left(mobil,4)) =< 2059 then
selskab = teledk
elseif int(left(mobil,4)) => 2060 AND int(left(mobil,4)) =< 2099 then
selskab = sonofon
elseif int(left(mobil,4)) => 2110 AND int(left(mobil,4)) =< 2199 then
selskab = teledk
elseif int(left(mobil,4)) => 2210 AND int(left(mobil,4)) =< 2299 then
selskab = sonofon
elseif int(left(mobil,4)) => 2310 AND int(left(mobil,4)) =< 2399 then
selskab = teledk
elseif int(left(mobil,4)) => 2610 AND int(left(mobil,4)) =< 2699 then
selskab = mobilix
elseif int(left(mobil,4)) => 2810 AND int(left(mobil,4)) =< 2899 then
selskab = telia
elseif int(left(mobil,4)) => 3010 AND int(left(mobil,4)) =< 3099 then
selskab = teledk
elseif int(left(mobil,4)) => 4010 AND int(left(mobil,4)) =< 4049 then
selskab = teledk
elseif int(left(mobil,4)) => 4050 AND int(left(mobil,4)) =< 4099 then
selskab = sonofon
else
gyldigt = 0
end if
end if
if gyldigt = 1 then
navn = \"Besked fra \"& Request.Form(\"afsender\")
tekst = Request.Form(\"besked\")
mobiltekst = navn &\". \"& Request.Form(\"besked\")
email = mobil & selskab
\'******** BESKED SENDES START ********
if mailer = 1 then
\'--------------JMail mail start---------------------
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.avengers.dk\"
JMail.Sender = afsendermail
if selskab <> \"@sms.tdm.dk\" then
JMail.Subject = navn
JMail.Body = tekst
else
JMail.Body = mobiltekst
end if
JMail.AddRecipient email
JMail.Execute
set JMail = nothing
\'--------------JMail mail slut---------------------
elseif mailer = 2 then
\'--------------ASPMail mail start---------------------
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.avengers.dk\"
Mailer.FromAddress = adsendermail
Mailer.AddRecipient email
if selskab <> \"@sms.tdm.dk\" then
Mailer.Subject = navn
Mailer.BodyText = tekst
else
Mailer.BodyText = mobiltekst
end if
Mailer.SendMail
\'--------------ASPMail mail slut---------------------
elseif mailer = 3 then
\'--------------CDONTS mail start---------------------
Set sms = CreateObject(\"CDONTS.NewMail\")
sms.From = afsendermail
sms.To = email
if selskab <> \"@sms.tdm.dk\" then
sms.Subject = navn
sms.Body = tekst
else
sms.Body = mobiltekst
end if
sms.Send
Set sms = Nothing
\'--------------CDONTS mail slut---------------------
elseif mailer = 4 then
\'------------Webhostme mail start--------------------
Set SMTPObj = CreateObject(\"WebHostMeMail.SMTP\")
SMTPObj.SMTPServer = \"Mail.webhostme.com\"
SMTPObj.ToAdd = email
SMTPObj.FromAdd = afsendermail
if selskab <> \"@sms.tdm.dk\" then
SMTPObj.Subject = navn
SMTPObj.Body = tekst
else
SMTPObj.Body = mobiltekst
end if
SMTPObj.Connect
result = SMTPObj.EMail
SMTPObj.Quit
\'------------Webhostme mail slut---------------------
end if
end if
if gyldigt = 1 then
sendsms = fedfont &\"Besked er sendt til:<BR><BR>Telefonnummer: \"& rodfedfont & mobil
\'******** BESKED SENDES SLUT *********
else
sendsms = rodFedfont &\"Telefonnummeret er ikke gyldigt !!! \"& fe
end if
\'**************** Find teleselskab slut *****************
end if
End Function
\'---------------------------------------------------------------
%>
Og her kommer min kode så :
<%
Dim Jmail, Afsender, navn, adresse, tlf, email
Afsender = \"Pesgo - Form\"
Navn = Request.form(\"navn\")
adresse = Request.form(\"adresse\")
tlf = Request.form(\"tlf\")
email = Request.form(\"mail\")
If navn = \"\" And adresse = \"\" and tlf = \"\" Then
%>
Beskeden er ugyldigt... Udfyld alle felter tak :)
<%
Else
Function sendmail(navn)
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.avengers.dk\"
JMail.Sender = afsender
JMail.Subject = navn
JMail.Body = adresse
JMail.AddRecipient email
JMail.Execute
set JMail = nothing
End Function
%>
Beskeden er sendt :)
<%=Navn%><p>
<%=adresse%><p>
<%=tlf%><p>
<%=email%><p>
<%=afsender%><p>
<% End If %>
Det sidste der er bare lavet for at teste om den sender noget... og det gør den :)
Er der nogle der kan se et problem ?? Jeg kan ikke :(
Hilsen Peter :)
