ACCESS : Inviare mail con campi di una sottomaschera

Question

Buongiorno a tutti. Anticipo che sono un principiante e cerco di spiegarvi il mio problema. Ho creato un database per la gestione della corrispondenza della mia azienda. Ogni giorno devo registrare le raccomandate che arrivano in azienda e che devono essere ritirate dai referenti degli uffici.

Io ho una maschera [MSC_CONSEGNARACC] dove seleziono gli uffici tramite casella combinata, un campo testo con le mail dei referenti ed infine una sottomaschera [frm_pervenute_sub1] dove sono presenti in dettaglio le raccomandate da ritirare per l'ufficio prescelto.

Praticamente dovrei creare un pulsante nella maschera che mi generi una mail ai referenti con, o in allegato o nel corpo della maschera, i record [raccomandate da ritirare] presenti nella sottomaschera. Ho provato con le macro in autocomposizione ma se inserisco come allegato la sottomaschera vedo tutti i record di tutti gli uffici...ho cercato anche in rete ma cimentarmi da solo con il codice senza aiuti non riesco proprio.

Chiedo a voi un aiuto se possibile.

Se avete bisogno di altro sono a vostra completa disposizione.

Grazie e buona giornata

Nicola

Answer 1

Ciao Nicola

prova al link http://sdrv.ms/1gWwMxm

Fammi sapere

Mimmo

Answer 2

Puoi selezionare la tabella del dettaglio delle raccomandate e quindi Crea-Report oppure creare una report vuota e copiare (Ctrl+c  Ctrl+v) i controlli previsti sulla sottomaschera per fare più velocemente.

Answer 3

Seleziona la tabella dove sono presenti in dettaglio le raccomandate e genera una report.

Answer 4

Purtroppo non va dall'inizio...se faccio crea report mi dice immettere valore parametro maschere!...ecc ecc

Non so proprio come ovviare all'errore

Answer 5

Ciao,

potresti creare una report sulla falsa riga della sottomaschera che userai come allegato in formato Pdf alla Mail (elenco raccomandate da ritirare).

Seleziona la sottomaschera sul riquadro di spostamento e dal menu seleziona Crea-Report.

Sulla maschera, sull'evento su Click del pulsante di richiesta dell'invio della Mail, seleziona  routine evento (Vba) :

Nel codice ti troverai (aggiungi le istruzioni in grassetto):

Option Compare Database

Option Exlicit                      'aggiungi questa riga

Private Sub cmdInviaElenchi_Click()                          'nome del pulsante in maschera

DoCmd.OpenReport "nomeReport", acViewPreview, , "Ufficio = " & cboUfficio

                                                   'Dove Ufficio è il nome del campo in tabella

                                                   'e cboUfficio è il nome della combo sulla maschera principale

'    On Error Resume Next

'    DoCmd.SendObject acSendReport, ......' sarà da sviluppare

'    If Err.Number <> 0 Then

'       Beep

'       MsgBox "Errore su apertura Outlook " & vbCrLf & Err.Description

'       Err.Clear

'    End If

'    On Error GoTo 0

'    DoCmd.Close

'    Beep

End Sub

Per ora mi fermerei quì, fammi sapere

Mimmo