会議場所を地図上で確認したい場合もあるでしょう。そこで、この記事では、Outlook内で会議場所を直接地図上に表示できるVBAコードをご紹介します。
ご存知のとおり、Outlookには連絡先アドレスをマッピングするためのネイティブ機能があります。 ただし、会議の場所をマッピングする機能はありません。 したがって、多くのユーザーは会議の場所をマッピングする方法を楽しみにしています。 一般に、インターネットブラウザの任意のマップサービスを利用して、会議の場所を検索できます。 しかし、間違いなく、それは少し面倒です。 したがって、ここでは、会議の場所をOutlookに直接マップする方法を説明します。 次に、詳細な手順と具体的なVBAコードを取得するために読んでください。
Outlook内で会議の場所を直接マップする
- まず、Outlookプログラムを起動してください。
- Outlookのメインウィンドウに入ったら、「Alt + F11」キーボタンを押します。
- その後、OutlookVBAエディターウィンドウにアクセスできるようになります。
- 次に、使用されていないモジュールを見つけて開く必要があります。
- 次に、次のVBAコードをコピーしてこのモジュールに貼り付けることができます。
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
- その後、将来の便利なチェックのために、クイックアクセスツールバーまたはリボンに新しいマクロを追加することをお勧めします。
- 後で、Outlookマクロのセキュリティレベルを低に変更する必要があります。
- 最後に、試してみることができます。
- まず、会議を開いて独自のウィンドウに表示するか、会議を選択して閲覧ウィンドウに表示することができます。
- 次に、クイックアクセスツールバーで新しく追加されたマクロを押すことができます。
- 次のOutlookは、メインウィンドウでGoogleマップを開き、次のスクリーンショットのように会議の場所をマップします。
エラーから免れることができない
複数の機能を備えているにもかかわらず、Outlookは依然としてエラーを免除することはできません。 たとえば、Outlookの使用中にさまざまな問題が発生する可能性があります。 したがって、Outlookデータを定期的にバックアップしたり、堅牢なデータを準備したりするなど、十分な予防策を講じる必要があります。 Outlookの回復 などのツール DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを回復する と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com