none
Alerte dans outlook à partir d'un fichier Excel RRS feed

  • Question

  • Bonjour à tous,

    Je dispose d'un fichier Excel dans lequel il y a des dates.

    Je souhaiterais recevoir un message d'alerte 48 heures avant la date buttoir.

    Pouvez vous m'aider

    Merci :) d'avance

    mercredi 28 octobre 2020 09:49

Réponses

  • Bonjour

    Voici un exemple de code pour des dates en colonne A. Le message est envoyé à l'adresse "test@test.com"

    Sub test()
      Dim C As Range, olApp As Object, M As Object
      Set olApp = CreateObject("Outlook.application")
      With Sheets("Feuil1")
        For Each C In .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
          If C.Value = Date + 2 Then
            Set M = olApp.CreateItem(olMailItem)
            With M
                .Subject = "Objjet"
                .Body = "Messsage"
                .Recipients.Add "test@test.com"
                .Send
            End With
          End If
        Next C
      End With
    End Sub
    

    Cordialement.

    Daniel

    jeudi 29 octobre 2020 15:32