Как да запазите автоматично всички прикачени файлове от податели в определен домейн чрез Outlook VBA

Споделете сега:

Ако искате да позволите на Outlook автоматично да запазва всички прикачени файлове от подателите, чиито имейл адреси са в определен домейн, можете да прочетете тази статия. Тук ще ви представим бърз метод.

Може би всички служители във вашата компания използват имейл адресите, които са в същия домейн. Тъй като често си изпращате имейли с различни прикачени файлове, може да пожелаете на Outlook автоматично да запазва прикачените файлове от такива имейли. В този случай от Outlook ще се изисква автоматично да проверява домейна на подателя на имейла и автоматично да запазва прикачените файлове. Сега, по-долу, ще споделим част от кода на VBA, която е в състояние да го реализира с лекота.

Автоматично запазване на всички прикачени файлове от податели в определен домейн

  1. Отначало стартирайте редактора на Outlook VBA според „Как да стартирате VBA код във вашия Outlook".
  2. След това поставете следния код в неизползван модул.
Публични WithEvents objInboxItems като Outlook.Items Private Sub Application_Startup () Задайте objInboxItems = Session.GetDefaultFolder (olFolderInbox) .Items End Sub Private Sub objInboxItems_ItemAdd (ByVal Елемент като обект) Dim objMail As Outlook.MailItem Dim strSenderAddress As String Dim strSenderDomain As String DimNatStament As Sthat DimNatStament As Sthat DimNetStament DimNetStament DimNetAmaSthatSthatSthatSthatSthatSthatSmartSthatSmartSthatSmartSthatSthatSmartSthatSmartNight String If Item.Class = olMail След това задайте objMail = Item 'Вземете домейн на подателя strSenderAddress = objMail.SenderEmailAddress strSenderDomain = Право (strSenderAddress, Len (strSenderAddress) - InStr (strSenderAddress, "@"))' Променете към конкретния домейн като " се нуждае от strSenderDomain = "datanumen.net "Тогава Ако objMail.Attachments.Count> 0 Тогава За всеки objAttachment В objMail.Attachments 'Променете пътя на папката, където искате да запазите прикачени файлове strFolderPath =" E: \ Attachments \ "strFileName = objMail.Subject &" "& Chr (45) & "" & objAttachment.FileName objAttachment.SaveAsFile strFolderPath & strFileName Следващ край Ако край Ако край Ако край Под

VBA код - Автоматично запазване на всички прикачени файлове от податели в определен домейн

  1. След това, резtart Outlook, за да активирате този макрос.
  2. Оттогава всеки път, когато входящ имейл попадне във входящата ви поща, Outlook ще проверява автоматично домейна на подателя. Ако е същият като предварително дефинирания домейн и съдържа прикачени файлове, Outlook автоматично ще запази прикачените файлове в конкретна локална папка.Автоматично запазен прикачен файл

Никога не отваряйте прикачени файлове от податели в непознати домейни

Препоръчително е да не се доверявате лесно и да не изтегляте прикачените файлове от тези в неизвестни домейни. Това е така, защото те могат да бъдат надарени със злонамерен софтуер или вируси. След като ги отворите, файлът на Outlook може да бъде атакуван. С други думи, може да сте обект на повреда на файлове на Outlook. По това време дори scanpst не е в състояние да ви помогне. Единственият ви курорт е или по-мощен инструмент, или специализирана услуга за възстановяване на PST.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително корумпиран mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.