Grâce à son langage de programmation intégré, la version 97 du traitement de texte de Microsoft est en mesure d’interroger une messagerie Outlook. Ainsi, l’utilisateur de Word peut, sans quitter son document, connaître son prochain rendez-vous ou s’enquérir de l’arrivée de nouveaux messages. Pour mettre en ?”uvre cette nouvelle fonction, créez une macro. Déroulez le menu Outils et sélectionnez Macro/Visual Basic Editor. Placez-vous à la fin du module NewMacros et saisissez l’intégralité du listing ci-dessous.Listing :
Sub ArriveeMail()
Dim msg As String
Dim dureePause, debut, nbmail
If Tasks.Exists(Name:=”Microsoft Outlook”) = True Then
Set obj = GetObject(, “Outlook.Application”)
Else
Set obj = CreateObject(“Outlook.Application”)
End If
Set objns = obj.GetNamespace(“MAPI”)
Set mailfolder = objns.GetDefaultFolder(olFolderInbox)
nbmail = mailfolder.UnReadItemCount
If nbmail > 0 Then
msg = “Vous avez ” & nbmail & ” message”
If nbmail <> 1 Then
msg = msg + “s”
End If
Else
msg = “Pas de nouveau message”
End If
Application.Caption = msg
dureePause = 10
debut = Timer
Do While Timer < debut + dureePause
DoEvents
Loop
msg = “Microsoft Word”
Application.Caption = msg
End SubAvant de tester le programme, indiquez à l’éditeur Visual Basic qu’il doit exploiter la bibliothèque d’objets de Microsoft Outlook 97 (cela ne fonctionne pas avec Outlook Express). Pour cela, choisissez Outils/Références et activez l’option [microsoft Outlook 8.0 Object Library]. La macro est prête. Enregistrez-la et revenez au document Word. Exécutez la macro depuis Outils/Macro/Macros ou associez-la à un bouton d’une barre d’outils.Dans un premier temps, le programme teste si la messagerie est déjà ouverte. Si ce n’est pas le cas, il ouvre une nouvelle instance d’Outlook invisible à l’utilisateur. Puis, il vérifie le contenu de la boîte de réception à la recherche de messages n’ayant pas encore été lus. Quand il en trouve, il affiche leur nombre dans la barre de titre de l’application Word. Après 10 secondes, la macro s’arrête laissant la barre de titre comme à l’origine.
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
