FiveTech Support Forums

Saludos.

Al estimado maestro Manuel Mercado.

En una actualizacion de la version de sbrowse 6.0 a sbrowse 9.0 y usando el CDOSYS para el envio de mails me marca el error UNRECOVERABLE ERRO 9015 "symbol item expectad from hb_vmDo()", si la aplicacion la compilo con sbrowse 6.0 no marca el error, pero si uso la sbrowse 9.0 si lo hace, exactamente eln la linea:

// --- Enviar un mail
Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )

...
...
...

Try
oCfg := CreateObject( "CDO.Configuration" )

  With Object oCfg:Fields
     :Item( cdoSMTPServer ):Value     := Trim( cMailServer )
     :Item( cdoSMTPServerPort ):Value := nPort
     :Item( cdoSendUsing ):Value      := nSendOpt

     If lAuth
        :Item( cdoSMTPAuthenticate ):Value := 1
        :Item( cdoSendUserName ):Value     := Trim( cUser )
        :Item( cdoSendPassword ):Value     := Trim( cPass )
        :Item( cdoSMTPUseSSL ):Value := 1
     EndIf

     :Update()
  End With

  oMsg := CreateObject( "CDO.Message" )

  With Object oMsg
     :Configuration := oCfg /////////////// aqui manda el mensaje de error

     :From          := Trim( cFrom )
     :To            := Trim( cTo )
     :Subject       := Trim( cSubject )
     :TextBody      := Trim( cBody )

     For nEle := 1 To Len( aAttach )
        :AddAttachment := AllTrim( aAttach[ nEle ] )
     Next

     If ! Empty( cBCC )
        :BCC := Trim( cBCC )
     EndIf

     :Send()
  End With

ELGUNA SOLUCION PARA ESTE CASO?

gracias.

fwh 8.11, xH 1.1, bcc 5.5