Come salvare automaticamente tutti gli allegati dai mittenti in un dominio specifico tramite Outlook VBA

Se desideri consentire a Outlook di salvare automaticamente tutti gli allegati dai mittenti i cui indirizzi e-mail si trovano in un dominio specifico, puoi leggere questo articolo. Qui ti presenteremo un metodo rapido.

Forse tutto il personale della tua azienda utilizza gli indirizzi e-mail che si trovano nello stesso dominio. Poiché si inviano spesso e-mail con vari allegati tra loro, è possibile che Outlook salvi automaticamente gli allegati da tali e-mail. In questo caso, a Outlook verrà richiesto di controllare automaticamente il dominio del mittente dell'e-mail e di salvare automaticamente gli allegati. Ora, di seguito, condivideremo un pezzo di codice VBA che è in grado di realizzarlo con facilità senza sforzo.

Salva automaticamente tutti gli allegati dai mittenti in un dominio specifico

1. Inizialmente, esegui l'editor VBA di Outlook in base a "Come eseguire il codice VBA in Outlook".
2. Quindi, inserisci il codice seguente in un modulo inutilizzato.

Public WithEvents objInboxItems As Outlook.Items

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

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   Dim objMail As Outlook.MailItem
   Dim strSenderAddress As String
   Dim strSenderDomain As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

3. Dopodiché, riavvia Outlook per attivare la macro.
4. Da allora, ogni volta che un'e-mail in arrivo entra nella tua casella di posta, Outlook controllerà automaticamente il dominio del mittente. Se è uguale al dominio predefinito e contiene allegati, Outlook salverà automaticamente gli allegati in una cartella locale specifica.

Non aprire mai allegati da mittenti in domini sconosciuti

Si consiglia di non fidarsi prontamente e scaricare gli allegati da quelli in domini sconosciuti. È perché possono venire dotati di malware o virus. Una volta aperti, il file di Outlook potrebbe essere attaccato. In altre parole, potresti essere soggetto alla corruzione dei file di Outlook. A quel tempo, anche Scansione non è in grado di assisterti. Il tuo unico ricorso è uno strumento più potente o un servizio di recupero PST specializzato.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui mdf corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com