Il peut arriver que vous souhaitiez visualiser le lieu d'une réunion sur une carte. C'est pourquoi, dans cet article, nous vous présentons un extrait de code VBA qui vous permettra d'afficher directement le lieu de la réunion dans Outlook.
Comme nous le savons tous, Outlook dispose d'une fonctionnalité native pour mapper l'adresse de contact. Cependant, il n'y a pas de fonction pour cartographier le lieu de la réunion. Par conséquent, de nombreux utilisateurs attendent avec impatience une méthode pour cartographier le lieu de réunion. En général, vous pouvez recourir à n'importe quel service Map dans le navigateur Internet, puis rechercher le lieu de la réunion. Mais sans aucun doute, c'est un peu gênant. Ainsi, ici nous allons vous apprendre à cartographier un lieu de rendez-vous directement dans votre Outlook. Maintenant, lisez la suite pour obtenir les étapes élaborées et le code VBA concret.
Mapper le lieu de la réunion directement dans Outlook
- Pour commencer, lancez votre programme Outlook.
- Après être entré dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
- Par la suite, vous pourrez accéder à la fenêtre de l'éditeur Outlook VBA.
- Ensuite, vous devez trouver et ouvrir un module qui n'est pas utilisé.
- Ensuite, vous pouvez copier et coller le code VBA suivant dans ce module.
Sub MapMeetingLocationiwithinOutlook()
Dim objMeeting As Outlook.AppointmentItem
Dim objWordDocument As Word.Document
Dim strMeetingLocation As String
Dim strURL As String
Dim objExplorer As Explorer
Dim objWebBrowser As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Inspector"
Set objMeeting = ActiveInspector.CurrentItem
Case "Explorer"
Set objMeeting = ActiveExplorer.Selection.Item(1)
End Select
strMeetingLocation = objMeeting.Location
If strMeetingLocation <> "" Then
strMeetingLocation = Replace(strMeetingLocation, " ", "-")
'Use Google Maps
strURL = "http://maps.google.com/maps?q=" & strMeetingLocation
'Open the map of the meeting location within Outlook
Set objExplorer = Application.ActiveExplorer
Set objWebBrowser = objExplorer.CommandBars.FindControl(, 1740)
objWebBrowser.Text = strURL
objWebBrowser.Execute
Else
MsgBox "Invalid Location", vbExclamation
End If
End Sub
- Après cela, pour une future vérification pratique, vous feriez mieux d'ajouter la nouvelle macro à la barre d'outils ou au ruban d'accès rapide.
- Plus tard, vous devrez modifier le niveau de sécurité de votre macro Outlook sur faible.
- Enfin, vous pouvez essayer.
- Tout d'abord, vous pouvez ouvrir une réunion pour l'afficher dans sa propre fenêtre ou simplement sélectionner une réunion pour l'afficher dans le volet de lecture.
- Ensuite, vous pouvez appuyer sur la macro nouvellement ajoutée dans la barre d'outils d'accès rapide.
- Ensuite, Outlook ouvrira Google Maps dans sa fenêtre principale et cartographiera le lieu de la réunion, comme dans la capture d'écran suivante :
Impossible d'être à l'abri des erreurs
Malgré ses nombreuses fonctionnalités, Outlook ne peut toujours pas être exempt d'erreurs. Par exemple, vous pouvez rencontrer divers problèmes lors de l'utilisation d'Outlook. Ainsi, vous devez prendre des précautions suffisantes, comme sauvegarder régulièrement les données d'Outlook et préparer une base de données robuste. Récupération d'Outlook outil, tel que DataNumen Outlook Repair.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com