Buongiorno a tutti
devo inviare via mail degli allegati pdf creandoli a partire da un report richiamato via codice. (RptFatture)
Vorrei utilizzare Mapi come da precedenti discussioni per evitare di aprire Outlook o qualsiasi gestore di posta installato
https://www.iprogrammatori.it/forum-programmazione/access/inviare-pdf-via-mail-t19390.html
Ho inserito il modulo di classe clsMapiSendMail
Il problema è che negli esempi si parte da un click su una maschera mentre io ho necessita di filtrare il report in modo da inviare l'allegato corretto per ogni soggetto.
Ho provato a fare così
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "QryGestioneSdd", cnn, adOpenStatic, adLockOptimistic, adCmdTableDirect
Dim OggettoMail As String ' contiene l'oggetto della email
Dim CorpoMail As String ' contiene il testo del messaggio
Dim SendMail As clsMAPISendMail 'Richiama la classe
Dim lngLoop As Long
Dim lngResult As Long
Set SendMail = New clsMAPISendMail
If Not (rst.EOF And rst.BOF) Then
rst.MoveFirst
Do Until rst.EOF
DestinatarioMail = DestinatarioMail = rst.Fields("E-Mail")
OggettoMail = "Fattura Servizi Associati"
CorpoMail = "Ciao"
With SendMail
Call .AddTo("", DestinatarioMail)
Call .AddBCC("", NostraMail)
.Subject = OggettoMail
.Body = CorpoMail
End With
Loop
End If
ora dovrei aggiungere la Call a .FileAdd e poi inviare
ma come faccio a fare in modo che crei il pdf dal report filtrato?
scusate se mi sono espresso in modo non chiaro ma per me è difficile spiegarlo diversamente
Stefano