Syncronisatoin calendrier outlook VBA

Syncronisatoin calendrier outlook VBA - VB/VBA/VBS - Programmation

Marsh Posté le 01-12-2008 à 15:19:07    

Bonjour,
 
Chacun des utilisateurs du réseau a un compte de messagerie utilisable via outlook.
Chacun a un fichier de donnée sur son propre poste et un sur le serveur exchange.
Mon problème est que du coup les utilisateurs possede deux calendrier.
 
Pour des raisons de compatibilité avec d'autre programme et de gestion, il ets préférable d'utiliser le calendrier qui est sur le poste de l'utilisateur et non sur le serveur.
 
Je cherche donc a crée un script permetant de copier ce calendrier sur le serveur dès que un nouveaux rendez vous est crée.
 
Pour le moment j'arrive a afficher un message lors de la modification, création, supression d'éléments, mais je ne sais pas comment les copier sur l'autre calendrier.
De plus je me demande, si l'utilisateur travail hors connexion, les rendez-vous ne pourons pas être syncroniser, seront-il garder en mémoire et synchroniser a la prochaine connexion ou les données seront-elle perdu une fois outlook fermer ?
 
Voici ce que j'ai pour le moment :

Code :
  1. Dim WithEvents colSentItems As Items
  3. Private Sub Application_Startup()
  4. 'pour evenement itemadd
  5.    Dim NS As Outlook.NameSpace
  6.    Set NS = Application.GetNamespace("MAPI" )
  7.    Set colSentItems = NS.GetDefaultFolder(olFolderCalendar).Items
  8.    Set NS = Nothing
  9. 'Fin Section
  10. End Sub
  11. Private Sub colSentItems_ItemAdd(ByVal Item As Object)
  12. 'By Oliv ' janv 2008 pour Outlook 2003 feat. Sue Mosher
  13. MsgBox Item.Subject
  14. End Sub


 
 
Merci par avance de votre aide.

Reply

Marsh Posté le 01-12-2008 à 15:19:07   

Reply

Marsh Posté le 02-12-2008 à 22:10:33    

Bonsoir
 
Il faut que tu recuperes chaque evenement, regarde s'il existe, et sinon le créer a la main... Debut, fin, Objet, Description etc.
 
Tu as deja un bon debut avec
Set colSentItems = NS.GetDefaultFolder(olFolderCalendar).Items
Ca te permet de recuperer le nom de tes calendriers et de passer de l'un a l'autre pour mettre a jour les proprietes des evenements.
 
Je te laisse aller faire un tour ici ou le sujet et la suite pourrait t'interresser : http://www.developpez.net/forums/d [...] ormations/
 
Si tu as besoin d'aide/indice aucun souci.
 
Cordialement


Message édité par SuppotDeSaTante le 02-12-2008 à 22:29:31

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 03-12-2008 à 08:53:09    

Merci beaucoup pour l'info, j'ai regarder, vu que e debute en VBA, j'ai un peu de mal a tout comprendre.
 
J'arrive désormais a recuperer mes evenements et les afficher par MsgBox, et j'ai trouver GetSharedDefaultFolder pour selectionner le calendrier exchange, par contre chaque fois que le code est exécuter, outlook affiche une fenetre demandé si l'utilisateur désire autorisé l'accés au script.
Y aurait il la possibilité d'autoriser cette accés en permanance ?
En faite le faite que le message s'affiche me gêne, le but étant de syncroniser les calendriers de maniere transparente pour l'utilisateur, sans qu'il ai quoique ce soit a faire.


Message édité par darknewbie31 le 03-12-2008 à 11:09:50
Reply

Marsh Posté le 04-12-2008 à 10:01:45    

Je ne me souviens plus si j'avais reussi a l'enlever cette boite...
Faudrait que je retrouve mes codes...
 
Parcontre, je viens de faire un essai, en faisant une pause de 5 secondes et un SendKey ca a l'air de passer...


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 04-12-2008 à 11:06:06    

Tiens ca devrait t'aider.
 

Citation :

Sub darknewbie31()
 
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI" )
 
'On pointe sur le calendrier pour chercher les valeurs a copier
Set MonDoss = MonNameSpace.GetDefaultFolder(olFolderCalendar) 'ou le GetSharedDefaultFolder
 
'Pour chaque evenements, on va le copier dans l'autre calendrier
For Each EvenCalend In MonDoss.Items
    'On defini les variables de l'evenement, debut, fin, sujet etc.
    Sujet = EvenCalend.Subject
    DateDeb = EvenCalend.Start
    DateFin = EvenCalend.End
    Texte = EvenCalend.Body
    Lieu = EvenCalend.Location
     
    'On fait pointer sur le secon calendrier, celui ou on va copier les infos.
    Set MonDoss2 = MonNameSpace.GetDefaultFolder(olFolderCalendar)
    Set MonSousDoss = MonDoss2.Folders(1) 'si tu plus de calendrier il faut mettre le bon numéro de calendrier
     
    'On cree un nouvel evenement sur le second calendrier
    Set MonObj = MonSousDoss.Items.Add(olAppointmentItem)
     
    'On affecte les variables precedentes a début, fin, sujet etc.
    MonObj.Start = DateDeb
    MonObj.End = DateFin
    MonObj.Subject = Sujet
    MonObj.Body = Texte
    MonObj.Location = Lieu
     
    'On ferme et on sauvegarde.
    MonObj.Close olSave
     
    'MonObj.Display
     
Next EvenCalend
 
End Sub


 
J'ai fait ca en 10mn, il manque deux trois choses... A toi de l'ameliorer, notament a tester si l'evenement existe deja, et si oui, bah ne pas le dupliquer etc.
 
Et là, aucune boite de dialogue normalement...
 
Cordialement


Message édité par SuppotDeSaTante le 04-12-2008 à 11:07:59

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 05-12-2008 à 20:00:21    

Merci de ton aide, je vais tester ca et voir comment je peux rajouter ce qui manque pour éviter les doublon, supprimer ...
 
EDIT : bon en faite projet abandonné, trop compliqué et surtout trop instable, impossibilité d'avoir une correspondance en mode hors ligne etc ...
Du coup j'ai réussi a faire adopté un changement de politique en matière de serveur exchange et gestion de mail, les utilisateurs se retrouve avec un seul calendrier, plus de soucis.
 
Merci beaucoup de ton aide, qui m'ai fort aidé même si le projet n'a pas abouti :)


Message édité par darknewbie31 le 08-12-2008 à 18:17:49
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed