conferma invio mail in access

Question

Salve a tutti,

ho creato un tasto che attiva l'invio di una mail dove si allega anche un report il tutto generato da una macro, vorrei che nella maschera di comando dopo l'invio venga segnalato in una casella l'indicazione che è stata inviata. Avete qualche codice VB da suggerirmi?

Grazie

Cavillo

Answer 1

ciao Cavillo,

[...]

ci ho messo un pò di tempo a rispondere, ma il codice che mi hai indicato non sono riuscito a farlo funzionare, c'erano dei problemi con "If" l'ho modificato in questo modo e funziona come volevo:

[...]

la soluzione che ti avevo proposto l'avevo testata e non avevo notato problemi... :-)

Grazie per il suggerimento.

prego :-)

Volevo chiedere se hai qualche consiglio da darmi per aggiungere nell 'oggetto della mail delle note che scrivo in una casella della maschera.

tra i parametri del metodo sendObejct trovi messageText che se presente viene scritto nel corpo dell'email.

magari aiutati nella scrittura del codice indicando i parametri, è cosa buona sempre e a maggior ragione se ce ne sono tanti in modo da identificarle facilmente, anche per il debug, del tipo :

DoCmd.SendObject ObjectType:=acSendTable, _

                 objectName:="Clienti", _

                 outputFormat:=acFormatPDF, _

                 To:=mailto, _

                 CC:=bccto, _

                 Subject:=mailsub, _

                 messageText:=emailmsg, _

                 editMessage:=True

ovviamente personalizza il codice con il tuo scenario reale.

Cavillo

ciao!

Sandro.

***** start Edit *****

sorry....vedo che indichi precisamente oggetto email e non corpo.

per l'oggetto dell'email fai riferimento al parametro subject dove avrai subject:= me.tuoControlloNote. ( personalizza il nome del controllo ovviamente).

nel caso tu debba aggiungere oltre al contento nel controllo note ulteriori informazioni ti basta concatenarle con & es.  subject:= me.tuoControlloNote & now() se vuoi data ed ora...

***** end Edit *****

Answer 2

ciao Cavillo,

[...]

cosa ne dici?

[...]

Cavillo

on error resume next non mi piace.... :-) ed bene usarlo con mooolta moderazione....

intendevo una cosa del genere, modifica il controllo tuaCheckBox :

on error goto errHandler

dim bool as boolean

bool=not bool

 ' tuo codice

err_handler:

    Me.tuaCheckBox= bool

    Exit Sub

errHandler:

    With Err

        If .Number = 2501 Then

                MsgBox "ok operazione annullata" '<----- personalizza...

        Else

            MsgBox "ERR#" & CStr(.Number) _

                 & vbNewLine & .Description, _

                 vbCritical

        End If

        bool = Not bool

        Resume err_handler

    End With

Cavillo

ciao, Sandro.

Answer 3

Ciao Sandro,

perfetto, ho risolto e funziona.

Grazie

Cavillo.

Answer 4

Ciao,

ci ho messo un pò di tempo a rispondere, ma il codice che mi hai indicato non sono riuscito a farlo funzionare, c'erano dei problemi con "If" l'ho modificato in questo modo e funziona come volevo:

stDocNAme = "Nuovo Ordine"

On Error GoTo errHandler

stLinkCriteria = "[NumeroOrdine]=" & "'" & Me![NumeroOrdine] & "'"

DoCmd.OpenReport stDocNAme, acPreview, , stLinkCriteria

DoCmd.SendObject acSendReport, stDocNAme, acFormatPDF, _

    "xxxxxx@xxxxxxxxxxx", , , _

    "Distribuzione nuovo ordine", "xxxxxxxxxxxxxx", -1, False

errHandler:

    With Err

        If .Number = 2501 Then

  MsgBox "INVIO MAIL ANNULLATO"

  confermainvio = False

conferma = "NON DISTRIBUITO"

        Else

confermainvio = True

conferma = "DISTRIBUITO"

        End If

     End With

End Sub

Grazie per il suggerimento.

Volevo chiedere se hai qualche consiglio da darmi per aggiungere nell 'oggetto della mail delle note che scrivo in una casella della maschera.

Cavillo