Ինչպե՞ս ավտոմատ կերպով պահպանել ուղարկողների բոլոր կցորդները որոշակի տիրույթում Outlook VBA- ի միջոցով

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Եթե ​​ցանկանում եք թույլ տալ, որ Outlook- ն ավտոմատ կերպով պահպանի բոլոր կցորդները ուղարկողներից, որոնց էլ. Փոստի հասցեները գտնվում են որոշակի տիրույթում, կարող եք կարդալ այս հոդվածը: Այստեղ մենք ձեզ կներկայացնենք արագ մեթոդ:

Միգուցե ձեր ընկերության բոլոր աշխատակազմերն օգտագործում են նույն տիրույթում գտնվող էլփոստի հասցեները: Քանի որ հաճախ եք միմյանց տարբեր կցորդներով նամակներ ուղարկում, միգուցե ցանկանաք, որ Outlook- ը կցորդները ավտոմատ կերպով պահի այդպիսի նամակներից: Այս դեպքում Outlook- ից պահանջվում է ավտոմատ ստուգել էլ-նամակի ուղարկողի տիրույթը և կցել հավելվածները ավտոմատ կերպով: Այժմ հետևյալում մենք կկիսվենք VBA կոդի մի կտոր, որն ի վիճակի է իրականացնել այն առանց հեշտության:

Ավտոմատ պահեք ուղարկիչներից ստացված բոլոր կցորդները որոշակի տիրույթում

  1. Սկզբում գործարկեք Outlook VBA խմբագիրը ՝ համաձայն «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
  2. Հետո հետևյալ կոդը տեղադրեք չօգտագործված մոդուլի մեջ:
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

VBA կոդ - Ավտոմատ պահեք ուղարկողներին ուղարկվող բոլոր կցորդները որոշակի տիրույթում

  1. Դրանից հետո վերագործարկեք Outlook-ը՝ այս մակրոն ակտիվացնելու համար։
  2. Այդ ժամանակից ի վեր, ամեն անգամ, երբ մուտքային էլ. Փոստը մուտք է գործում ձեր մուտքի արկղ, Outlook- ը ավտոմատ կերպով ստուգում է ուղարկողի տիրույթը: Եթե ​​դա նույնն է, ինչ նախորոշված ​​տիրույթը, և պարունակում է կցորդներ, Outlook- ը կցուցադրումներն ավտոմատ կփրկի որոշակի տեղական թղթապանակում:Ավտոմատ պահված հավելված

Երբեք մի բացեք ուղարկողներից ստացված հավելվածները անհայտ տիրույթներում

Անկալի է, որ պատրաստակամորեն չվստահեք և ներբեռնեք կցորդները անհայտ տիրույթում գտնվողներից: Դա այն պատճառով է, որ դրանք կարող են օժտված լինել չարամիտ կամ վիրուսներով: Դրանք բացելուց հետո Outlook ֆայլը կարող է հարձակման ենթարկվել: Այլ կերպ ասած, դուք կարող եք ենթարկվել Outlook ֆայլի վնասմանը: Այդ ժամանակ, նույնիսկ Սկանպստ ի վիճակի չէ ձեզ օգնելու: Ձեր միակ առողջարանը կա՛մ ավելի հզոր գործիք է, կա՛մ մասնագիտացված PST վերականգնման ծառայություն:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: