<% Set JMail = Server.CreateObject("JMail.message") ' upisite Vas SMTP server, npr mail.domena.hr smtpServer = "mail.taekwondo.hr" ' Ime posiljatelja koje obavezno mora biti otvoreno pod emailovima i lozinka JMail.From = "prijava@taekwondo.hr" JMail.MailServerUserName = "mail@taekwondo.hr" JMail.MailServerPassword = "e9cgqfw" JMail.Subject = "Prijava za Natjecanje" ' upisi email adresu primatelja ... JMail.AddRecipient "taekwondo@zss.t-com.hr" JMail.Body = "Prijava za natjecanje" ' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") Dim el 'add every form element and its value to the email FOR EACH el IN Request.Form JMail.appendtext( el & ": " & Request.form(el) & vbcrlf ) NEXT ' Send it... If JMail.Send(smtpServer) <> True Then Response.Write( email.Log ) JMail.Close() Set JMail = Nothing %>
Vaša zahtjev je uspješno poslan.
Pristupni podaci biti ce Vam poslani na Vaš mail: (<%=request.form("email")%>).