Envoi d'un mail automatique

Bonjour à tous

pourriez vous m'aider sur ce codage, j'essaye de faire en sorte qu'EXCEL envoi un mail automatique dés que le seuil est supérieur à un chiffre en l'occurence 11000 cependant ça ne fonctionne pas et je ne comprend pas d'ou viens le pb

merci par avance à tous

Sub SendEmail()

'

' SendEmail Macro

'

Dim olApp As Outlook.Application

Set olApp = CreateObject("outlook.application")

Dim olMail As Outlook.MailItem

Set olMail = olApp.CreateItem(olMailItem)

Dim A As Integer

Dim B As Long

A = 19

B = 4

With Worksheets("SUIVI COUTS") 'adaptez le nom de feuille

If .Range("S" & B) > "11000" Then

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

With olMail

.To = "XXXX@CCCC"

.CC = "zzz@yy"

.Subject = "ATTENTION "

.Body = "Bonjour à tous "

.Display

.send

End With

End Sub

Bonjour WKHI

Essaie cela

Sub EnvoiMail()
Dim messagerie As Variant
Dim A As Integer
Dim B As Long

A = 19
B = 4

With Worksheets("Feuil4") 'adaptez le nom de feuille
    If .Range("S" & B) > "11000" Then
        Set messagerie = CreateObject("Outlook.Application")
        With messagerie.CreateItem(olMailItem)
            .To = "totot@gmail.com"
            .Subject = "ATTENTION "
            .Body = "Bonjour à tous "
            .Display
            .Send
        End With

    End If
End With
End Sub

Par contre n'oublie pas dans les références d'ajouter Microsoft Outlook 16.0 Object Library

Bonne soirée

je vous remercie pour votre aide , mais je ne comprend pas le mail ne s'envoie pas automatiquement dés que j,'ouvre le fichier il faut que je lance la macro moi même, auriez vous des recommandations ? merci par avance

Rechercher des sujets similaires à "envoi mail automatique"