macro automatica al salvataggio con invio mail

Question

Salve a tutti,

avrei gentilmente bisogno di un controllo della mia stringa

Public Sub conSendMail_Workbook_Save()

    Dim strUltimoFoglioModificato As String

    strUltimoFoglioModificato = ActiveSheet.Name

    Recipients = Array("******@buildingegneria.it")

    Subject = "il file permessi è stato modificato"

    ActiveWorkbook.SendMail Recipients:=Recipients, Subject:=Subject

End Sub

Devo fare in modo che al salvataggio del file si avvii in automatico la macro e quindi invii la mail. La stringa è corretta?

Answer 1

Ciao Anna,

Mi fa piacere che hai risolto il problema e ti ringrazio del tuo cortese riscontro.

Per chiudere questo thread, vorrei gentilmente chiederti di segnare la mia risposta come Risposta. In questo modo, tu aiuterai anche coloro che potrebbero cercare soluzioni ai problemi simili negli archivi della comunità.

Alla Prossima!

===

Regards,

Norman

Answer 2

Ciao Anna,

Per inviare il file ad ogni suo salvataggio, in un modulo di codice standard, incolla:

    '=========>>

Option Explicit

'--------->>

Public Sub conSendMail_Workbook_Save()

    Dim vRecipients As Variant

    Dim strSubject As String

  vRecipients = Array("pippoAToutlookDOTcomm", "plutoATgmailDOTcom")

    strSubject = "il file permessi è stato modificato"

'    ThisWorkbook.SendMail Recipients:=vRecipients, Subject:=strSubject

End Sub

'<<=========

Nel modulo di codice ThisWorkbook, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Call conSendMail_Workbook_Save

End Sub

'<<=========

[Postscriptum]

Ho modificato il codice originale  per sostituire la variabile strRecipients con la variabile vRecipients,  che ho dichiarato come tipo Variant

===

Regards,

Norman

Answer 3

Gentilissimo.

Tutto chiaro e funzionante.

Grazie