Envio con Copia ASPMail
Publicado por Oscar Medina (18 intervenciones) el 26/11/2002 20:14:53
Tengo un pequeño problema, quiero enviar un correo dirigido a una persona con PARA y funciona, pero cuando quiero agregarle CC con copia, no funciona, el código quetengo es este:
' change to address of your own SMTP server
strHost = "999.999.999.999"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "" ' From address
Mail.FromName = "Oscar Medina"
Mail.AddAddress "[email protected]"
'Aqui es el problema
Mail.AddCC "Oscar", "[email protected]"
' message subject
Mail.Subject = "Solicitud de Servicios Medicos"
' message body
solicitud = " Solicitud de Servicios Medicos "
Mail.Body = solicitud
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
sError = "1"
Else
sError = "0"
End If
esta funcion me regresa un 6 de error, lo cual no se donde buscar para averiguar que significa, les agradeceria bastante si me pudieran ayudar
de antemano, gracias
' change to address of your own SMTP server
strHost = "999.999.999.999"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "" ' From address
Mail.FromName = "Oscar Medina"
Mail.AddAddress "[email protected]"
'Aqui es el problema
Mail.AddCC "Oscar", "[email protected]"
' message subject
Mail.Subject = "Solicitud de Servicios Medicos"
' message body
solicitud = " Solicitud de Servicios Medicos "
Mail.Body = solicitud
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
sError = "1"
Else
sError = "0"
End If
esta funcion me regresa un 6 de error, lo cual no se donde buscar para averiguar que significa, les agradeceria bastante si me pudieran ayudar
de antemano, gracias
Valora esta pregunta


0