Newsgroup: it.comp.appl.access
Titolo: Invio mail e creazione PDF

Ho una maschera con la quale creo fatture, ho creato su di essa un pulsante 
ed associato a questo il seguente codice che crea un file PDF (per questo ho 
installato sulla mia macchina Acrobat Writer 6.0) dal nome fattura.pdf nella 
root di C: e quindi lo invia per allegato tramite posta elettronica.
Ho tre problemi e chiedo chiarimenti in merito:
1. Come posso modificare il codice affinchè venga stampato sulla stampante 
PDF e non sulla predefinita? Premetto la stampante PDF si chiama "Adobe 
PDF"... così com'è ora mi tocca tutte le volte impostare la stampante PDF 
come predefinita e poi rimettere la mia stampante reale al termine delle 
operazioni, alla lunga può diventare noioso e lungo.
2. Il problema è che il file PDF con la stampante virtaule, impiega qualche 
secondo prima della sua creazione, vorrei che prima di eseguire il codice 
relativo all'invio della mail VBA aspettasse almeno 10 secondi, come posso 
fare? Ho pensato di mettere un controllo nel quale mi chiede se sono pronto 
o meno... ma non esiste un qualcosa di automatico che parte dopo 10 secondi?
3. [Un po' OT] La stampante mi chiede sempre il nome prima di essere creato 
il file, io lo vorrei chiamare fattura e non vorrei che mi venisse sempre 
chiesto il nome dal programma di creazione PDF, sapete mica come posso fare? 
Se è indispensabile sarei anche disposto a cambiare programma di creazione 
PDF...
Riporto il codice del pulsante da me inserito in maschera. Ringrazio tutti 
quelli che mi leggono e che mi rispondono. Saluti SimoneB
Private Sub Comando68_Click()
Dim stDocName As String
    stDocName = "FATTURA CONSULENZA"
    DoCmd.OpenReport stDocName, acViewNormal
Dim rstMail As New ADODB.Recordset
Dim Mail As String
Dim Ref As String
Dim Allegato As String
Dim ObjOutlook As Outlook.Application
Dim ObjEMail As Outlook.MailItem
Check = False
Testo0 = [Posta elettronica].Value
Mail = "AVVERTENZE AI SENSI DEL D. Lgs. 196/2003. Le informazioni contenute 
in questo messaggio di posta elettronica e/o nel/i file/s allegato/i sono da 
considerarsi strettamente riservate. Il loro utilizzo è consentito 
esclusivamente al destinatario del messaggio, per le finalità indicate nel 
messaggio stesso. Qualora riceviate questo messaggio senza esserne il 
destinatario, Vi preghiamo cortesemente di darcene notizia via e-mail e di 
procedere alla distruzione del messaggio stesso, cancellandolo dal Vostro 
sistema. Conservare il messaggio stesso, divulgarlo anche in parte, 
distribuirlo ad altri soggetti, copiarlo, od utilizzarlo per finalità 
diverse, costituisce  comportamento contrario ai principi dettati dal D. 
Lgs. 196/2003." & vbNewLine & vbNewLine & _
Ref = "Invio fattura commerciale n° " & [Numero] & " del " & [Data] & " di " 
& [Tipo]
Set ObjOutlook = CreateObject("Outlook.application")
Set ObjEMail = ObjOutlook.CreateItem(olMailItem)
With ObjEMail
.To = Testo0
.Importance = olImportanceHigh
.HTMLBody = Mail
.Subject = Ref
.Attachments.Add ("c:\FATTURA.PDF")
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Send
End With
Set ObjEMail = Nothing
End Sub

 ha scritto nel messaggio 
news:47bdfa0e$0$37203$4faf...@reader3.news.tin.it...

Io uso una DLL per fare tutto quello che dici... 
www.lebans.com
--
Roberto da Parma