Sådan kortlægges mødested direkte i Outlook

Nogle gange vil du måske tjekke mødestedet på et kort. Derfor vil vi i dette indlæg vise dig et stykke VBA-kode, som giver dig mulighed for at kortlægge mødestedet direkte i Outlook.

Som vi alle ved, har Outlook en oprindelig funktion til kortlægning af kontaktadressen. Der er dog ingen funktion til kortlægning af mødestedet. Derfor ser mange brugere frem til en metode til kortlægning af mødeplacering. Generelt kan du ty til alle Map-tjenester i internetbrowseren og derefter søge på mødestedet. Men uden tvivl er det lidt besværligt. Således lærer vi dig her at kortlægge et mødested direkte i din Outlook. Læs videre for at få de detaljerede trin og den konkrete VBA-kode.

Kort mødested direkte i Outlook

1. Til at starte med skal du starte dit Outlook-program.
2. Når du er kommet ind i hovedvinduet i Outlook, skal du trykke på "Alt + F11" -tasten.
3. Derefter vil du kunne få adgang til Outlook VBA editor-vinduet.
4. Derefter skal du finde og åbne et modul, der ikke bruges.
5. Dernæst kan du kopiere og indsætte følgende VBA-kode i dette modul.

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

6. Derefter, for fremtidig bekvem kontrol, skulle du bedre tilføje den nye makro til Quick Access Toolbar eller bånd.
7. Senere skal du ændre dit Outlook-makro-sikkerhedsniveau til lavt.
8. Endelig kan du prøve.

• For det første kan du åbne et møde for at se det i sit eget vindue eller bare vælge et møde for at se det i læseruden.
• Derefter kan du trykke på den nyligt tilføjede makro i værktøjslinjen Hurtig adgang.
• Næste Outlook åbner Google Maps i hovedvinduet og kortlægger mødeplaceringen som på følgende skærmbillede:

Kan ikke være immun over for fejl

På trods af at man kan prale af flere funktioner, kan Outlook stadig ikke fritages for fejl. For eksempel kan du støde på forskellige problemer under brugen af ​​Outlook. Således skal du træffe tilstrækkelige forholdsregler, som at sikkerhedskopiere Outlook-data regelmæssigt og forberede en robust Outlook opsving værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com