Lav CDNOTS om tilJMAIL

set oMail = Server.CreateObject(\"JMail.Message\")
oMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
oMail.ServerAddress = \"[din smtp]\"
oMail.AddRecipient zEmail   
oMail.FromName = \"Ditt navn\"
oMail.From = mFrom
oMail.Subject = mSubject
oMail.Body = mBody
oMail.Execute
set oMail = nothing

se ellers et lite eksempel her:

http://www.azero.dk/?/support/asp/jmail

/nute

kan du ikke skrive det hele. altså putte det ind i filen

er ikke ekspert til asp

<%


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(\"The email has been sent to:<br><br>\" & mbcc )

Dim oMail
set oMail = Server.CreateObject(\"JMail.Message\")
oMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
oMail.ServerAddress = \"[din smtp]\"
oMail.AddRecipient zEmail   
oMail.FromName = \"Ditt navn\"
oMail.From = mFrom
oMail.Subject = mSubject
oMail.Body = mBody
oMail.Execute
set oMail = nothing


Set eCDO = Nothing

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>Archived Successfully!<br><br>\")

conn.close

end if

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

%>

...eller hvad med at tjekke dokumentationen på JMail?

Der er et glimrende eksempel på denne URL:

http://tech.dimac.net/isapiscript.dll?action=read&id=32559&exId=32570

/SørenS.

Nute jeg får denne fejl:

The email has been sent to:

mort2131@hotmail.com
Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'ServerAddress\'

/mail/SpawnedMailerSend.asp, line 17

og min fil ser sådan her ud:

<%


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(\"The email has been sent to:<br><br>\" & mbcc )

Dim oMail
set oMail = Server.CreateObject(\"JMail.Message\")
oMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
oMail.ServerAddress = \"smtp.mail.dk\"
oMail.AddRecipient zEmail   
oMail.FromName = \"Urgh.dk\'s Nyhedsbrev\"
oMail.From = mFrom
oMail.Subject = mSubject
oMail.Body = mBody
oMail.Execute
set oMail = nothing


Set eCDO = Nothing

if mArchive = \"1\" then

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

ArchiveSQL = \"INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES (\'\" & mSubject & \"\',\'\" & mBody & \"\');\"
conn.Execute ArchiveSQL
response.write(\"<br><br><br>Archived Successfully!<br><br>\")

conn.close

end if

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

%>

Det er et Nyhedsbrev jeg skal bruge til en ven.

fjern den linje hvor det står:

oMail.ServerAddress = \"smtp.mail.dk\"

og bytt ut denne linje:

oMail.Execute

med denne:

msg.Send(\"mail.myDomain.net\" )

/nute

nu får jeg denne fejl

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/mail/SpawnedMailerSend.asp, line 22

hov...bytt ut:

msg.Send(\"mail.myDomain.net\" )

med

oMail.Send(\"smtp.mail.dk\")

/nute

Intet virker tager pointne selv