FiveTech Software tech support forums

... REDEFINE XBROWSE oBrw ID 107; HEADERS "Código","Componente","Cantidad","U.M","Costo","Cto.Fle/Ot.Ctos.","Costo Real","CantXCosto" ; COLSIZES 120,250,80,80,100,85,100,100 ; JUSTIFY AL_CENTER,AL_LEFT,AL_RIGHT,AL_CENTER,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT ...

... enviar los correos utilizando CDO TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = cTo :CC = cCC :BCC = cBCC :Subject = cSubject :TextBody = cMsg For x := 1 To Len( aAttach ) if aAttach[x] <> NIL :AddAttachment(AllTrim(aAttach[x])) ...

Buenas Yo lo resolvi asi cTo := "pablo.diseno@toimsa.es" cOther := "" cCC := "" cSubject := AnsiToOem("Imágenes no encontradas para WEB") cBody := "Muy buenas," + chr(13) +; AnsiToOem("Adjunto ...

... + " -compose " + "subject=" + Chr(34) + cSubject + Chr(34) + "," cCommand = cCommand + "to=" + Chr(34) + cTo + Chr(34) + "," cCommand = cCommand + "body=" + Chr(34) + cBody + Chr(34) + "," cCommand = cCommand + "attachment=" ...

... + " -compose " + "subject=" + Chr(34) + cSubject + Chr(34) + "," cCommand = cCommand + "to=" + Chr(34) + cTo + Chr(34) + "," cCommand = cCommand + "body=" + Chr(34) + cBody + Chr(34) + "," cCommand = cCommand + "attachment=" ...

... ****************************************************************************************************** STATIC FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort, lNotification, lSSL ) LOCAL lOk := .F. LOCAL oCfg, oMsg LOCAL cCc := ...

... account.... Allow Less Secure Apps - is ON 2-step verification - DISABLED I am passing all parameters to sendmail() SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort,lNotification , lSSL ) This is the return message : "Unsent message ...

El Provedor, és gmail.com? Saludos. Karinha, buenos días: cFrom := PadR( 'xxxxxxxxx@alojamientovirtual.com', 180 ), cTo := PadR( 'xxxxxxx@gmail.com', 180 ) El email va desde una cuenta de "alojamientovirtual.com" a una de "gmail" Que provedor está cFrom := PadR( ...

karinha wrote:El Provedor, és gmail.com?

Saludos.

Karinha, buenos días:

cFrom := PadR( 'xxxxxxxxx@alojamientovirtual.com', 180 ),
cTo := PadR( 'xxxxxxx@gmail.com', 180 )

El email va desde una cuenta de "alojamientovirtual.com" a una de "gmail"

... // login for the SMTP-Server is needed. // username and password LOCAL cFrom := "Uwe" LOCAL cServer := "smtp.de.aol.com" LOCAL cTo := "esckoenig@aol.com" // my email for testing the mailbox for incomming emails LOCAL cSubjeCt := "Test" LOCAL cMessage := "Test" ...

... cAttach) endif Return lRet ******************************************************************************** Static Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject, cAttach) local cToken local lRet := .f. local Vezes := 0 Do While Vezes <= 5 cTo := Destinatarios( cTo ) //--> ...

Antonio have my new tled sources, he can make what he want .
thanks Massimo after the hamset, now I am a "not run woodenhead", see you next Monday,to cto!!!

... METHOD NoOp() 26 METHOD Rest( nPos ) 27 METHOD Pwd() 28 METHOD Cwd( cPath ) 29 METHOD Dele( cPath ) 30 METHOD LS( cSpec ) 31 METHOD Rename( cFrom, cTo ) 32 METHOD MKD( cPath ) 33 METHOD RMD( cPath ) 34 METHOD Retr( cFile ) 35 METHOD Stor( cFile ) 36 METHOD List( cSpec ) 37 METHOD UserCommand( cCommand, ...

... nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) END //////////////////////// cTo := Destinatarios( cTo ) //--> PARA cCC := Destinatarios( cCC ) //--> COM COPIA cBCC := Destinatarios( cBCC ) //--> COM COPIA OCULTA TRY ...

funcion: Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort, oDlg ) Local oCfg, oMsg, oError, nEle, cToken, bMens, lAuth:=!Empty(cUser).and.!Empty(cPass) Local aAttach:={} Default nPort := 25, ; cSubject ...