Hjælp til jmail/smpt mailopsætning
hvad skal jeg tilføje eller ændre i dette script, for at det også sender en mail til en kunde ????Private sub SendMailToAdmin()
on error resume next
strMailBody = strMailBody & "<html><body bgcolor='#FFFFED'>"
strMailBody = strMailBody & "<h2><font color='#999999'>eshop bestilling</font></h2>"
strMailBody = strMailBody & "<p><font color='#999999'><pre>"
strMailBody = strMailBody & " <b>Navn:</b> " & Request.Form ("fldName") & "<br>"
strMailBody = strMailBody & " <b>Evt. firmanavn:</b> " & Request.Form ("fldCompanyName") & chr(10)
strMailBody = strMailBody & " <b>E-mail Adresse:</b> " & Request.Form ("fldEmail") & chr(10)
strMailBody = strMailBody & " <b>Adresse:</b> " & Request.Form ("fldURL") & chr(10)
strMailBody = strMailBody & " <b>Postnr./By:</b> " & Request.Form ("fldAreaCode") & " " & Request.Form ("fldPhone") & chr(10)
strMailBody = strMailBody & " <b>Tlf.:</b> " & Request.Form ("fldFax") & chr(10)
strMailBody = strMailBody & Request.Form ("bestillingForm")'ShowItemsInCart
strMailBody = strMailBody & "</pre>" & chr(10)
strMailBody = strMailBody & "</font></p>"
strMailBody = strMailBody & "</body></html>"
Set objMail = server.CreateObject("JMail.SMTPMail")
objMail.ContentType = "text/html"
' ## MAILPROG OPSÆTNING
objMail.ServerAddress = "mail.netskuffen.dk"
objMail.Sender = "webmaster@netskuffen.dk"
objMail.ReplyTo = "Webmaster@netskuffen.dk"
objMail.Sendername = "E-shoppen"
objMail.subject = "Your subject"
' ## MODTAGER PÅ EMALEN
objMail.AddRecipient("kenneth@netskuffen.dk")
objMail.body = strMailBody
objMail.Priority = 1
' ## SENDER
objMail.Execute
Set objMail = nothing
If err.Number < 0 Then
Response.Write "<b>Bestilling blev ikke sendt</b>"