| Usuario |
problema con cdonts urgente!!! |
Desconocido
|
| Enviado - 29/11/2004 |
| |
Buenos dias.
Resulta que estoy creando u job en sql de tipo activeX en lenguaje VBScript para enviar automaticamanete un mail.
Este es el codigo:
function mail_revision_campanas ()
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "[email protected]"
MyMail.To = "[email protected]"
MyMail.Subject = "Recordatorio Campañas"
body = "Buenos días Administrador!" & vbCrLf & vbCrLf & _
"Le informamos que ha pasado una semana desde este último aviso." & _
vbCrLf & "Debe recordar a toda el área comercial la revisión de las campañas pendientes." & _
vbCrLf & vbCrLf & "Esperamos que pase un buen día."
MyMail.Body = body
MyMail.Send
Set MyMail = Nothing
control = 1
end function
Lo que pasa es que se ejcuta exitosamente, pero no llega el mail. Ya revise y el servidor efectivamente, tiene la libreria cdonts.dll en c:\winnt\system32 y tambien la tiene en c:\winnt\servicepack\i386, pero no entinedo que pasa.
En otro job tengo el siguiente codigo y me sale: Object required: 'Server'
Dim cons_firma_contrato_numRows
Set conexion = CreateObject("ADODB.Connection")
conexion.Open"DRIVER={SQL Server};SERVER=172.27.30.167;UID=easy;PWD=LnaSGT28;DATABASE=bdc"
set cons_firma_contrato = CreateObject("ADODB.RecordSet")
cons_firma_contrato.open"SELECT nombre_com, nombre_campana, firmado FROM dbo.GetInfoContratos",conexion
cons_firma_contrato_numRows = 0
While (Not cons_firma_contrato.BOF) AND (Not cons_firma_contrato.EOF)
If (cons_firma_contrato.Fields.Item("firmado").Value = 0) Then
Call mail_firma_contrato (cons_firma_contrato.Fields.Item("nombre_com").Value, cons_firma_contrato.Fields.Item("nombre_campana").Value)
End If
cons_firma_contrato.MoveNext()
Wend
function mail_firma_contrato (nombre_com, nombre_campana)
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "[email protected]"
MyMail.To = "[email protected]"
MyMail.Subject = "Recordatorio Firma Contrato"
body = "Buenos días Administrador!" & vbCrLf & vbCrLf & _
"Le recordamos que el contrato de la campaña: " & nombre_campana & _
vbCrLf & "Del cliente: " & nombre_com & vbCrLf & _
vbCrLf & vbCrLf & "Aún no ha sido firmado. Recuerde que esto es de suprema importancia."
MyMail.Body = body
MyMail.Send
Set MyMail = Nothing
control = 1
end function
conexion.Close
Set conexion = Nothing
Set cons_firma_contrato = Nothing
Por favor ya no se que hacer ni que revisar...si alguine sabe algo, le agradeceria inmensamente que me colaborara.
Muchas gracias.
Alicia |
| |
|
|
|
