Hjælp til at lave JMail om

Du må meget undskylde, men kan ikke rigtigt se, hvad det er, du ønsker at få lavet om !?

Der er sådan at jeg har en gæstebog med JMail (Den nederste) som virker!

Og så er jeg ved at lave formular (den øverste) hvor JMailen ikke virker, jeg modtaget ingen mail!

Og så tænkte jeg at en eller anden måske kunne hjælpe med at lave formularen om med gæstebogens JMail.

Var det en bedre forklaring??

Ved ikke om det virker men du manglede ligesom at tilknytte den del der står for afsendelsen:
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then

set msg = Server.CreateOBject("JMail.SMTPMail")
msg.ServerAddress = "localhost"
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = request.form("admin@dirch-passer.dk")
msg.FromName = request.form("fraNavn")
msg.AddRecipient "admin@dirch-passer.dk"
msg.Subject = request.form("emne")
msg.Body = request.form("tekst")

if not msg.Send("localhost") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if

end if
%>

/Goose

Den siger denne fejl:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Request.form(...).From'


msg.From = request.form("admin@dirch-passer.dk")

/mail.asp, line 63

Den siger denne fejl:

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Request.form(...).From'
/mail.asp, line 63


msg.From = request.form("admin@dirch-passer.dk")

msg.From = "admin@dirch-passer.dk"

.From er jo hvilken email der skal sendes fra. Og det må svare til:
JMail.Sender = "admin@dirch-passer.dk" fra den nederste!

Stadig fejl i linie 63:

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'From'
/mail.asp, line 63


msg.From = "admin@dirch-passer.dk"

det skal nok være msg.sender = "admin@dirch-passer.dk"
- istedet for din linie med msg.from
/Goose

Så er den gal med linie 64

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Request.form(...).FromName'
/mail.asp, line 64

msg.FromName = request.form("fraNavn")

Jeg har ændret linie 64 til: msg.Subject = "fraNavn"
Den gør ikke vrøvl men er den OK?

Så nu er det linie 69

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Send'
/mail.asp, line 69

Nu bruger du:
if not msg.Send("localhost") then

men er localhost en valid mailserver, altså har du tilladelse til at sende gennem denne gate ?

Ligger dit script hos et webhotel eller prøver du at udfører det lokalt på din egen maskine ?

/Goose

Du mangler forøvrigt også noget, nemlig:
msg.send ("mail.dinmailserver.dk")
- iflg. dimac vejledningen.
Linien skal ind for dit check (if not msg.Send("localhost") then)

/Goose

Localhost bruger jeg i gæstebogen og det virker.....se øverste indlæg

Jeg forstår ikke dit sidste indlæg! Vil du ikke skære det ud i pap for mig
Jeg er ikke særlig god til koder

Min side er en som jeg får lavet, man ham som laver den er på ferie, så jeg prøver mig lidt frem

Det jeg mener er, at du jo slet ikke aktiverer dit script, det er det linien:
msg.send gør.
Hvis "localhost" virker bør din linie være:

msg.send ("localhost")

- og den skal ind lige efter:

msg.Body = request.form("tekst")

/Goose

Fejl i linie 68:

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'send'
/mail.asp, line 68

msg.send ("localhost")



Her er en opsurmering af koderne:

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then

set msg = Server.CreateOBject("JMail.SMTPMail")
msg.ServerAddress = "localhost"
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.Sender = "admin@dirch-passer.dk"
msg.Subject = "fraNavn"
msg.AddRecipient "admin@dirch-passer.dk"
msg.Subject = request.form("emne")
msg.Body = request.form("tekst")
msg.send ("localhost")

if not msg.Send("localhost") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if

end if
%>

Jeg tror det hænger sammen med at du forsøger at bruge script til en nyere version af Jmail end den du rent faktisk bruger.
Hvis du poster dit gamle script skal jeg rette dit nye til i morgen formiddag eller send det via mail til admin@goose.dk

/Goose

Hvilken webhoteludbyder bruger du ?

/Goose

Hvad mener du med mit "gamle script"
http://vendsyssel-dataflint.dk

Jeg forstår ikke helt hvad du mener med ny & Gammel, men her er det nye (Tror jeg nok)


<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1">
  <tr>
    <td> <form name="form1" method="post" action="mail.asp">
        <table width="100%" border="0" cellspacing="0" cellpadding="2">
          <tr>
            <td><table width="100%" border="0" cellspacing="0" cellpadding="2">
                <tr>
                  <td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Dit
                    navn</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
                    </strong></font> <input name="fraNavn" type="text" class="loginform2" id="fraNavn3" size="35"></td>
                </tr>
                <tr>
                  <td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Din
                    e-mail</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
                    </strong></font> <input name="fra" type="text" class="loginform2" id="fra" size="35"></td>
                </tr>
                <tr>
                  <td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Emne</font><br>
                    <input name="emne" type="text" class="loginform2" id="emne" size="35"></td>
                </tr>
                <tr>
                  <td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Besked</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
                    </strong></font> <textarea name="Tekst" cols="37" rows="5" class="loginform2" id="Tekst"></textarea></td>
                </tr>
                <tr>
                  <td> <input type="submit" name="Submit2" class="loginform2" value="Send"></td>
                </tr>
              </table></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then

set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = request.form("fra")
msg.FromName = request.form("fraNavn")
msg.AddRecipient request.form("modtagerMail")
msg.Subject = request.form("Emne")
msg.Body = request.form("Tekst")

if not msg.Send("*******") then '**** = en addr. fra din udbyder
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if

end if
%>
</body>



og her er den der virker fra gæstebogen:

' Send en email til admin
    if sendEmail = true then
      Set JMail = Server.CreateObject("JMail.SMTPMail")
      JMail.ServerAddress = "localhost"
      JMail.Sender        = "admin@dirch-passer.dk"
      JMail.Subject      = "Dirch's Gæstebog"
      JMail.AddRecipient  "admin@dirch-passer.dk"
 
      JMail.Body = "Fra : " & strNavn & vbCrLf & _
                  "Email : " & strEmail & vbCrLf & _
                  "Kommentar : " & textToGuestbook & vbCrLf & vbCrLf & _
                  "Med Venlig Hilsen " & vbCrLf & _
                  "www.dirch-passer.dk"
   
      JMail.Execute
      Set JMail = Nothing
    end if
   
    Response.Redirect("guestbook.asp")
  Else
    strError = "<p><ul><font color=#FF0000>" & strError & "</font></ul></p>"
    strMode = "add"
  End If

Nu har jeg lige prøvet følgende på min egen server, og det virker fint:

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then

set msg = Server.CreateOBject("JMail.Message")
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = request.form("fra")
msg.FromName = request.form("fraNavn")
msg.AddRecipient "admin@dirch-passer.dk"
msg.Subject = request.form("Emne")
msg.Body = request.form("Tekst")

if not msg.Send("localhost") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if
end if
%>

Du kan se den på www.goose.dk/eksperten/mail.asp men som du vil opdage så giver den en fejl ved afsendelse idet min mailserver ikke hedder "localhost".
Hvis jeg retter msg.send til den rigtige sti, i mit tilfælde "mail.goose.dk", ja så virker det fint.

Er du sikker på, at du i dit oprindelig script fra gæstebogen, ikke includerer et eller andet som angiver "localhost" og som du så ikke includerer i dit nye script ?
Jeg tror det er det der er galt.

/Goose

Prøv lige at se hvad "localhost" indeholder:

Response.write localhost
Response.end

/Kurt

Jeg kan ikke teste nu da min MySQL er nede. Jeg vender lige tilbage så snart den er oppe igen!

Så virkede den 1000 tak

10 point til dna for sin ulejlighed, og resten til Goose

:-)