FiveTech Support Forums

cFilepdf:=cRutaa+"\temps\"+alltrim(cNocoti)+".pdf"
Print oPrn title "Cotización de equipo" file cFilepdf

cFilepdf:=cRutaa+"\temps\"+alltrim(cNocoti)+".pdf"    (Defino la ruta donde generé mi archivo PDF)
cFichatec:=Pathr+"\formatos\"+alltrim(cMod1)+".PDF"     (Defino la ruta donde esta la ficha técnica)
cDirinfo=cGetdir("Selecciona el directorio para guardar la cotización")       (Le pido al usuario me indique el directorio donde desea gaurdar su PDF final)
if !empty(cDirinfo)
   cFiledest:=cDirinfo+"\Cotizacion equipo "+alltrim(cNocoti)+".pdf"
   waitrun("pdftk &cFilepdf &cFichatec cat output &cFiledest") //Invoco al pdftk y le paso las variables con macrosustitución
   ShellExecute( ,"open", cFiledest,,,3 )
endif

(C:\users\juan perez\desktop\cotizacio 1234abcd.pdf)

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cRuta, cPDFFile

   cPDFFile := "PROP15.PDF"

   cRuta := cShortName( "C:\USUARIO\juan perez\ARCHIVOS\"+cPDFFile )

   ? cRuta

RETURN NIL

/*
 *  SPN.PRG
 *
 *  cShortName() - FilePath Long to Short (GetShortPathNameA())
 *
 *  Soporte a Funciones del Api de Windows
 *
 *  Andrade A. Daniel - 2002
 *  Rosario, Argentina
 *
 *  Libre Distribución
 */

/*
 *  cShortName()
 */

FUNCTION cShortName( cLong )



    Local   cShort  := Space(164) + Chr(0)
    Local   nBuffer := 164
    Local   nLen

    nLen    := GetSPName( cLong, @cShort, nBuffer )

    cShort  := Left( cShort, nLen )

RETURN( cShort )

// Windows Api
DLL32 STATIC FUNCTION GetSPName( lpszLongPath AS STRING, lpszShortPath AS STRING, lBuffer AS LONG ) ;
      AS LONG PASCAL FROM "GetShortPathNameA" LIB "kernel32"

if !empty(cDirinfo)
   cFiledest0:=cDirinfo+"\"+alltrim(cNocoti)+".pdf"
   cFiledest:='"&cFiledest0"'
   waitrun("pdftk &cFilepdf &cFichatec cat output &cFiledest")
   ShellExecute( ,"open", cFiledest,,,3 )
   delete file &cFilepdf
endif

aCorreoa:={"correo1@dominio.com.mx","correo2@dominio.com.mx","correo3@dominio.com.mx"}
    for uncorr:=1 to len(aCorreoa)
        cCorreoa:=aCorreoa[uncorr]  //uno para cada elemento del array aCorreoa
        cCorreo:=firmail  //El nombre de la persona que lo esta enviando, este lo obtengo de la tabla de empleados
        cText:=cBod //El cuepo del mensaje
        cDesti:=cCorreoa //El correo destino
        cSubj:=cSubj  //El titulo del correo
        cRemite:=cCorreo //El nombre del remitente
        aAttach :={} //Si quieres enmviar archivos adjuntos en este array deberas agregarlos, incluida su ruta completa
        cLeymen:="El correo fue enviado exitosamente a "+alltrim(aCorreoa[uncorr])+"  "+alltrim(str(uncorr))+" de "+alltrim(str(len(aCorreoa)))  //Si quieres puedes poner esta leyenda que te indica que el correo fue enviado
        envia_email(cSubj,cDesti,cText,cRemite,cLeymen,aAttach) //Invocas a la función "envia-email
   next

Function envia_email()
   Local oEmailCfg,oEmailMsg
    TRY
       oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
      WITH OBJECT  oEmailCfg:Fields
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value :=   "nombre_servidor_correo_SMTP.com.mx"
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value :=  26 //Puerto de salida
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2   // Remote SMTP = 2, local = 1
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value :=   .T.
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value :=  .F.
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value :=  "cuentaenviadora@dominio.com.mx"
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value :=  "passwordcuenta"
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 30
         :Update()
      END WITH
    CATCH oError
      MsgInfo( "Could not create message configuration" + ";"  + ;
             "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + ;
             "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + ;
             "OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + ;
             "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" + ;
             "Message: " + oError:Description )
       Return .F.
    END
    oError:=NIL


    TRY
     oEmailMsg := CREATEOBJECT ( "CDO.Message" )
     WITH OBJECT oEmailMsg
        :Configuration =  oEmailCfg
        :From = chr(34)+cRemite // This will be displayed in the From (The email id does not appear)
        :To = cDesti    // <-----   Place the TO email address
        :Subject =  cSubj
        :ReplyTo =  ""
        :Sender =  cRemite  // Read Receipt message is send to this
        :Organization =  "Empresa en México, S.A. de C.V."    // "My Company Name"
        :HTMLBody =  cText
        if len(aAttach)>0
                for nEle:=1 to len(aAttach)
                    :AddAttachment(alltrim(aAttach[nEle]))
                next
          endif
        :Send()
     END WITH
     SysRefresh()
    CATCH oError
       
       MsgInfo( "Could not send message" + ";"  + CRLF+ ;
         "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + CRLF+;
         "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + CRLF+ ;
         "OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + CRLF +;
         "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" +CRLF+ ;
         "Message: " + oError:Description )
       Return .F.
   
    END
    MsgInfo(cLeymen)
Return