Grazie Alex e Max per le risposte e si il debug lo faccio PER LEGGE
la mail inviata male era
1) inviata alla mail dell'azienda corretta
2) nel corpo la scritta era "Spett.le xxx" corretta!
3) nome del file allegato corretto
4) file pdf (con nome corretto) contenente il report filtrato male
per me è assurdo... l'istruzione per cui crea il pdf è
CreaPDF("ID_AZIENDA=" & rs!ID_AZIENDA, NomeReport, Percorso & "\" & rs!ID_AZIENDA & ".pdf", False, True, Ordinamento)
il primo parametro è il filtro da applicare al report corrispondente al secondo parametro (nomeReport) e lo salva sul fileSystem come dice il terzo parametro, quindi posso anche fare come dice Max ma al momento della chiamata alla funzione il primo ed il terzo parametro non possono avere ID_AZIENDA diverso ... proprio nn capisco...
questa la CreaPDF (completa)
Public Function CreaPDF(myFILTRO As String, NomeReport As String, fullPath As String, _
Optional NotificaErrore As Boolean = False, Optional NotificaSovrascrive As Boolean = True, Optional Ordinamento As String) As Boolean
'
CreaPDF = False
'controllo che non esista già il file
If Dir$(fullPath, vbNormal) <> vbNullString Then
If NotificaSovrascrive Then
If MsgBox("Esiste già un file PDF con lo stesso nome." & vbNewLine & _
"Vuoi sovrascriverlo?", vbQuestion + vbOKCancel, "ATTENZIONE") = vbCancel Then
GoTo FINE
Else
Kill fullPath
End If
Else
Kill fullPath
End If
End If
'creo
On Error GoTo FINE
DoCmd.OpenReport NomeReport, acViewPreview, , myFILTRO, acHidden, Ordinamento
DoCmd.OutputTo acOutputReport, NomeReport, acFormatPDF, fullPath, False, , , acExportQualityPrint
DoCmd.Close acReport, NomeReport, acSaveNo
DoEvents
CreaPDF = True
Sleep (1000)
FINE:
If NotificaErrore And Not CreaPDF Then MsgBox "Si è verificato un errore nella creazione del PDF!", vbCritical + vbOKOnly, "INFO"
On Error GoTo 0
'
End Function