Hjælp Jmail !!!!!!!!!!!!!!!!!!!!!!!!!

Her er koden

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 eCDO
Set eCDO = Server.CreateObject(\"CDONTS.NewMail\")

eCDO.To = zEmail
eCDO.From = mFrom
eCDO.bcc = mTo
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send

Set eCDO = Nothing

if mArchive = \"1\" then

set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"Mail.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\'>Tilbage</a><center>\")

Bruger selv denne måde (Jmail):


Set msg = Server.CreateObject(\"JMail.Message\")
msg.Logging = True
msg.Silent = True

msg.From = \"navn@domæne.dk\"
msg.FromName = \"Dit navn\"
msg.AddRecipient rs(\"Mail\")
msg.Subject = subj
msg.Body = tekst
msg.Body = hilsen & \" \" & rs(\"Navn\") & VbCrLf & VbCrLf & msg.Body & VbCrLF & VbCrLf & VbCrLf &\"----------------------------------------\" & VbCrLf & strSlut & VbCrLf & VbCrLf & strNoRes

Det fungerer fint og ser ganske fornuftigt ud når man modtager mailen!

Kan du hjælpe med at flette den ind i min kode

Det vil komme til at se sådan her ud:

Set eCDO = Server.CreateObject(\"JMail.Message\")
eCDO.Logging = True
eCDO.Silent = True

eCDO.From = mFrom
eCDO.AddRecipient = mTo
eCDO.Subject = mSubject
eCDO.Body = mBody

If not eCDO.Send(\"IP eller mail-server-name\") Then
  Response.Write \"<pre>\" & msg.log & \"</pre>\"
Else
  Response.Write(\"Beskeden er sendt til<br><br>\"&mbcc&\"\")
End if

Set JMail = Nothing

Det sidste er for at tjekke om beskeden er blevet sendt eller ej!

Du skal stadig dimensionere dine variable! ;0)

Har bare tilpasset selve scriptet der sende beskeden!

Hej webbe

Jeg får følgende fejl

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6)
Objektet understøtter ikke denne egenskab eller metode: \'AddRecipient\'
/test/sendMail.asp, line 17

Prøv at erstatte

eCDO.AddRecipient = mTo

med

eCDO.AddRecipient mTo

Altså drop lighedstegnet!

Perfekt

Mange tak for hjælpen

Var så lidt!