Autosvar

Tja!

Jag har en sån där Jmail som jag skulle vilja skickade ett svar till alla som använder den.

Alltså nåt i stil med:

"Tack för ditt brev. Det har nu kommit fram till Gustav"

Så här ser det ut för tillfället:

<%
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
if not instr(request.form( "Email" ),"@") >0 then
msg.From = "ingenmail@ifylld.se"
else
msg.From = request.form( "Email" )
end if
msg.FromName = Request.Form( "Namn" )

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "ekesand@mariterm.se", "Birgitta Ekesand"

' The subject of the message
msg.Subject = Request.Form( "Subject" )

arrList=split(request.form("fieldlist"),",")
for each strField in arrList
msg.appendtext(strField & ": " & Request.form(strField)& vbcrlf )

next

' Now send the message, using the indicated mailserver
if not msg.Send("mail.mariterm.se" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Ditt mail har skickats!"
end if

' And we're done! the message has been sent.

och vad är felet ;)

Om du menade att det även ska skickas ut ett mail till den som har fyllt i formuläret kan du lägga till något sådant här också. :)

set tack = Server.CreateOBject ( "JMail.Message" )

tack.From = "gustavs@mail.nu"
tack.FromName = "Gustav"
tack.AddRecipient Request.form ("Email")
tack.Subject = "Ditt mail har skickats till Gustav"
tack.body = "Tack för ditt brev. Det har nu kommit fram till Gustav"

tack.Logging = true

if not tack.Send ("din.smtp.server" ) then
Response.write "<pre>" & tack.log & "</pre>"
else
set tack = nothing
end if