Hi all,

The code below is getting this message at .SEND statment:

OLE IDispatch exception code 0 from ?: The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available..

What should I do to deal with this ?

loMsg = CREATEOBJECT( 'CDO.Message' )
With loMsg
    .FROM        = "John Jones, Jr. <psystems@terra.com.br>"
    .TO          = 'neumacastro@terra.com.br'
    .CC          = 'neumacastro@terra.com.br'
    .Subject     = 'Testes com o VFP 6.0!'
    .keywords    = "nissi"
    .Sender      = "psystems@terra.com.br"
    .DSNoptions  = 1
    cFile  = "C:\Nissi\WebService\produtos.htm"
    If  FILE( cFile )
        .CreateMHTMLBody( 'file:'+ cFile ) 
    Endif
    .HTMLBody    = '<br>message title<br>';
                 + 'message title line 2<br>' +  .HTMLBody

    lnretval = .SEND()
Endwith

TIA

Claudio