Gestion de planning

Signaler
Messages postés
2
Date d'inscription
mardi 3 juillet 2012
Statut
Membre
Dernière intervention
22 octobre 2012
-
bonjour (je tiens a m'excuser si je ne suis pas dans la bonne section)
j'ai besoin de votre aide pour exporté un planning depuis excel
bon j'arrive a envoyer mes demandes de rdv a mon compte et a y ajouter un ou plusieurs participant
maintenant j'aimerais un peu compliquer la chose en :
-envoyant ce planning a un autre compte outlook sans que celui soit ajouter a mon calendrier outlook.
-avoir une alerte si cet autre compte est indisponible
-pouvoir lister toute ses rdv ( je sais le faire sur mon compte mais pas sur un autre non ouvert sur mon poste)
-et lorsque j'envoi un AppointmentItem a mon compte et qu'il est en conflit avec un autre je n'ai pas d'alerte de conflit
voici mon code :

Function EcriturePlanning()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.AppointmentItem
Dim Cell As Range
Dim myConflicts As Outlook.Conflicts
Dim Testeur As String


For Each Cell In Range("b" & (premierLigneDebutIrad - 1) & ":b" & DerniereCellule)
Set myItem = myOlApp.CreateItem(olAppointmentItem)

With myItem
.MeetingStatus = olNonMeeting
.Subject = Cells(13, 10) & " - " & Cells(17, 9) & " - " & Cell.Value
.Start = Cell.Offset(0, 6) 'Format(Cell.Offset(0, 6), "MM/DD/YYYY") ' Attention : format mm/dd/yy
.Duration = Hour(Cell.Offset(0, 8)) * 60 + Minute(Cell.Offset(0, 8)) 'minutes
' .Location = Cells(13, 11)
.ReminderMinutesBeforeStart = 60

.Body = Cells(12, 11) & " " & Testeur & vbCr & Cells(17, 11)
.RequiredAttendees = "*****@*****.com" '<--- ici pour linstant est introduit l'autre compte mais cette methode est simplement du bricolage
.Conflicts'< je n'arrive pas a reccuperer une valeur differente lorsque celui ci est en conflit avec un autre
' .Send

.Save
End With
Set myItem = Nothing
Next Cell


merci pour votre aide