İstifadəçi Outlook-dan müstəqil şəkildə baxmaq və ya başqası ilə paylaşmaq üçün e-poçtları sabit diskdə saxlamaq istəyə bilər. Bu yazıda bunu VBA vasitəsilə avtomatik olaraq necə edəcəyimizi təqdim edəcəyik.
Outlook-dan e-poçtları ixrac edin
Hər bir internet istifadəçisi Outlook-u E-poçt müştərisi kimi istifadə etmir və ola bilər ki, alternativdən istifadə edir. E-poçtun faktiki e-poçt vasitəsilə göndərilmədən kimsə ilə paylaşılması lazım olduğu bir vəziyyət də ola bilər. Həmçinin sənədləşdirmə və yoxlama məqsədləri üçün e-poçtlar tez-tez sübut kimi təqdim olunur. Belə ssenarilər üçün Outlook e-poçtu müstəqil olaraq .msg və ya .html faylı kimi ixrac etmək üsulunu təklif edir. Aşağıdakı VBA skripti istifadəçinin html formatında müdaxiləsi olmadan hər gələn e-poçtu avtomatik olaraq sabit diskdə əvvəlcədən təyin edilmiş yerə saxlayır. Yadda saxlandıqdan sonra E-poçta e-poçt müştərisinə ehtiyac olmadan istənilən İnternet brauzerində baxmaq olar.
Outlook VBA Skripti
Aşağıda tam Outlook VBA skripti verilmişdir:
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
Skripti necə işə salmaq olar
mətbuat Alt + F11 Outlook VBA redaktorunu açmaq və yuxarıdakı kodu “ThisOutlookSession” bölməsinə yapışdırmaq üçün. Bu skripti işə salmadan əvvəl, “C:\MyEmails” qovluğunun mövcud olduğundan və istifadəçinin ona yazma icazəsinin olduğundan əmin olun. Bundan əlavə, bu skripti işə salmadan əvvəl, XX kitabxana versiyası olduğu “Alətlər” menyusundan layihə istinadlarına Microsoft Outlook XX Obyekt kitabxanasının əlavə edilməli olduğunu bilmək vacibdir.
Skripti anlayın
Skriptdə, Gələnlər qutusu qovluğuna daxil olan hər bir elementdə "Items_ItemAdd" rutininin işə salınması gözlənilir. "TypeName" funksiyası, rutininin yalnız elementin e-poçt olduğu və digər Outlook obyektləri olmadığı təqdirdə davam etməsini təmin etmək üçün mövcuddur. Başqa bir qovluqdan bir e-poçtu gələnlər qutusuna sürükləsəniz, "Göndərilənlər" deyin, rutin yenə də işləyəcək və işi görəcək. "Items_ItemAdd" funksiyasının yalnız əsas Gələnlər qutusu qovluğuna bir e-poçt əlavə edildiyi təqdirdə işə salınacağını bilmək vacibdir. Əsas Gələnlər qutusu qovluğunda iç-içə qovluqlar varsa, bunlardan hər hansı birinə bir e-poçt əlavə edildikdə kod işləməyəcək. Başqa qovluqlar üçün işləməsi üçün "Items_ItemAdd" "Application_Startup" rutinindəki həmin qovluğa qoşulmalıdır. Yuxarıdakı skriptdə olHTML formatı olMSG, olRTF, olDoc və ya olTxt formatları ilə əvəz edilə bilər. Yadda saxlanılacaq hər bir e-poçt üçün standart adlandırma formatı “MyEmail##”-dir, burada ## 1-dən başlayan və tədricən artan saydır. Məsələn, bu skripti işə saldıqdan sonra gələn on ikinci e-poçt “MyEmail12” kimi yadda saxlanılacaq.
Outlook uğursuzluğundan sonra məlumatların bərpası
Outlook-un dağılması və istifadəçilərin çoxlu məlumat itirməsi çox nadir bir ssenari deyil. Belə vəziyyətlərdən qurtulmaq çox çətin və vaxt aparan bir iş ola bilər. Belə hallarda həyatınızı asanlaşdırmaq üçün istifadə edə bilərsiniz Outlook məlumatlarının bərpası səmərəli və səhvsiz bərpa üçün alət.
Müəllif Giriş:
Meri Underwood məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc dwg bərpası və rar bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com