Urgente Ayuda Con Enviar Un Email

[PHER]

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

[trasgukabi]

Prueba con

Código:

Mailer.AddRecipient "" & Responsable & "", "" & Correo_sgdp & ""
'SIN LOS ESPACIOS

si ésto no funciona prueba con mi primera intuición:
¿Has comprobado que la variable Responsable no es NULL?

P.D. para los administreitors:
A ver cuando ponemos un emoticon que signifique :adivinando:

[Ascariz]

Si no va con eso, prueba con esto y nos cuenta

Mailer.AddRecipient "" & Responsable & ";"& Correo_sgdp & ""
'SIN LOS ESPACIOS