No se encuentra la definición de la clase CSFOXYSMTP

[Juan Miguel Solis]

Buenos días

A ver si podéis ayudarme, tengo un programa que envía automáticamente unos email, de la siguiente forma.

=ENVMAIL_SMTP_CUOTAS( cEnviaFile, cEnviarA, cMasCorreos, cMail2, cMail3, "Envio de Factura CUOTA " + ALLTRIM(FILELIST.MES) + ". Se adjuntan la factura PDF's correspondiente.")

Le cambiaron el ordenador hace unos días y ahora cuando se lanza esa función par ver si podéis ayudarme, tengo un programa que envía automáticamente unos email, de la siguiente:

Todo lo demás del programa funciona correctamente, que puede pasar ??

Un saludo

[Juan Miguel Solis]

AHH, uso esto:

Procedure ENVMAIL_SMTP_CUOTAS
LPARAMETERS Informe, EmailDestinatario, MasCorreos, Mail2, Mail3, Titulo

oSmtp = CreateObject("CsFoxySmtp")
oSmtp.clean = .T.

*EmailRemitente = 'alicia...@empresariosdealcobendas.com'
*Contrasena = 'xxxxxxxx'

lEnviado = .F.
cPdfFile = ALLTRIM(Informe)

EmailRemitente = ALLTRIM( SMTPFILE.SMTP_RMTE )
Contrasena = ALLTRIM( SMTPFILE.SMTP_PASS )

oSmtp.server = ALLTRIM(SMTPFILE.SMTPSERVER)   && "smtp.office365.com"
oSmtp.port = SMTPFILE.SMTP_PORT  &&  587
oSmtp.ssl = SMTPFILE.SMTP_SSL  &&  .T.
oSmtp.user = EmailRemitente
oSmtp.password = Contrasena

oSmtp.from = EmailRemitente
oSmtp.subjet = Titulo
oSmtp.body = cMensaje_Html  &&  ("file://C:\TEMP\CUOTAS.HTM")
oSmtp.EmbedImage("C:/TEMP/img_mail.jpg","imagen1")
oSmtp.priority = 2

oSmtp.Addto('&EmailDestinatario')
IF !EMPTY( Mail2)
oSmtp.AddTo('&Mail2')
Endif
IF !EMPTY( Mail3)
oSmtp.AddTo('&Mail3')
Endif

oSmtp.AddAttachments( "&cPdfFile" )
oSmtp.notification = SMTPFILE.SMTP_SSL

IF oSmtp.Smtp = .T.
Wait Window 'El e-mail con destinatario : ' + ALLTRIM(EmailDestinatario) + ', de título: "' + AllTrim(Titulo) + '" con PDF : ' + ALLTRIM(Informe) + ', se envió correctamente.' TIMEOUT 2
lEnviado = .T.
ELSE
MessageBox("No pudo enviarse el e-mail al destinatario " + ALLTRIM(EmailDestinatario) + Chr(13) + Chr(10) + "Error: " + oSmtp.Error, 0+48, "Error")
lEnviado = .F.
Endif

*oSmtp.ClearTo()
*oSmtp.ClearAttachments()

Return

ENDPROC

[Sergio Rojas]

Supongo que te falta registrar la librería:

32 Bits
C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe CsFoxySmtp.dll /register /codebase /tlb

64 Bits
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe CsFoxySmtp64.dll /register /codebase /tlb

Las rutas las tendrías que resolver según tu caso.

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/2c6db1c0-6cf7-479f-9347-f73cff3d6effn%40googlegroups.com.

[Juan Miguel Solis]

Efectivamente era eso, pensaba que ya lo habían realizado,

Muchas gracias 

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/nlGFXjQLFc4/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/bf411692-d7ef-46c8-8f76-d767ba80964b%40gmail.com.