Utilizando la funcion sendmail:
- Code: Select all Expand view
oMail:SendMail( ;
"micorreo@micorreo.com", ; // de
{ csender }, ; // para (arreglo)
( mensaje ),; // Mensaje
(asunto),; // Asunto
{ fichero }, ; // Arreglo de nombres de archivos a agregar
{ }, ; // aCC
{ }, ; // aBCC
lReceipt, ; // acuse de recibo
cMsg ) // mensaje en HTML
Si csender corresponde a una sola direccion de envío, funciona
Sin embargo si csender corresponde a un array con multiples direcciones de correo, no funciona, y me da el siguiene error:
Application
===========
Path and name: C:\fuentes\xharbour\GESPAQ08\gespaqn.Exe (32 bits)
Size: 1,018,880 bytes
Time from start: 0 hours 0 mins 20 secs
Error occurred at: 11/09/08, 12:24:25
Error description: Error BASE/1108 Argument error: AT
Args:
[ 1] = C <
[ 2] = A { ... }
Stack Calls
===========
Called from: => AT(0)
Called from: => CLEANEMAIL(659)
Called from: tsmtp.prg => TSMTP:ONREAD(270)
Called from: tsmtp.prg => (b)TSMTP:NEW(131)
Called from: tsocket.prg => (b)TSOCKET:TSOCKET(77)
Called from: tsocket.prg => TSOCKET:ONREAD(0)
Called from: tsocket.prg => TSOCKET:HANDLEEVENT(229)
Called from: tsocket.prg => (b)TSOCKET:NEW(121)
Called from: WINDOW.PRG => TMDIFRAME:ASYNCSELECT(0)
Called from: WINDOW.PRG => TMDIFRAME:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: gespaqn.prg => MAIN(69)
Alguna idea?
