Hjælp til Jmail

Og her er koden:

*************************'

<!--#include file ="SpawnedHead.asp"--><center>
<% Server.ScriptTimeout = 1800 %>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("SpawnedMailer.mdb")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Nyhedsbrevet er sendt til:<br><br>" & mbcc )


strSQL = "SELECT MailingAddy, MailingID FROM MailingList"
set Res = Conn.Execute(strSQL)
while not Res.EOF
  Set Mail = Server.CreateObject ("JMail.Message")
  Mail.From = mFrom
  Mail.To = res("MailingAddy")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & "----------------------------------------------------------------------------" & vbcrlf & "Ønsker du at ændre din Email addresse kan du trykke på det her link: "  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Redigere&num=" & res("MailingID") & vbcrlf & vbcrlf & vbcrlf & "STOP med at modtage dette nyhedsbrev. Klik her:"  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Slet&num=" & res("MailingID")
  Mail.BodyFormat = 1
  Mail.Mailformat = CDOMailFormatMIME
  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = "1" then

der er mellemrum mellem mail. og to

du har skrevet mail. to i linje 24

Hvilken linie er nr 24 ?

Mail.To = res("MailingAddy")

glem det... min fejl... jeg så forkert

Tror det er forde at man skal skrive:
Mail.To res("MailingAddy")
og ikke:
Mail.From = mFrom

Ups:
Mail.To = res("MailingAddy")
Skulle der stå i den nederste

yes prøv

Nååå det er jmail så skal man ikke skrive to.
så skal du skrive det her:
Mail.AddRecipient res("MailingAddy")

Jeg prøver

Men bemærk at koden oprindeligt er CDONTS

Så er der sikkert mere der ik virker

Så gik det heldt galt

Fik den her fejl og den er lidt intesigende

Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

--------------------------------------------------------------------------------

Prøv følgende:

Åbn hjemmesiden www.net2admin.dk, og søg efter hyperlinks, der fører til de ønskede oplysninger.
Klik på knappen  Opdater, eller prøv igen senere.

Klik på  Søg for at søge efter oplysninger på Internettet.
Du kan også se en liste over relaterede websteder.




HTTP 500 - Intern serverfejl
Internet Explorer

Ja det har du nok ret i er det noget du kan hjælpe med

Giver gerne flere point - da jeg skal have det færdigt

Her er den oprindelige kode til CDONTS (som virker fint til CDONT)

Men jeg skal have lavet den om til Jmail


*****************'


<!--#include file ="SpawnedHead.asp"--><center>
<% Server.ScriptTimeout = 1800 %>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("SpawnedMailer.mdb")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Nyhedsbrevet er sendt til:<br><br>" & mbcc )


strSQL = "SELECT MailingAddy, MailingID FROM MailingList"
set Res = Conn.Execute(strSQL)
while not Res.EOF
  Set Mail = Server.CreateObject ("CDONTS.NewMail")
  Mail.From = mFrom
  Mail.To = res("MailingAddy")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & "----------------------------------------------------------------------------" & vbcrlf & "Ønsker du at ændre din Email addresse kan du trykke på det her link: "  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Redigere&num=" & res("MailingID") & vbcrlf & vbcrlf & vbcrlf & "STOP med at modtage dette nyhedsbrev. Klik her:"  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Slet&num=" & res("MailingID")
  Mail.BodyFormat = 1
  Mail.Mailformat = CDOMailFormatMIME
  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = "1" then

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br><font color='#FF0000'>Brevet er nu Arkiveret!</font><br><br>")

conn.close

end if

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

peter_t_n  & finntoft

Er det noget i kan hjælpe mig med

Nu er jeg tilbage, har lige været ude at afprøve en ny gps ;)

Tror måske dette virker:
HUSK, ændre SMTP serveren

*************************************

<!--#include file ="SpawnedHead.asp"--><center>
<% Server.ScriptTimeout = 1800 %>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("SpawnedMailer.mdb")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Nyhedsbrevet er sendt til:<br><br>" & mbcc )


strSQL = "SELECT MailingAddy, MailingID FROM MailingList"
set Res = Conn.Execute(strSQL)
while not Res.EOF
  Set Mail = Server.CreateOBject( "JMail.Message" )
  Mail.From = mFrom
  Mail.AddRecipient = res("MailingAddy")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & "----------------------------------------------------------------------------" & vbcrlf & "Ønsker du at ændre din Email addresse kan du trykke på det her link: "  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Redigere&num=" & res("MailingID") & vbcrlf & vbcrlf & vbcrlf & "STOP med at modtage dette nyhedsbrev. Klik her:"  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Slet&num=" & res("MailingID")
  'Mail.BodyFormat = 1
  'Mail.Mailformat = CDOMailFormatMIME
  Mail.Send("HER SKAL DU SKRIVE DIN SMTP SERVER")
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = "1" then

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br><font color='#FF0000'>Brevet er nu Arkiveret!</font><br><br>")

conn.close

end if

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

Her er en udemærket online manual til Jmail. Her kan du bl.a. læse at bodyformat og mailformat ikke er properties der kan bruges. Du skal nok bruge ContentType.

http://host.cdesystems.com/faq/jmail_asp_online_manual.htm

Ok nu er jeg også tilbage --- virkede den (GPS)


tester det lige

Ja den virkede fint, det er en: Garmin GPSmap 176C med vejkort som er købt extra til den

Får den her fejl

Nyhedsbrevet er sendt til:

din@email.dk, steen@net2admin.dk, ksfjljg@kfjæ, ksfjljg@kfjæ.dk, admin@net2admin.dk,
jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/mail/SpawnedMailerSend.asp, line 32

************************************


<!--#include file ="SpawnedHead.asp"--><center>
<% Server.ScriptTimeout = 1800 %>
<%
'''''
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("SpawnedMailer.mdb")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Nyhedsbrevet er sendt til:<br><br>" & mbcc )


strSQL = "SELECT MailingAddy, MailingID FROM MailingList"
set Res = Conn.Execute(strSQL)
while not Res.EOF
'  Set Mail = Server.CreateObject ("CDONTS.NewMail")
  Set Mail = Server.CreateObject ("JMail.Message")
  Mail.From = mFrom

    Mail.AddRecipient res("MailingAddy")
'  Mail.To = res("MailingAddy")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & "----------------------------------------------------------------------------" & vbcrlf & "Ønsker du at ændre din Email addresse kan du trykke på det her link: "  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Redigere&num=" & res("MailingID") & vbcrlf & vbcrlf & vbcrlf & "STOP med at modtage dette nyhedsbrev. Klik her:"  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Slet&num=" & res("MailingID")
'  Mail.BodyFormat = 1
  ' Mail.MailDomain = "websmtp.net2admin.dk"
Mail.Send("websmtp.net2admin.dk")

'  Mail.Mailformat = CDOMailFormatMIME
'  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = "1" then

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br><font color='#FF0000'>Brevet er nu Arkiveret!</font><br><br>")

conn.close

end if

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->


****************'

det er den her linje :  Mail.Send("websmtp.net2admin.dk")

Tror jeg skal bruge den her istedet :' Mail.MailDomain = "websmtp.net2admin.dk"

Jeg går næsten altid ud fra denne skabelon:

----------------------------------------------------------------------
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "mitnavn@domæne.dk"
msg.FromName = "Mit Navn"
msg.AddRecipient "Modtagers e-mail adresse"
msg.Subject = "Emne"
msg.Body = "Hele e-mailen - bla bla!"

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

Nu sender den mails

men på siden får jeg den her fejl :

Nyhedsbrevet er sendt til:

din@email.dk, steen@net2admin.dk, ksfjljg@kfjæ, ksfjljg@kfjæ.dk, admin@net2admin.dk,
jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/mail/SpawnedMailerSend.asp, line 32


Jeg bruger forøvrigt den her kode:

<!--#include file ="SpawnedHead.asp"--><center>
<% Server.ScriptTimeout = 1800 %>
<%
'''''
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("SpawnedMailer.mdb")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Nyhedsbrevet er sendt til:<br><br>" & mbcc )


strSQL = "SELECT MailingAddy, MailingID FROM MailingList"
set Res = Conn.Execute(strSQL)
while not Res.EOF
'  Set Mail = Server.CreateObject ("CDONTS.NewMail")
  Set Mail = Server.CreateObject ("JMail.Message")
  Mail.From = mFrom

    Mail.AddRecipient res("MailingAddy")
'  Mail.To = res("MailingAddy")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & "----------------------------------------------------------------------------" & vbcrlf & "Ønsker du at ændre din Email addresse kan du trykke på det her link: "  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Redigere&num=" & res("MailingID") & vbcrlf & vbcrlf & vbcrlf & "STOP med at modtage dette nyhedsbrev. Klik her:"  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Slet&num=" & res("MailingID")
'  Mail.BodyFormat = 1
'  Mail.MailDomain = "websmtp.net2admin.dk"
      Mail.Send("websmtp.net2admin.dk")

'  Mail.Mailformat = CDOMailFormatMIME
'  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = "1" then

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br><font color='#FF0000'>Brevet er nu Arkiveret!</font><br><br>")

conn.close

end if

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

Linje 32 er den her:  Mail.Send("websmtp.net2admin.dk")

Måske er det p.g.a denne email adr.: ksfjljg@kfjæ
Det er bare et gæt

Nej jeg får stadig den her fejl:

Nyhedsbrevet er sendt til:

din@email.dk, steen@net2admin.dk, ksfjljg@kfjæ.dk, ssm@minolta.dk, admin@net2admin.dk,
jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/mail/SpawnedMailerSend.asp, line 32


men den sender da mail

Nu skulle den gerne skrive fejlen noget mere detalieret:

*************************************

<!--#include file ="SpawnedHead.asp"--><center>
<% Server.ScriptTimeout = 1800 %>
<%
'''''
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("SpawnedMailer.mdb")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Nyhedsbrevet er sendt til:<br><br>" & mbcc )


strSQL = "SELECT MailingAddy, MailingID FROM MailingList"
set Res = Conn.Execute(strSQL)
while not Res.EOF
'  Set Mail = Server.CreateObject ("CDONTS.NewMail")
  Set Mail = Server.CreateObject ("JMail.Message")
  Mail.From = mFrom

    Mail.AddRecipient res("MailingAddy")
'  Mail.To = res("MailingAddy")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & "----------------------------------------------------------------------------" & vbcrlf & "Ønsker du at ændre din Email addresse kan du trykke på det her link: "  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Redigere&num=" & res("MailingID") & vbcrlf & vbcrlf & vbcrlf & "STOP med at modtage dette nyhedsbrev. Klik her:"  & vbcrlf & "http://pcssm/mail/MailEdit.asp?Action=Slet&num=" & res("MailingID")
'  Mail.BodyFormat = 1
'  Mail.MailDomain = "websmtp.net2admin.dk"

if not mail.Send("websmtp.net2admin.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write mail.log
end if


'  Mail.Mailformat = CDOMailFormatMIME
'  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = "1" then

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br><font color='#FF0000'>Brevet er nu Arkiveret!</font><br><br>")

conn.close

end if

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

her er så fejlen:

Nyhedsbrevet er sendt til:

din@email.dk, steen@net2admin.dk, ksfjljg@kfjæ.dk, ssm@minolta.dk, mmmm191@hotmail.com, admin@net2admin.dk,
jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/mail/SpawnedMailerSend.asp, line 33


Har lige fundet ud af at den kun sender mailen til steen@net2admin.dk

Nå det fik vi ikke meget mere ud af :/
Måske det kan være denne email adr. der stopper det hele: ksfjljg@kfjæ.dk

det var sku de mærkelige email der stoppede det

kan du hjælpe mig med en validator

<%

Dim eAddy
eAddy = Request.Form("eaddy")
response.write( eAddy )

if eAddy = "" then
response.write("<center><font color='#FF0000'>Du har ikke udfyld din email addresse.</font></center>")

else



If InStr(1,eAddy,"@",vbTextCompare) = 0 then

response.write(" <center><font color='#FF0000'>er ikke en lovlig Email addresse.</font></center>")

else

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

set rsMail = Server.CreateObject("ADODB.recordset")
rsMail.Open "SELECT * FROM MailingList WHERE MailingAddy='" & eAddy & "'", conn

    If not rsMail.EOF Then
        If rsMail("MailingAddy") = eAddy Then

            response.write("  <center><font color='#FF0000'>er allerede tilmeldt nyhedsbrevet.</font></center>")

        End if

    Else


            mailSQL = "INSERT into MailingList (MailingAddy) VALUES ('" & eAddy & "');"
            conn.Execute mailSQL
            response.write(" er tilføjet nyhedsbrevet!")
    End if


rsMail.close
conn.close
end if
end if
%>


****************

som du kan se tjekker jeg for @  og for tom

hvordan tjekker jeg for manglende .dk .com .osv

og for æøå

du er god - tak

Takker for points ;)
Skal lige se om jeg kan hjælpe dig, med en validator.

Måske denne her kan bruges: http://www.eksperten.dk/spm/21289