Kā automātiski saglabāt visus sūtītāju pielikumus noteiktā domēnā, izmantojot Outlook VBA

Ja vēlaties ļaut programmai Outlook automātiski saglabāt visus sūtītāju pielikumus, kuru e-pasta adreses atrodas noteiktā domēnā, varat izlasīt šo rakstu. Šeit mēs iepazīstināsim ar ātru metodi.

Varbūt visi jūsu uzņēmuma darbinieki izmanto e-pasta adreses, kas atrodas tajā pašā domēnā. Tā kā jūs bieži sūtāt e-pastus ar dažādiem pielikumiem viens otram, jūs varētu vēlēties, lai programma Outlook automātiski saglabā pielikumus no šādiem e-pasta ziņojumiem. Šajā gadījumā programmai Outlook tiks prasīts automātiski pārbaudīt e-pasta sūtītāja domēnu un automātiski saglabāt pielikumus. Turpmāk mēs dalīsimies ar VBA koda gabalu, kas to bez piepūles var realizēt.

Automātiski saglabāt visus sūtītāju pielikumus noteiktā domēnā

1. Sākumā palaidiet Outlook VBA redaktoru atbilstoši “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam ievietojiet šo kodu neizmantotā modulī.

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. Pēc tam restartējiet programmu Outlook, lai aktivizētu šo makro.
4. Kopš tā laika katru reizi, kad ienākošais e-pasts nonāk jūsu iesūtnē, Outlook automātiski pārbaudīs sūtītāja domēnu. Ja tas ir tāds pats kā iepriekš definētais domēns un tajā ir pielikumi, programma Outlook automātiski saglabās pielikumus noteiktā vietējā mapē.

Nekad neatveriet sūtītāju pielikumus nezināmos domēnos

Ieteicams neuzticēties un lejupielādēt pielikumus no tiem, kas atrodas nezināmos domēnos. Tas ir tāpēc, ka viņi var būt apveltīti ar ļaunprātīgu programmatūru vai vīrusiem. Pēc to atvēršanas var tikt uzbrukts Outlook failam. Citiem vārdiem sakot, jūs varat pakļaut Outlook failu korupcijai. Tajā laikā pat Scanpst nespēj jums palīdzēt. Jūsu vienīgais kūrorts ir vai nu jaudīgāks rīks, vai arī specializēts PST atkopšanas pakalpojums.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar