როგორ ავტომატურად შეინახოთ ყველა შემომავალი ელფოსტა მყარ დისკზე Outlook VBA-ის საშუალებით

მომხმარებელს შეიძლება სურდეს ელ.ფოსტის შენახვა მყარ დისკზე, რათა ნახოს ისინი Outlook-ისგან დამოუკიდებლად ან გაუზიაროს სხვას. ამ სტატიაში ჩვენ გაგაცნობთ, თუ როგორ უნდა გავაკეთოთ ეს ავტომატურად VBA-ს საშუალებით.

ელფოსტის ექსპორტი Outlook-დან

ყველა ინტერნეტ მომხმარებელი არ იყენებს Outlook-ს, როგორც ელ.ფოსტის კლიენტს და შეიძლება გამოიყენოს ალტერნატიული. ასევე შეიძლება არსებობდეს სიტუაცია, როდესაც ელ.წერილი უნდა იყოს ვინმესთან გაზიარება, რეალური ელფოსტის გაგზავნის გარეშე. ასევე დოკუმენტაციისა და შემოწმების მიზნებისთვის, ელ.წერილი ხშირად წარმოდგენილია როგორც მტკიცებულება. ასეთი სცენარებისთვის Outlook გთავაზობთ ელფოსტის დამოუკიდებლად ექსპორტის მეთოდს .msg ან .html ფაილის სახით. შემდეგი VBA სკრიპტი ინახავს ყველა შემოსულ წერილს ავტომატურად მყარ დისკზე წინასწარ განსაზღვრულ ადგილას მომხმარებლის ჩარევის გარეშე html ფორმატში. შენახვის შემდეგ, ელფოსტა შეიძლება იხილოთ ნებისმიერ ინტერნეტ ბრაუზერში ელფოსტის კლიენტის საჭიროების გარეშე.

Outlook VBA სკრიპტი

ქვემოთ მოცემულია Outlook VBA სკრიპტის სრული ვერსია:

Private WithEvents Items As Outlook.Items

Private Count As Integer

Private Sub Application_Startup()
         Dim objApp As Outlook.Application
         Dim objNameSpace As Outlook.NameSpace   

         '        Get the items in the Inbox folder
         Set objApp = Outlook.Application
         Set objNameSpace = objApp.GetNamespace("MAPI")
         Set Items = objNameSpace.GetDefaultFolder(olFolderInbox).Items       
         '        Initialize count
         Count = 1
End Sub
 
Private Sub Items_ItemAdd(ByVal objItem As Object)
         On Error GoTo ShowError        

         Dim objMail As Outlook.MailItem     

         '        Check if the item is a mail. If yes, then save it as a HTML file and update Count
         If TypeName(objItem) = "MailItem" Then
                   Set objMail = objItem
                   objMail.SaveAs "C:\MyEmails\MyEmail" & CStr(Count), olHTML
                   Count = Count + 1
         End If      

         Exit Sub

ShowError:
         MsgBox Err.Number & " - " & Err.Description
End Sub

როგორ გავუშვათ სკრიპტი

პრეს Alt + F11 Outlook VBA რედაქტორის გასახსნელად და ზემოთ მოცემული კოდის „ThisOutlookSession“-ში ჩასასმელად. ამ სკრიპტის გაშვებამდე დარწმუნდით, რომ საქაღალდე „C:\MyEmails“ არსებობს და მომხმარებელს აქვს მასზე ჩაწერის უფლება. გარდა ამისა, მნიშვნელოვანია იცოდეთ, რომ ამ სკრიპტის გაშვებამდე, Microsoft Outlook XX ობიექტის ბიბლიოთეკა უნდა დაემატოს პროექტის მითითებებს „ინსტრუმენტების“ მენიუდან, სადაც XX არის ბიბლიოთეკის ვერსია.

სკრიპტის გაგება

სკრიპტში, „Items_ItemAdd“ რუტინა ამოქმედდება შემოსულების საქაღალდეში შემოსულ ყველა ელემენტზე. „TypeName“ ფუნქცია არსებობს იმის უზრუნველსაყოფად, რომ რუტინა გაგრძელდეს მხოლოდ იმ შემთხვევაში, თუ ელემენტი არის ელ.წერილი და არა Outlook-ის სხვა ტიპის ობიექტი. თუ ელ.წერილს სხვა საქაღალდიდან გადაიტანთ, მაგალითად, „გაგზავნილი ნივთები“ შემოსულებში, რუტინა კვლავ იმუშავებს და შეასრულებს თავის საქმეს. მნიშვნელოვანია იცოდეთ, რომ „Items_ItemAdd“ ამოქმედდება მხოლოდ იმ შემთხვევაში, თუ ელ.წერილი დაემატება შემოსულების მთავარ საქაღალდეს. თუ შემოსულების მთავარ საქაღალდეში არის ჩადგმული საქაღალდეები, კოდი არ იმუშავებს, თუ ელ.წერილი დაემატება რომელიმე მათგანს. იმისათვის, რომ ის იმუშაოს სხვა საქაღალდეებისთვის, „Items_ItemAdd“ უნდა იყოს დაკავშირებული ამ კონკრეტულ საქაღალდესთან „Application_Startup“ რუტინაში. ზემოთ მოცემულ სკრიპტში, olHTML ფორმატი შეიძლება შეიცვალოს olMSG, olRTF, olDoc ან olTxt ფორმატებით. თითოეული შესანახი ელფოსტის ნაგულისხმევი სახელწოდების ფორმატია „MyEmail##“, სადაც ## არის რიცხვი, რომელიც იწყება 1-დან და თანდათან იზრდება. მაგალითად, ამ სკრიპტის გაშვების შემდეგ მეთორმეტე შემომავალი ელფოსტა შეინახება, როგორც „MyEmail12“.

მონაცემთა აღდგენა Outlook-ის წარუმატებლობის შემდეგ

ეს არ არის იშვიათი სცენარი, როდესაც Outlook დაიშლება და მომხმარებლები კარგავენ დიდი რაოდენობით მონაცემებს. ასეთი სიტუაციებიდან გამოჯანმრთელება შეიძლება იყოს ძალიან რთული და შრომატევადი ამოცანა. იმისთვის, რომ ასეთ შემთხვევებში ცხოვრება გაგიადვილოთ, შეგიძლიათ გამოიყენოთ ა Outlook მონაცემთა აღდგენა ინსტრუმენტი ეფექტური და შეცდომების გარეშე აღდგენისთვის.

ავტორი შესავალი:

მერი ანდერვუდი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის dwg-ის აღდგენა მდე rar აღდგენის პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად