Supprimer ou Mise à jour de rendez-vous outlook
- Messages
- 409
- Excel
- 365, Anglais
- Inscrit
- 07/03/2016
- Emploi
- Entrepreneur en construction
Salut Forum,
ce petit code qui me permet d'exporter mes tâches MsProject dans mon calendrier Outlook, et qui envoie automatiquement des courriels aux fournisseurs associés
Malheureusement je n'arrive pas à faire la mise à jour des appointments lorsqu'il y a des changements
pouvez-vous m'aider
j'aimerais que le vérification se fasse sur le nom de la tâche .Name, sur la .Categories
Le nom du calendrier se retrouve en combobox1 et la catégorie en combobox2
Je voudrais changer toutes les autres cases sur la ligne
Aussi: si le le rdv n'existe pas un msgbox qui demande si on veut supprimer dans le calendrier?
Merci!
J'ai mis en commentaire la section que je ne suis pas capable d'écrire correctement
Dites moi s'il vous manque un détail ou si vous avez besoin d'un fichier
Private Sub CommandButton1_Click()
On Error Resume Next
Dim rdv As Outlook.AppointmentItem
Dim calendrier As Outlook.Folder
Dim t As Task
Dim pj As Project
Dim rdvcheck As Outlook.AppointmentItem
Set calendrier = dic_calendriers(Me.ComboBox1.Value)
Set pj = ActiveProject
For Each t In pj.Tasks
' For Each rdvcheck In calendrier.Items
' If InStr(rdvcheck.Subject, t.Name) <> 0 And InStr(rdvcheck.Categories, Me.ComboBox2.Value) <> 0 Then
' 'Debug.Print "Modifié: " & oAppt.Subject & " - " & oAppt.Start
' rdvcheck.Start = Replace(rdvcheck.Start, rdvcheck.Start, t.Start)
' rdvcheck.End = Replace(rdvcheck.Finish, rdvcheck.Finish, t.Finish)
' rdvcheck.Send
' rdvcheck.Save
'Next
'Else
Set rdv = calendrier.Items.Add
With rdv
.Subject = t.Name
.Start = t.Start
.End = t.Finish
.Categories = Me.ComboBox2.Value
.Recipients = t.Text1
.Location = t.Text2
.MeetingStatus = olMeeting
.Send
.Save
End With
' End If
Next t
End Sub