Urgente ,necesito Enviar Un Email Con Copias A Dos Correos Mas NECESITO EL CODIGO COMO ENVIAR UN CORREO CON COPIAS ( A OTROS EMAIL)
TENGO ESTO QUE ME FUNCIONA PERO A SOLO UN EMAIL ,COMO PUEDO AGREGAR COPIAS ,USANDO ESTE MISMO CODIGO:
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
GRACIAS
PHER
