Bonjour,
j'ai récemment incrémenter une macro qui me permet d'envoyer un rappel suivant une date !
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,
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,