Como abrir o hiperlink no Outlook diretamente em vez da nova janela do navegador

Ao clicar em um hiperlink em um e-mail do Outlook, o link será aberto em seu navegador de Internet padrão. Mas, na verdade, você também pode usar o método apresentado neste artigo para abrir o hiperlink diretamente no Outlook.

Você deve saber que, ao clicar em um hiperlink em um e-mail do Outlook, a página do link será aberta pelo seu navegador de Internet padrão. No entanto, muitos usuários gostariam de abrir o hiperlink diretamente no Outlook. Nas versões anteriores do Outlook, havia uma ferramenta da Web visível e óbvia. Mas agora, esse recurso está oculto. Mesmo assim, na verdade, o Outlook ainda pode funcionar como um navegador da web. Você pode aplicar o seguinte método que está usando o Outlook VBA para alcançá-lo rapidamente.

Abra o hiperlink no Outlook diretamente em vez da nova janela do navegador

1. Em primeiro lugar, inicie seu aplicativo Outlook.
2. Em seguida, pressione os botões de tecla "Alt + F11".
3. Posteriormente, você entrará na janela do editor VBA do Outlook com sucesso.
4. Em seguida, copie e cole os seguintes códigos VBA em um módulo não em uso.

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. Depois disso, adicione a nova macro à barra de ferramentas de acesso rápido ou à faixa de opções como de costume.
6. Posteriormente, altere o nível de segurança de macro do Outlook para baixo.
7. Finalmente você pode tentar. Em primeiro lugar, selecione ou abra um e-mail e, em seguida, pressione o botão macro. Aqui estão 3 casos, dependendo da contagem total de hiperlinks no e-mail.

• Se não houver hiperlink no e-mail, você receberá um aviso, mostrado na captura de tela a seguir:
• Se houver apenas um hiperlink no e-mail, o link será aberto de uma só vez, conforme a imagem abaixo:
• Se houver vários hiperlinks no e-mail, você deverá selecionar um hiperlink, como na imagem abaixo. Depois de inserir o número do hiperlink selecionado, a página da Web correspondente será aberta imediatamente.

Nunca tema os problemas do PST

Muitos usuários entrarão em pânico assim que encontrarem Corrupção PST. É porque eles não tomaram precauções suficientes, como os backups de dados PST atualizados e uma ferramenta de reparo experiente como DataNumen Outlook Repair. Na verdade, desde que você se mantenha bem preparado, não precisará temer nenhum problema de PST.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupção de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com