Tema: Ayuda emails
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/03/2002, 13:46
MAVB22
 
Fecha de Ingreso: enero-2002
Mensajes: 26
Antigüedad: 22 años, 3 meses
Puntos: 0
Ayuda emails

Hola a todo el foro. Soy nuevo en php y me gustaría saber como puedo poner esto que es asp en php. Muchas gracias por adelantado.

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "envio"
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "midominio.com"
Mailer.AddRecipient "Yo", "[email protected]"
Mailer.Subject = "Nuevo envio"
strMsgHeader = "Principio envio" & vbCrLf
for each qryItem in Request.Form
strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(qryItem) & vbCrLf
next
strMsgFooter = vbCrLf & "Fin del envio"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
if Mailer.SendMail then
Response.Write ""
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>