Πώς να ανοίξετε απευθείας τον υπερσύνδεσμο στο Outlook αντί για το νέο παράθυρο προγράμματος περιήγησης

Όταν κάνετε κλικ σε έναν υπερσύνδεσμο σε ένα email του Outlook, ο σύνδεσμος θα ανοίξει στο προεπιλεγμένο πρόγραμμα περιήγησής σας στο Διαδίκτυο. Αλλά στην πραγματικότητα μπορείτε επίσης να χρησιμοποιήσετε τη μέθοδο που εισάγεται σε αυτό το άρθρο για να ανοίξετε τον υπερσύνδεσμο απευθείας στο Outlook.

Πρέπει να γνωρίζετε ότι όταν κάνετε κλικ σε έναν υπερσύνδεσμο σε ένα email του Outlook, η ιστοσελίδα του συνδέσμου θα ανοίξει από το προεπιλεγμένο πρόγραμμα περιήγησης στο Διαδίκτυο. Ωστόσο, υπάρχουν πολλοί χρήστες που θα ήθελαν να ανοίξουν απευθείας τον υπερσύνδεσμο στο Outlook. Στις παλαιότερες εκδόσεις του Outlook, υπήρχε ένα ορατό και προφανές εργαλείο ιστού. Αλλά τώρα, αυτή η δυνατότητα είναι κρυφή. Ωστόσο, στην πραγματικότητα, το Outlook μπορεί να λειτουργήσει ως πρόγραμμα περιήγησης στο Web Μπορείτε να εφαρμόσετε την ακόλουθη μέθοδο που χρησιμοποιεί το Outlook VBA για να το επιτύχετε σε γρήγορο χρόνο.

Άνοιγμα υπερσύνδεσης στο Outlook απευθείας αντί για νέο παράθυρο προγράμματος περιήγησης

1. Πρώτα, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11".
3. Στη συνέχεια, θα μπείτε στο παράθυρο του προγράμματος επεξεργασίας του Outlook VBA με επιτυχία.
4. Στη συνέχεια αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε μια μονάδα που δεν χρησιμοποιείται.

Public Sub OpenHyperlinkswithinOutlook()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim objHyperlink As Word.Hyperlink
    Dim strHyperlinkList As String
    Dim strNumber As String
    Dim strURL As String
    Dim objExplorer As Explorer
    Dim objWebBrowser As Object
    Dim nAlert As Integer
 
    On Error Resume Next
    Select Case TypeName(Outlook.Application.ActiveWindow)
           Case "Inspector"
                Set objMail = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select

    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count < 1 Then
       nAlert = MsgBox("There is no hyperlink in this email!", vbExclamation)
 
       'Get the URL of the only hyperlink
    ElseIf objHyperlinks.Count = 1 Then
       Set objHyperlink = objWordDocument.Hyperlinks.Item(1)
       strURL = objHyperlink.Address
 
       'Select which hyperlink to open
    ElseIf objHyperlinks.Count > 1 Then
       For i = 1 To objHyperlinks.Count
           strHyperlinkList = strHyperlinkList & i & ": " & objHyperlinks.Item(i).Address & vbCrLf
       Next i
 
       For i = 1 To objHyperlinks.Count
           strNumber = InputBox("You have " & objHyperlinks.Count & " hyperlinks in this email as follows. " & vbCrLf & vbCrLf & "Please enter the number to select which one to be opened within your Outlook (format: 1)." & vbCrLf & vbCrLf & strHyperlinkList, "Select Hyperlink")
           Set objHyperlink = objWordDocument.Hyperlinks.Item(strNumber)
           strURL = objHyperlink.Address
           Exit For
       Next i
    End If
 
    'Open the selected hyperlink
    Set objExplorer = Application.ActiveExplorer
    Set objWebBrowser = objExplorer.CommandBars.FindControl(, 1740)

    objWebBrowser.Text = strURL
    objWebBrowser.Execute
End Sub

5. Μετά από αυτό, προσθέστε τη νέα μακροεντολή στη Γραμμή εργαλείων γρήγορης πρόσβασης ή την κορδέλα ως συνήθως.
6. Αργότερα αλλάξτε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
7. Τέλος, μπορείτε να δοκιμάσετε. Αρχικά, επιλέξτε ή ανοίξτε ένα email και, στη συνέχεια, πατήστε το κουμπί μακροεντολής. Ακολουθούν 3 περιπτώσεις ανάλογα με το συνολικό πλήθος των υπερσυνδέσμων στο email.

• Εάν δεν υπάρχει υπερσύνδεσμος στο email, θα λάβετε μια προειδοποίηση, η οποία εμφανίζεται ως το ακόλουθο στιγμιότυπο οθόνης:
• Εάν υπάρχει μόνο ένας υπερσύνδεσμος στο email, ο σύνδεσμος θα ανοίξει ταυτόχρονα, όπως η παρακάτω εικόνα:
• Εάν υπάρχουν αρκετοί υπερσύνδεσμοι στο email, θα σας ζητηθεί να επιλέξετε έναν υπερσύνδεσμο, όπως η παρακάτω εικόνα. Αφού εισαγάγετε τον αριθμό της επιλεγμένης υπερ-σύνδεσης, η αντίστοιχη ιστοσελίδα θα ανοίξει ταυτόχρονα.

Ποτέ μην φοβάστε τα προβλήματα PST

Πολλοί χρήστες θα πανικοβληθούν μόλις αντιμετωπίσουν απρόσμενα Διαφθορά PST. Είναι επειδή δεν έχουν λάβει επαρκείς προφυλάξεις, όπως τα ενημερωμένα αντίγραφα ασφαλείας δεδομένων PST και ένα έμπειρο εργαλείο επισκευής όπως DataNumen Outlook Repair. Στην πραγματικότητα, αρκεί να είστε καλά προετοιμασμένοι, δεν θα χρειαστεί να φοβάστε προβλήματα PST.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διαφθορά MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com