Newsgroup: it.comp.appl.access
Titolo: Distiller free per invio email

Salve,
ho esigenza, partendo da una maschera,
di creare un file pdf.
Ho provato con uno dei tanti distiller in rete,
stampo e creo il pdf.
Mi chiedevo però se fosse qualcuno conosce
un qualche sw free che crei il pdf come allegato
ad un msg di posta elettronica, automaticamente.
Per esempio con Acrobat Pro ho la funzione
desiderata
File - Invia - Destinatario di posta elettronica come
PDF
Il problema è che cercava qualcosa che non fosse
Acrobat....
Tnks 

 ha scritto nel messaggio 
news:4694cb74$0$4785$4faf...@reader4.news.tin.it...

Probabilmente sei fuori tema (e fuori NG)...
Ciao.
-- 
Sergio MAZZA 


Con le procedure di Lebans ti crei il file in formato pdf direttamente sul 
disco
Poi via automazione butti il file appena creato dentro Outlook Express come 
allegato e lo invii
Fine
Ciao
RobertoA


Ciapa ki
    ' =========================================================
    '        RACCOLTA DATI PER INVIO FILE VIA E-MAIL
    ' =========================================================
    destinatario = "" & DLookup("EMAIL", "ANAGRAFICHE", "ID_ANAGRAFICA=" & 
ANAGRAFICA_ID_ANAGRAFICA)
    oggetto = "Invio fattura vendita n." & NUMERO_DOCUMENTO & " del " & 
Format$(DATA_DOCUMENTO, "dd/mm/yyyy") & " come da accordi"
    messaggio = "Vi inviamo il documento di vendita come da oggetto a 
completamento dei contratti in essere o dei materiali/servizi acquistati 
presso la nostra ditta"
    nome_file = "C:\FATTURA_" & NUMERO_DOCUMENTO & "_DEL_" & 
Format$(DATA_DOCUMENTO, "dd_mm_yyyy") & "_CLIENTE_" & ANAGRAFICA_DITTA1 & 
".pdf"
    If Len(destinatario) < 1 Then
        dummy = InputBox("Indirizzo di posta elettronica inesistente per 
l'anagrafica attuale" & Chr(10) & Chr(10) & "Desideri inserirlo ora ?", 
"INDIRIZZO E-MAIL INESISTENTE", "")
        If Len(dummy) < 1 Then
            Exit Sub
            Else
            destinatario = dummy
            CurrentDb.Execute "update ANAGRAFICHE set EMAIL=""" & 
destinatario & """  where ID_ANAGRAFICA=" & ANAGRAFICA_ID_ANAGRAFICA
            End If
        End If
    ' =========================================================
    '   GENERAZIONE FILE PDF CONTENENTE IL DOCUMENTO ATTUALE
    ' =========================================================
    DoCmd.OpenReport "rptFATTURA", acViewDesign, , "ID_DOCUMENTO_TESTATA=" & 
ID_DOCUMENTO_TESTATA
    Reports("rptFATTURA").Filter = "ID_DOCUMENTO_TESTATA=" & 
ID_DOCUMENTO_TESTATA
    Reports("rptFATTURA").FilterOn = True
    blRet = ConvertReportToPDF("rptFATTURA", vbNullString, nome_file, False, 
False, 0, "", "", 0, 0)
    send_email destinatario, oggetto, messaggio, nome_file
Ovviamente tutto il 'succo' della procedura e' nella  ConvertReportToPDF 
del buon Lebans
Senza di quella ci sarebbe da rognare un bel po'
Ciao
RobertoA

 ha scritto nel messaggio
news:4694cb74$0$4785$4faf...@reader4.news.tin.it...

Partendo da una maschera cosa intendi...? Che vuoi stampare una Maschera...?
Se ho capito bene non sò aiutarti, nel senso che non conosco Tool FREE che
lo fanno.
Se, come normalmente si dovrebbe fare, devi stampare un REPORT in PDF ed
inviarlo via Mail
allora il Tool di Lebans che ti ha suggerito Roberto è validissimo, la mail
con allegato la invii
con MAPI o CDO.... di cui trovi molti esempi e richiami nel NG e nel
SitoComune.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:4694ea4f$1...@newsgate.x-privat.org...

Molte molte grazie 

pdfcreator
stampi su stampante virtuale e nella finestra di dialogo che ti si apre 
selezioni email. Ti si aprirà il tuo prog di posta con un nuovo 
messaggio pronto a essere inviato