error al enviar correo desde windows 7

marcelo lopez

unread,

Oct 14, 2013, 10:41:26 AM10/14/13

to publicesvfoxpro

hola:
tengo este codigo para madar e mails desde fox :
Local lcShema As String
lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
IF (!("@"$(ALLTRIM(THISFORM.TEXT2.VALUE))) OR !("."$(ALLTRIM(THISFORM.TEXT2.VALUE))) )
    MESSAGEBOX("DIRECCION DE MAIL INVALIDA")
    RETURN
ENDIF
loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.FIELDS
    .ITEM(lcSchema + "smtpserver") = ALLTRIM(parametros.serv_mail)
    .ITEM(lcSchema + "smtpserverport") = VAL(parametros.puerto)
    .ITEM(lcSchema + "sendusing") = 2
    .ITEM(lcSchema + "smtpauthenticate") = .T.
    .ITEM(lcSchema + "smtpusessl") = .T.
    .ITEM(lcSchema + "sendusername") = ALLTRIM(parametros.username)
    .ITEM(lcSchema + "sendpassword") = ALLTRIM(parametros.pwd)
    .UPDATE
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loCfg
.From = ALLTRIM(parametros.username)
.To = ALLTRIM(THISFORM.TEXT2.VALUE)
.Subject = ALLTRIM(THISFORM.TEXT3.VALUE)
.TextBody = THISFORM.EDIT1.Value
IF (thisform.check1.Value==1) && es un check para mandar adjuntos
   IF (!EMPTY(THISFORM.TEXT4.VALUE))
    .AddAttachment(ALLTRIM(THISFORM.TEXT4.VALUE))
   endif
   IF (!EMPTY(THISFORM.TEXT5.VALUE))
    .AddAttachment(ALLTRIM(THISFORM.TEXT5.VALUE))
   endif
endif
.Send()
ENDWITH
MESSAGEBOX("mensaje enviado")
thisform.Release

*-------------------------------------
al ejecutarse el metodo send() me sale este mensaje :
OLE IDispatch exception code 0 from ?: No se pudo enviar el mensaje al servidor SMTP. El código de error de transporte fue 0x80040217. La respuesta del servidor fue not available
este codigo me funcionaba bien en windows xp . ahora lo estoy probando en windows 7 home , usando windows live mail . será algun tema de configuracion de la cuenta ? gracias