Alerte MAIL Outlook 2013 via Excel 2013

Y compris Power BI, Power Query et toute autre question en lien avec Excel
l
lidou
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 17 mai 2018
Version d'Excel : 2013

Message par lidou » 17 mai 2018, 16:12

bonjour,
pouvez vous me faire le code pour qu'une Alerte MAIL Outlook 2013 via Excel 2013 ce fasse automatiquement.
30 jours avant la date échéance en colonne D, avec comme objet dans le mail ATTENTION URGENT VERIFICATION APPAREIL DE MESURE.
et m'expliqué la procédure dans EXCEL car jamais fais merci a vous.
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'947
Appréciations reçues : 541
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 17 mai 2018, 17:31

Bonjour et bienvenue,

si tu avais un bout de fichier, ce serait plus pertinent
En attendant, tu peux t'inspirer de ceci
envoi_mailing.xlsm
(16.83 Kio) Téléchargé 12 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'513
Appréciations reçues : 242
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 17 mai 2018, 17:39

Bonjour,

Voici une piste. Le code est à mettre dans le module du classeur et sera exécuté à l'ouverture de celui-ci :
Private Sub Workbook_Open()
        
    Dim AppOutlook As Object
    Dim OutMail As Object
    Dim AdrMail As String
    
    'la date limite est en cellule "D1" de la feuille "Feuil1", à adapter
    If Worksheets("Feuil1").Range("D1").Value - Date > 30 Then
        
        Set AppOutlook = CreateObject("Outlook.Application")
        Set OutMail = AppOutlook.CreateItem(0)
        
        AdrMail = "lenom@orange.fr" '<--- adapter l'adresse mail !
        
        MsgBox "Il reste 30 jours ou moins avant la date limite, un mail va être envoyé à l'adresse :" & _
        vbCrLf & _
        AdrMail & _
        vbCrLf & _
        "Pensez à changer la date limite pour le contrôle suivant !"
        
        With OutMail
    
            .To = AdrMail
    
            .Subject = "Contrôle appareil de mesure"
    
            .Body = "Bonjour," & _
                    Chr(13) & _
                    Chr(13) & _
                    "ATTENTION URGENT VERIFICATION APPAREIL DE MESURE." & _
                    Chr(13) & _
                    Chr(13) & _
                    "Très cordialement"
    
            .Display
    
            '.Send'<--- enlever l'apostrophe pour que le mail soit envoyé automatiquement !
    
        End With
    
        Set OutMail = Nothing
        Set AppOutlook = Nothing

    End If

End Sub
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
l
lidou
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 17 mai 2018
Version d'Excel : 2013

Message par lidou » 17 mai 2018, 19:10

Merci beaucoup, je te tien au courant
Cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message