Email automatica da excel in funzione del raggiungimento di un certo valore in una colonna

Question

Buonasera, avrei bisogno di un codice VBA che faccia in modo di mandare un'email quando nell'intervallo F3:F100 venga raggiunto il valore 7. Grazie mille

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao Mirel Spridon,

Grazie per il tuo post nella community Microsoft.

È possibile soddisfare le proprie esigenze utilizzando il listener di eventi Worksheet_Change. Assicurati che l'applicazione Outlook sia installata sul tuo dispositivo.

Nell'applicazione Excel fare clic con il pulsante destro del mouse sul foglio di lavoro > su Visualizza codice. 

Incolla il seguente codice nell'area di modifica del codice:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("F3:F100"), Target) Is Nothing Then

        If Target.Value = 7 Then

            Dim OutApp As Object

            Dim OutMail As Object

            Set OutApp = CreateObject("Outlook.Application")

            Set OutMail = OutApp.CreateItem(0)

            With OutMail

                .To = "recipient@example.com"

                .CC = "******@recipient.com"

                .Subject = "Auto mail"

                .Body = "Content"

            End With

            OutMail.Display

            Set OutMail = Nothing

            Set OutApp = Nothing

        Else

        End If

    End If

End Sub

Quando il valore 7 viene visualizzato in una cella compresa nell'intervallo da F3 a F100, l'applicazione Outlook si avvia automaticamente e le informazioni necessarie vengono inserite automaticamente.

A proposito, dal momento che non hai menzionato i tuoi destinatari, cc, oggetto o contenuto del corpo, ho incluso questi elementi nel codice per consentirti di personalizzarli. 

Inoltre, il passaggio finale lascerà l'e-mail in modalità anteprima, che richiede di fare clic manualmente su Invia per garantire l'accuratezza del contenuto dell'e-mail. Se vuoi che l'email venga inviata automaticamente invece di essere visualizzata in anteprima, per favore fammelo sapere.

Spero che le informazioni di cui sopra ti siano utili e attendo con ansia la tua risposta!

Migliori saluti

Thomas C - MSFT | Specialista del supporto della community Microsoft

Answer 2

Ciao,

intendi quando la somma di quell'intervallo assume valore esattamente 7?

L'email va inviata ad un unico destinatario o a più destinatari?

Il testo dell'oggetto va preso da una qualche cella di un qualche foglio della cartella di lavoro?

E il testo del corpo dell'email?

ciao