1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub Modif()
Dim Ol As New Outlook.Application, rv As Outlook.AppointmentItem, deb As Date, i&, dur&, n&, a&
With Feuil1
For i = 3 To .Range("B" & Rows.Count).End(xlUp).Row
If .Cells(i, 7) = "" And .Cells(i, 9) <> "" And .Cells(i, 10) <> "" Then
Set rv = .Cells(i, 10) ' .Cells(i,10) contient le EntryID du rendez Vous de la ligne i
'maintenant comment retrouver les différents éléments ci-dessous pour remplacer les ? et
remplir là ou il y a "?" merci d'avance
With rv
.Subject = "?"
.Body = "?"
.Location = "?"
.Start = "?"
.Duration = "?"
.Categories = "?"
.Save
End With
.Cells(i, 10) = rv.EntryID
Set rv = Nothing
End If
Next i
End With
Set Ol = Nothing
End Sub |
Partager