Buonasera,
sono di nuovo qui con un altro problema che temo sarà più difficile risolvere.
Ho un report con il riepilogo pagamenti e da inviare ad ogni cliente.
In un primo momento lo facevo cliccando un pulsante per ogni cliente. vorrei invece, cliccando su un unico pulsante inviarlo a tutti.
Ho inserito questo codice ma restituisce il messaggio di errore: "Errore di compilazione: Tipo definito dall'utente non definito" evidenziando questa parte del codice Dim rst As DAO.Recordset
Inserisco di seguito l'intero codice
Private Sub Comando22_Click()
Dim rst As DAO.Recordset
Dim strname As String
Dim oggettoEmail As String
Dim testoEmail As String
'Set rst = Me.RecordsetClone
Set rst = DBEngine(0)(0).OpenRecordset("PGS_Contatti", dbOpenDynaset)
rst.MoveFirst
oggettoEmail = "INVIO COMUNICAZIONE PAGAMENTO ATTIVITA'" & " " & [Cognome] & " " & [Nome]
Do While Not rst.EOF
' Me.Bookmark = Me.RecordsetClone.Bookmark
strname = "\\192.168.0.188\A\GESTIONALE_VA\ALUNNI\ORDINE TUTE_GREMBIULI\pdf_perMail\ComunicazionePagamentoAttività " & " " & [Cognome] & " " & [Nome] & ".pdf"
DoCmd.OpenReport "PgsComunicazionePagamento", acViewPreview, , "CodiceAlunno=" & rst.Fields("CodiceAlunno"), acHidden
DoCmd.OutputTo acOutputReport, "PgsComunicazionePagamento", acFormatPDF, strname
testoEmail = "Gentile Famiglia" & rst.Fields("Cognome") & vbCrLf & _
" inviamo quanto in oggetto" & vbCrLf & _
" Cordiali saluti" & vbCrLf & _
" ******."
sendEmail2OL rst!EmailFalsa, strname, oggettoEmail, testoEmail
rst.MoveNext
DoCmd.Close acReport, "PgsComunicazionePagamento"
Loop
setOl2Nothing
Set rst = Nothing
End Sub
Grazie