TENGO EL SGTE CODIGO Y NO ME FUNCIONA ,NECESITO ENVIAR UN CORREO AL MISMO EMAIL FromAddress
Gracias
pher
Correo_sgdp="
[email protected]"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "152.139.3.81"
Mailer.FromName = "Incidentes de Producción"
Mailer.FromAddress = "
[email protected]"
Mailer.Subject = "Ficha de registro de Incidentes y su seguimiento"
Mailer.ContentType = "text/html"
Mailer.BodyText = Dato
Mailer.AddRecipient " " & Responsable & " ", " " & Correo_sgdp & " "
response.write ("<tr><TD ALIGN=CENTER><font color=#FF0000 face=Arial size=4><b>")
if not Mailer.SendMail then
Response.Write "El Envio a Fallado, Error: "
Response.Write Mailer.Response
else
Response.Write "Correo Enviado a su respectivo responsable satisfactoriamente"
end if