Alerte MAIL Outlook 2013 via Excel 2013

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.

Bonjour et bienvenue,

si tu avais un bout de fichier, ce serait plus pertinent

En attendant, tu peux t'inspirer de ceci

23envoi-mailing.xlsm (16.83 Ko)

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

Merci beaucoup, je te tien au courant

Cordialement

Rechercher des sujets similaires à "alerte mail outlook 2013 via"