Samedi 01 Novembre 2014  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Assistance à distance
Bibliographie
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 6
Membres en ligne : 0

 JièL 3 jours
 bisdul 1 semaine
 Alphabeta 2 semaines
 zwartepiet 4 semaines
 jpl06530 7 semaines
 maipouet 8 semaines
 Superpat 11 semaines
 Quartzkyte 12 semaines
 Christian69 13 semaines
 zeners 13 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 586
En ligne :6
Max. en ligne:119
Max. / jour:66 529
Total hier:0
Total ce mois:1 586
Total visites:11 848 662
Moyenne/jour:5 438

Dernières 24h

























Publicité ; elle permet de financer le site
Voir le sujet
Poster sans créer un compte : Cliquez ici

FAQ Outlook » Outlook » VBA Outlook (fermé)
Activer / Désactiver mode Hors Connexion
Pseudo
Mot de passe
S'enregistrer FAQ Membres Aujourd'hui Recherche

Imprimer le sujet

Il y a 212 semaines à 14:55 | Edité par dubwise 212 semaines
Membre

Messages : 17
Inscription : 15/12/08
dubwise
Membre
  Activer / Désactiver mode Hors Connexion
 
Bonjour à tous,

Je suis en train de tester la solution Google Apps Premium dans l'idée d'obtenir une solution alternative à Exchange.
En effet, dans cette version de Google Apps (payante, 40 € HT / an et par utilisateur), un outil de synchronisation pour Outlook utilisant MAPI est fourni (Google Apps Sync) et permet la synchro mails/contacts/agenda(s).
Cela fonctionne très bien mais j'ai un petit souci :
- la synchro se lance au démarrage d'Outlook --> Ok
- les évènements sont mis à jour immédiatement sur Google Apps dès que l'on modifie quelque chose dans Outlook --> Ok
- En revanche, si par exemple on travaille à plusieurs sur un Agenda, les modifications effectués par un collègue ne seront rapatriées qu'au prochain lancement d'Outlook car elles n'ont pas été effectuées depuis le même Outlook.

L'outil Google Apps Sync ne dispose pas d'un paramètre permettant de lui indiquer de resynchroniser toutes les x minutes pour récupérer d'éventuelles modifications externe.
Bon, mon histoire n'est pas très claire, cependant j'ai une solution toute simple pour relancer cette demande de synchro : passer en mode hors connexion / repasser en mode connecté.
Donc, j'ai simplement besoin de trouver comment faire ça en VBA et automatiser l'opération toutes les x minutes ou bien affecter cette macro à un bouton.

Une idée ?
Merci d'avance et bonne journée Wink

PS : j'utilise Outlook 2010 / Windows 7
 

Il y a 212 semaines à 16:22
Membre

Messages : 17
Inscription : 15/12/08
dubwise
Membre
RE: Activer / Désactiver mode Hors Connexion
 
Hello,

Je me réponds à moi-même ;-)
Donc, j'ai trouvé la solution à l'aide de l'excellent outil OutlookSpy.
Ci-dessous le code VBA à coller dans un module :

Télécharger la source  Code
Sub ActiverDesactiverModeHorsConnexion()
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 5613)
Btn.Execute
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 5613)
Btn.Execute
End Sub




5613 est l'ID du bouton "Travailler Hors Connexion"
La macro simule 2 clics l'un après l'autre : 1er clic - On active "Travailler Hors Connexion" / 2ème clic - On désactive "Travailler Hors Connexion"
Bon, c'est du bricolage mais ça résout mon problème.
J'aurai bien aimé mettre une pause de 5 secondes entre les 2 clics, mais je ne sais pas faire.
Maintenant il me reste à trouver comment exécuter cette macro toutes les 5 minutes, mais je suppose que ce n'est pas très compliqué.
Bonne journée :)

Ca fonctionne très bien, il
 

Il y a 212 semaines à 18:13
Membre

Messages : 17
Inscription : 15/12/08
dubwise
Membre
RE: Activer / Désactiver mode Hors Connexion
 
C'est bon, après quelques recherches sur le net j'ai trouvé comment automatiser tout ça :

Dans ThisOutlookSession, ajouter :
Télécharger la source  Code

Private Sub Application_Quit()
  If TimerID <> 0 Then Call DeactivateTimer 'Turn off timer upon quitting **VERY IMPORTANT**
End Sub

Private Sub Application_Startup()
  Call ActivateTimer(1) 'Set timer to go off every 1 minute
End Sub





Dans un module :
Télécharger la source  Code

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID As Long 'Need a timer ID to eventually turn off the timer. If the timer ID <> 0 then the timer is running

Public Sub ActivateTimer(ByVal nMinutes As Long)
  nMinutes = nMinutes * 1000 * 300 'The SetTimer call accepts milliseconds, so convert to minutes
  If TimerID <> 0 Then Call DeactivateTimer 'Check to see if timer is running before call to SetTimer
  TimerID = SetTimer(0, 0, nMinutes, AddressOf TriggerTimer)
  If TimerID = 0 Then
    MsgBox "The timer failed to activate."
  End If
End Sub

Public Sub DeactivateTimer()
Dim lSuccess As Long
  lSuccess = KillTimer(0, TimerID)
  If lSuccess = 0 Then
    MsgBox "The timer failed to deactivate."
  Else
    TimerID = 0
  End If
End Sub

Public Sub TriggerTimer(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idevent As Long, ByVal Systime As Long)
Call ActiverDesactiverModeHorsConnexion
End Sub

Sub ActiverDesactiverModeHorsConnexion()
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 5613)
Btn.Execute
Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 5613)
Btn.Execute
End Sub





Bonne soirée ;-)
 

Il y a 212 semaines à 21:35
Membre

Messages : 218
Inscription : 08/06/10
Geo
Membre
RE: Activer / Désactiver mode Hors Connexion
 
Bonsoir

c'est sympa, revenez quand vous voulez.
On apprend des tas de choses avec vous.

Outlook Spy c'est gratuit ou c'est seulement le téléchargement qui est gratuit ?
 

Il y a 212 semaines à 22:46
Avatar du membre

Administrateur

Messages : 788
Inscription : 04/12/08
Localisation: Isère
Âge : 37 ans
Fabrice N
Administrateur
RE: Activer / Désactiver mode Hors Connexion
 
Il en faudrait plus souvent des demandes comme celle là...

Tu viens avec ta question, tu y réponds tout seul et nous on apprend quelque chose...Cool
Si c'est pas génial !!!!
 

Il y a 212 semaines à 10:24
Membre

Messages : 218
Inscription : 08/06/10
Geo
Membre
RE: Activer / Désactiver mode Hors Connexion
 
Juste un complément, le bouton de connexion change d'état, quel que soit l'état précédent.
Si on veut se placer dans un état défini (connecté ou déconnecté), il faut auparavant vérifier si on est connecté ou pas :
Télécharger la source  Code
Set NS = GetNamespace("MAPI")
If NS.Offline = False Then ' Connecté



 

Il y a 211 semaines à 11:29
Membre

Messages : 17
Inscription : 15/12/08
dubwise
Membre
RE: Activer / Désactiver mode Hors Connexion
 
Bonjour,

Je ne viens pas souvent ici, par manque de temps j'avoue avoir plutôt une démarche opportuniste en fonction des petits trucs que j'ai à résoudre parfois, mais en tout cas l'accueil est toujours très sympa.
Je suis très content d'apprendre que j'ai pu moi aussi contribuer un peu, c'est bien normal puisque j'ai souvent trouvé ici des petites infos et astuces qui m'ont aidé.
Merci à tous les 2 pour les encouragements ;-)
Et merci bcp Geo pour le complément.
A bientôt.
 

Aller vers le forum :
Forum powered by fusionBoard
Partager ce sujet
Ajouter aux favoris : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Sujets similaires
Sujet Forum Réponses Dernier Post
Activer le suivi (tache) d'un message dans outlook 2007 Outlook 2010 (fermé) 0 18/08/11 08:27
Supprimer ou désactiver les raccourcis clavier Outlook 2002/2003 (fermé) 0 21/06/11 13:26
forcer la connexion d'un pst via un script Outlook 2002/2003 (fermé) 1 09/06/11 09:54
Activer des éléments désactivés VBA Outlook (fermé) 0 16/05/11 18:14
Tous les contacts apparaissent hors-ligne dans Windows Live Messenger Outlook 2010 (fermé) 0 06/05/11 03:55

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]