Envoyer un rappel outlook via fichier excel

perouse07

XLDnaute Nouveau
Bonjour,

j'ai récemment incrémenter une macro qui me permet d'envoyer un rappel suivant une date !


Code:
Sub AjoutRV()
  Dim DLig As Long, Lig As Long
  Dim OutObj As Outlook.Application
  Dim OutAppt As Outlook.AppointmentItem
  Dim DateRdv As Date, FlgRdv As Boolean
 

 
 
  Set OutObj = CreateObject("outlook.application")
 
  With Sheets("base")
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
 
    For Lig = 5 To DLig
 
      If .Range("H" & Lig) <> "" Then
 
        If .Range("H" & Lig).Comment.Text <> .Range("D" & Lig).Value Then
          FlgRdv = True
        Else
          FlgRdv = False
        End If
      Else
        FlgRdv = True
      End If
 
      If FlgRdv Then
 
        DateRdv = Range("E" & Lig)
        Set OutAppt = OutObj.CreateItem(olAppointmentItem)
        With OutAppt
          .Subject = "DATE LIMITE APPROCHANTE  : " & Sheets("base").Range("B" & Lig) & " " & Sheets("base").Range("C" & Lig) & " se situant " & Sheets("base").Range("D" & Lig)
          .Start = DateRdv & " 08:00"
          .Duration = 60
          .ReminderSet = True
          .Save
        End With
 
        On Error Resume Next
        .Range("H" & Lig).Comment.Delete
        ' ici j'aimerais les jours restants datedif en fonction de ma date de rappel
        .Range("H" & Lig).AddComment Text:="xxx"
        .Range("H" & Lig) = "Oui"
        On Error GoTo 0
      End If
    Next Lig
  End With
  Set OutAppt = Nothing
End Sub

Je voudrais changer mon principe de gestion et envoyer un email à 2 destinataires ou plus que je pourrais modifier à ma guise ( dans un tableau par exemple ) qui contiendrait des rappels suivant les dates de ma colonne E.
Je souhaiterais garder le même principe, où si ma colonne Outlook rappel à un oui je ne renvois pas l'email mise à part si modification il y a. Dans ce cas je supprime l'ancien et je renvoie le nouveau.

J'ai beau chercher, je ne trouve pas mon bonheur et je cale quand il s'agit d'associer excel et mailing .. outlook.


Je vous remercie par avance,
 

Pièces jointes

  • Classeur1.xlsm
    23.5 KB · Affichages: 68
  • Classeur1.xlsm
    23.5 KB · Affichages: 59

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo