ACCESS : Inviare mail con campi di una sottomaschera

Anonimo
2014-01-28T06:22:52+00:00

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

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2014-02-11T09:16:16+00:00

Ciao Nicola

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

Fammi sapere

Mimmo

La risposta è stata utile?

0 commenti Nessun commento

39 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2014-02-09T10:37:30+00:00

    Per il punto 1 devi studiare i parametri del comando SendObject per capire cosa e come impostarli.

    N.B. Quando sei su codice, seleziona la parola SendObject  e pquindi digita F1. Ottieni l'help del comando.

    Per il secondo punto forse ti converrebbe creare una tabella ad hoc per mittente/destinatario con tutte le proprie informazioni (anagrafiche e non) in modo da non trovartele ripetute più volte nel DB.

    Mimmo

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2014-02-09T07:02:00+00:00

    Grandioso Mimmo! Ti ringrazio davvero di cuore.

    Ci sono alcune cosette ancora da "aggiustare" speriamo puoi aiutarmi...

    1- Quando mi apre il messaggio di posta con Outlook, dopo aver cliccato su invia mail, nei destinatari trovo correttamente l'indirizzo mail di MAIL REFERENTI esempio @topolino.it ma poi segue #mailto:@topolino.it ... quindi nel campo A... avrò ******@topolino.it; #mailto: ******@topolino.it; # ... devo cancellare a mano questa seconda dicitura altrimenti non invia la mail. Da cosa può dipendere?

    2- (più importante)... Nelle maschere di registrazione delle raccomandate (in uscita e in entrata) vorrei che se il mittente o il destinatario fossero già presenti nelle tabelle, access mi riempia in automatico i dati del mittente e/o destinatario...riesci a vedere e poi farmi sapere?

    Scusami per tutte queste richieste ma prometto che non appena apprenderò tutto eviterò inutili domande!

    Grazie mille per la gentilezza e scusami per il disturbo!

    Nicola

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2014-02-08T21:45:46+00:00

    Nella combo Seleziona ufficio cambia l'origine riga in:

    SELECT TBL_UFFICI.ID, TBL_UFFICI.NomeUfficio, **TBL_UFFICI.[Mail Referenti]**FROM TBL_UFFICI ORDER BY TBL_UFFICI.NomeUfficio;

    Nella routine evento Su Click del pulsante Invia eMail incolla:

    On Error Resume Next

    DoCmd.OpenReport "reportperve", acViewPreview, , "[Ufficio Di Destinazione] =" & cbo_UfficioSel

    If Err.Number = 0 Then

    DoCmd.SendObject acSendReport, , acFormatXLS, cbo_UfficioSel.Column(2), , , "Elenco raccomandate."

    If Err.Number <> 0 Then

    Beep

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

    Err.Clear

    End If

    DoCmd.Close acReport, "reportperve"

    End If

    On Error GoTo 0

    Fammi sapere

    Mimmo

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2014-02-08T21:10:45+00:00

    Volevo che andassi a vedere il codice nella routine evento < Su Click > del pulsante.

    L'invio della Mail è una sola istruzione.

    Ora devi mettere a punto la report.

    Mimmo

    La risposta è stata utile?

    0 commenti Nessun commento