Como desabilitar automaticamente os hiperlinks em emails do Outlook recebidos de remetentes desconhecidos

Para bloquear links maliciosos, é melhor configurar seu Outlook para desabilitar automaticamente os hiperlinks em e-mails recebidos de remetentes desconhecidos. Este artigo revelará alguns códigos VBA que podem ajudá-lo a obtê-lo como uma rolha.

Muitos usuários reclamaram que vírus de e-mail atacaram seu arquivo do Outlook. Na maioria das vezes, é porque eles confiam prontamente nesses e-mails de remetentes desconhecidos. Então eles baixam ou clicam nos hiperlinks nos e-mails. Agora, a seguir, vamos compartilhar um método. É capaz de permitir que o Outlook desative automaticamente os hiperlinks de emails recebidos de remetentes desconhecidos. Se você tiver essas necessidades, continue lendo para obter mais detalhes.

Desativar hiperlinks automaticamente em e-mails recebidos de remetentes desconhecidos

1. Para comotart, no Outlook, vá para o editor VBA por “Alt + F11”.
2. A seguir, na nova tela, adicione o objeto “MS VBScript Regular Expressions” conforme post "Como adicionar uma biblioteca de objetosrary Referência em VBA".
3. Em seguida, copie e cole o seguinte código no projeto “ThisOutlookSession”.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

'Occurs when new mail arrives in your Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As MailItem
    Dim objContacts As Outlook.Items
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim bUnknownSender As Boolean
    Dim objRegExp As Object
    Dim objFoundResults As Object
    Dim i, n As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Check if the sender is in your default Contact folder
       Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
       For i = 1 To 3
           strFilter = "[Email" & i & "Address] = " & objMail.SenderEmailAddress
           Set objFoundContact = objContacts.Find(strFilter)
           If Not (objFoundContact Is Nothing) Then
              bUnknownSender = False
              Exit For
           End If
       Next
       If objFoundContact Is Nothing Then
          bUnknownSender = True
       End If
 
       'If the sender is unknown
       If bUnknownSender = True Then
          'Find the urls within "<a href=" tags in HTMLbody of Mail
          Set objRegExp = CreateObject("vbscript.RegExp")
          With objRegExp
               .Pattern = "<?href\s*=\s*[""'].+?[""'][^>]*?"
               .IgnoreCase = True
               .Global = True
          End With
 
          If objRegExp.Test(objMail.HTMLBody) Then
             Set objFoundResults = objRegExp.Execute(objMail.HTMLBody)
             For n = 1 To objFoundResults.Count
                 'Disable the hyperlinks in HTMLbody
                 objMail.HTMLBody = Replace(objMail.HTMLBody, objFoundResults.Item(n - 1).Value, "")
             Next
          End If
 
          'Save the mail
          objMail.Save
       End If
    End If
End Sub

4. Depois disso, ative esta macro por restart Outlook ou pressionando o botão de tecla “F5” em “Application_Starsub-rotina tup”.
5. Desde então, sempre que um e-mail proveniente do remetente que não está armazenado na pasta de contatos padrão chega à caixa de entrada, o Outlook desabilita automaticamente os hiperlinks nele contidos.

Várias questões de necessidade na proteção do Outlook

Como o Outlook é suscetível a danos, é muito difícil proteger o arquivo do Outlook. Aqui listaremos vários itens obrigatórios durante a proteção de dados do Outlook. Em primeiro lugar, você deve fazer backup de seus dados do Outlook regularmente. Além disso, é essencial que você tome cuidado com todos os riscos potenciais, como anexos ou hiperlinks maliciosos. Por último, mas não menos importante, você deve preparar uma poderosa ferramenta de correção do Outlook com antecedência, como DataNumen Outlook Repair. Certamente será útil quando você precisar reparar PST arquivo, mas a ferramenta de reparo da caixa de entrada prova falha.

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 mdf danificado e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com