aspmail
Estoy intentado mandar un formulario via mail desde asp el código no me da ningún fallo, pero no me llega ningun mail este es mi código lo podeis mirar?
Gracias
<%@language=jscript%>
<%
papa=Request.form('caca')
papa2=Request.form('culo')
papa3=Request.form('pis')
Mail = Server.CreateObject ("Persits.MailSender")
Mail.Host = "http://mail.dinamicwebsites.com"
Mail.From = Mail.EncodeHeader(papa2)
Mail.FromName = Mail.EncodeHeader(papa)
Mail.AddAddress ("[email protected]")
Mail.Subject = "Desde pagina"
Mail.Body = papa3
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.SendMail
Mail.Reset()
%>
Gracias
<%@language=jscript%>
<%
papa=Request.form('caca')
papa2=Request.form('culo')
papa3=Request.form('pis')
Mail = Server.CreateObject ("Persits.MailSender")
Mail.Host = "http://mail.dinamicwebsites.com"
Mail.From = Mail.EncodeHeader(papa2)
Mail.FromName = Mail.EncodeHeader(papa)
Mail.AddAddress ("[email protected]")
Mail.Subject = "Desde pagina"
Mail.Body = papa3
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.SendMail
Mail.Reset()
%>
<%
Dim strEmail, strName, strComments, Mail
strEmail = request.form("Email")
strName = request.form("Name")
strComments = request.form("Comments")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "Mail.YOURDOMAINNAME.com"
Mail.From = strEmail
Mail.AddAddress "YOUR EMAIL ADDRESS HERE"
Mail.Subject = "YOUR SUBJECT HERE"
Mail.Body = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf & "Comments: " & vbCrLf & strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN Response.Write "Sorry, there was an error and your email was not sent." & Err.Description
END IF
%>
Este código es que yo utilizo ...
ojala te sirva
Dim strEmail, strName, strComments, Mail
strEmail = request.form("Email")
strName = request.form("Name")
strComments = request.form("Comments")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "Mail.YOURDOMAINNAME.com"
Mail.From = strEmail
Mail.AddAddress "YOUR EMAIL ADDRESS HERE"
Mail.Subject = "YOUR SUBJECT HERE"
Mail.Body = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf & "Comments: " & vbCrLf & strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN Response.Write "Sorry, there was an error and your email was not sent." & Err.Description
END IF
%>
Este código es que yo utilizo ...
ojala te sirva
