JMail - Formular giver fejl - Noget med loops...
Hejsa...Nedenstående mail melder fejl... Formularen skulle gerne sende til min mail samt en kopi til den, som sender mailen...
Den melder følgende fejl...
This is the mail system at host smtp1.zitcom.dk.
I'm sorry to have to inform you that your message could not be delivered to one or more recipients. It's attached below.
For further assistance, please send mail to postmaster.
If you do so, please include this problem report. You can delete your own text from the attached returned message.
The mail system
<mydomain.dk@smtp1.zitcom.dk> (expanded from <mydomain.dk>): mail for
smtp1.zitcom.dk loops back to myself
' -> DENNE MAILKOMPONENT ER 'JMail'.
' -> DETTE ER VARIABLERNE FRA FORMULARFELTERNE.
Dim strOrderForm_Name
Dim strOrderForm_Email
Dim strRecipient_Name
Dim strRecipient_Email
strOrderForm_Name = Request.Form("OrderForm_Name")
strOrderForm_Email = Request.Form("OrderForm_Email")
strRecipient_Name = "mydomain.dk"
strRecipient_Email = "info@mydomain.dk"
' -> DETTE ÅBNER ET MAILSERVEROBJEKT.
Set JMail = Server.CreateObject("JMail.SMTPMail")
' -> DETTE ER MAILSERVEREN, DER VIL SENDE E-MAIL'EN.
JMail.ServerAddress = "smtp.unoeuro.com"
' -> DETTE ER AFSENDERENS NAVN FRA FORMULARFELTET.
JMail.SenderName = strOrderForm_Name
' -> DETTE ER AFSENDERENS E-MAIL ADRESSE FRA FORMULARFELTET.
JMail.Sender = strOrderForm_Email
' -> DETTE ER AFSENDERENS SVAR E-MAIL ADRESSE FRA FORMULARFELTET.
JMail.ReplyTo = strOrderForm_Email
' -> DETTE ER MODTAGERENS NAVN OG E-MAIL ADRESSE ("NAVN", "E-MAIL ADRESSE").
JMail.AddRecipientEx strRecipient_Name, strRecipient_Email
' -> DETTE ER MODTAGERENS NAVN OG E-MAIL ADRESSE ("NAVN", "E-MAIL ADRESSE").
' -> BEMÆRK: DETTE SENDER EN KOPI AF ORDREN TIL AFSENDEREN FRA FORMULAREN.
JMail.AddRecipientEx strOrderForm_Name, strOrderForm_Email
' -> DETTE ER EMNET PÅ E-MAIL'EN.
JMail.Subject = "mydomain.dk - Ordre"
' -> DETTE ANGIVER PRIORITETEN: 1 = HØJ, 3 = NORMAL, 5 = LAV.
JMail.Priority = 3
' -> DETTE ANGIVER INDHOLDETS TYPE.
JMail.ContentType = "text/plain"
' -> TEGNSÆT
JMail.Charset = "ISO-8859-1"
' -> DETTE ER INDHOLDET AF E-MAIL'EN. STANDARDTEKST ER KOMBINERET MED FORMULARVARIABLER.
JMail.Body = OrderMailText
JMail.Execute
Set JMail = Nothing
' ---------> HER SLUTTER MAILKOMPONENTEN.