Há algum tempo eu usei um script para produzir um arquivo único (PDF) contendo o texto de um email e todos os anexos juntos:
Code: Select all
^y::
Sleep, 1000
FileDelete, C:\pastaprovisoria\PDFtemp\*.pdf ; diretório dos provisórios
Sleep, 3000
Send, {AltDown}{AltUp}
Sleep, 1500
Send, a
Sleep, 1500
Send, p
Sleep, 10000
Send, p
Sleep, 3000
InputBox, nomearquivo; Numero e tipo de arquivo
Sleep, 30000
; Count and display the number of files in the source folder for info - conta o número de arquivos na pasta pdfs provisórios
count=0
Loop, C:\pastaprovisoria\PDFtemp\*.pdf,0,1
files:=(files ? "`n" : "") . A_LoopFileFullPath,count:=count+1
RunWait %comspec% /c PDFTK C:\pastaprovisoria\PDFtemp\*.pdf cat output C:\pastaprovisoria\PDFtemp\temp\prov.pdf, , hide ; Pass the parameters to pdftk and hide the commandline window on completion
FileMove, C:\pastaprovisoria\PDFtemp\temp\prov.pdf, C:\pastafinal\Imprimir PDF\%nomearquivo%.pdf ; Rename a single file.
Return
A idéia: Eu faço a impressão da msg e dos anexos numa pasta provisória (C:\pastaprovisoria\PDFtemp); em seguida o script junta todos os arquivos em um com o aplicativo (PDFTK) e salva no arquivo (prov.pdf); por último, move o arquivo, renomeando (%nomearquivo%.pdf) que eu coloquei no Inputbox, para a pasta final (C:\pastafinal\Imprimir PDF\%nomearquivo%.pdf)
Alguém pode me dar uma luz?