SEND MAIL y Harbour

[colthop]

Hola a todos:

Estoy terminado la conversión de un programa de xHarbour a Harbour y en una opción envío un archivo por email de la siguiente manera:

Code: Select all | Expand

  loCfg := CREATEOBJECT( "CDO.Configuration" )
  WITH OBJECT loCfg:Fields
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := xmailserv
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := xmailpuer
  :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .T.
  :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := xemail
  :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := xmailcont
  :Update()
  END WITH
  loMsg := CREATEOBJECT ( "CDO.Message" )
  WITH OBJECT loMsg
  :Configuration = loCfg
  :From          = alltrim(envimail->dSend)
  :To            = alltrim(envimail->dTocl)
  :Subject       = alltrim(envimail->cSubject)
  :TextBody      = alltrim(envimail->cText)
  :AddAttachment = alltrim(envimail->cFile)
  :Send()
  END WITH

Y con xHarbour me funciona pero con Harbour me da el siguiente error:

Code: Select all | Expand

Application
===========
   Path and name: C:\ColtHop\FyVWin\fyvwin.exe (32 bits)
   Size: 6,599,168 bytes
   Compiler version: Harbour 3.2.0dev (r1406271520)
   FiveWin  Version: FWH 13.11
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 13 secs 
   Error occurred at: 21/07/2014, 13:24:32
   Error description: (DOS Error -2147352573) WINOLE/1006  Error de argumento: _ADDATTACHMENT
   Args:
     [   1] = C   c:\colthop\fyvwin\calos.pdf

Stack Calls
===========
   Called from:  => TOLEAUTO:_ADDATTACHMENT( 0 )
   Called from: gestimpr.prg => ENVCORREO2( 7104 )
   Called from: gestimpr.prg => (b)ENVCORREO1( 7061 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 163 )
   Called from: control.prg => TBUTTON:HANDLEEVENT( 1695 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 389 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 892 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1003 )
   Called from: fyvwin.prg => MAIN( 366 )

Me podríais ayudar, Gracias.

Un saludo

Carlos

[joseluispalma]

Carlos,

Prueba así:

WITH OBJECT loMsg
:Configuration = loCfg
:From = cRemitente
:To = cDestino
:Subject = AnsiToOem( cAsunto )
:TextBody = AnsiToOem( cMensaje )
:AddAttachment( cFichero )
:Send()
END WITH

[colthop]

Hola José Luis.

Gracias así funciona perfectamente.

Un saludo

Carlos