Ako automaticky ukladať všetky prílohy od odosielateľov v konkrétnej doméne prostredníctvom programu Outlook VBA

Ak chcete aplikácii Outlook umožniť automatické ukladanie všetkých príloh od odosielateľov, ktorých e-mailové adresy sú v konkrétnej doméne, môžete si prečítať tento článok. Tu vám predstavíme rýchlu metódu.

Možno všetci zamestnanci vo vašej spoločnosti používajú e-mailové adresy, ktoré sú v rovnakej doméne. Pretože si navzájom často posielate e-maily s rôznymi prílohami, môžete si v Outlooku priať automatické ukladanie príloh z týchto e-mailov. V takom prípade bude program Outlook požiadaný o automatickú kontrolu domény odosielateľa e-mailu a automatické ukladanie príloh. Teraz, v nasledujúcich častiach, budeme zdieľať časť kódu VBA, ktorá je schopná ho ľahko realizovať.

Automatické ukladanie všetkých príloh od odosielateľov v konkrétnej doméne

  1. Najskôr spustite editor Outlook VBA podľa „Ako spustiť kód VBA v programe Outlook".
  2. Potom vložte nasledujúci kód do nepoužívaného modulu.
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 objAttach AsStment As Attachment String If Item.Class = olMail Then Set objMail = Item 'Get sender domain strSenderAddress = objMail.SenderEmailAddress strSenderDomain = Right (strSenderAddress, Len (strSenderAddress) - InStr (strSenderAddress, "@"))' Zmeňte konkrétnu doménu podľa vášho potreby If strSenderDomain = "datanumen.net "Potom Ak objMail.Attachments.Count> 0 Potom Pre každú objAttachment V objMail.Attachments 'Zmeňte cestu k priečinku, kam chcete uložiť prílohy strFolderPath =" E: \ Attachments \ "strFileName = objMail.Subject &" "& Chr (45) & "" & objAttachment.FileName objAttachment.SaveAsFile strFolderPath & strFileName Ďalej Koniec Ak Koniec Ak Koniec Ak Koniec Sub

Kód VBA - Automatické ukladanie všetkých príloh od odosielateľov v konkrétnej doméne

  1. Po tom, restart Outlook aktivovať toto makro.
  2. Odvtedy Outlook vždy, keď sa do vašej doručenej pošty dostane prichádzajúci e-mail, Outlook automaticky skontroluje doménu odosielateľa. Ak je rovnaká ako preddefinovaná doména a obsahuje prílohy, program Outlook automaticky uloží prílohy do konkrétneho lokálneho priečinka.Automatické uloženie prílohy

Nikdy neotvárajte prílohy od odosielateľov v neznámych doménach

Odporúča sa, aby ste ľahko nedôverovali a nestiahli prílohy z tých, ktoré sú v neznámych doménach. Je to tak preto, lebo môžu prísť obdarení malvérom alebo vírusmi. Po ich otvorení môže byť súbor programu Outlook napadnutý. Inými slovami, môže dôjsť k poškodeniu súborov programu Outlook. V tom čase dokonca Scanpst nie je schopný vám pomôcť. Vaše jediné riešenie je buď silnejší nástroj, alebo špecializovaná služba obnovy PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Jedna odpoveď na „Ako automaticky ukladať všetky prílohy od odosielateľov v konkrétnej doméne cez Outlook VBA“

  1. Wow, skvelé rozloženie blogu! Aké dlhé
    blogoval si pre? zjednodušíte prevádzku blogu.
    Celý vzhľad vašej webovej stránky je úžasný, nehovoriac o obsahu!
    Podobné si môžete pozrieť tu sklep internetowy

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *