Hjælp til Jmail
Jeg har et lille problem til en E-shop. Jeg har brugt ebberups løsning til en e-shop, og da jeg ikke er den store programmør vil jeg gerne have lidt hjælp.Det er min Jmail jeg ikke kan få til at virke. Jeg ved ikke hvor meget at koden i skal bruge og derfor vil jeg gerne lige have en udmelding. Min selv Jmail kode ser sådan her ud:
End Sub
'*******************************************************************
' I¥m gona mail this bugger to the admin i JMail format
' 6/2 - 2001 by cd@vestdata.dk
'*******************************************************************
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 = "nye.jeg.dk"
objMail.Sender = "postmaster@nye-jeg.dk"
objMail.ReplyTo = "postmaster@nye-jeg.dk"
objMail.Sendername = "Herbalife bestilling"
objMail.subject = "Bestilling"
' ## MODTAGER P? EMALEN
objMail.AddRecipient("Your@email.com")
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>"
Else
Response.Write "<b>Din ordre blev ikke sendt, prøv venligst igen.</b>"
End If
ShowItemsInCart
-------------------------- END --------------------------
Den skal kører over en server som Wannafind har og deres løsnings forlsag ser sådan her ud:
----------------------------------------------------------------------
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "hans@hansen.dk"
msg.FromName = "Hans Hansen"
msg.AddRecipient "jens@jensen.dk"
msg.Subject = "MailForm"
msg.Body = "Beskeden... dvs. hele mailen"
if not msg.Send("mail.domæne.dk") then
Response.write msg.log
else
Response.Redirect("home.asp")
end if
----------------------------------------------------------------------
Håber i kan hjælpe....
---- Staz ----
