Хэрэглэгч имэйлээ 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
Скриптийг хэрхэн ажиллуулах вэ
Press Alt + F11 Outlook VBA засварлагчийг нээгээд дээрх кодыг “ThisOutlookSession” хавтас руу буулгана уу. Энэ скриптийг ажиллуулахаасаа өмнө “C:\MyEmails” хавтас байгаа бөгөөд хэрэглэгч түүнд бичих зөвшөөрөлтэй эсэхийг шалгаарай. Түүнчлэн, энэ скриптийг ажиллуулахаасаа өмнө Microsoft Outlook XX Объектын санг “Tools” цэснээс төслийн лавлагаанд нэмэх ёстой гэдгийг мэдэх нь чухал бөгөөд XX нь номын сангийн хувилбар юм.
Скриптийг ойлгоорой
Скриптэд "Items_ItemAdd" функц нь Inbox хавтас руу орж ирж буй бүх зүйл дээр идэвхжих болно. "TypeName" функц нь тухайн зүйл нь имэйл бөгөөд бусад төрлийн Outlook объект биш тохиолдолд л функц үргэлжлэхийг баталгаажуулахын тулд байдаг. Хэрэв та өөр хавтаснаас имэйлийг чирж, "Sent Items" гэж хэлээд Inbox руу имэйл илгээвэл функц ажиллаж, ажлаа гүйцэтгэсээр байх болно. "Items_ItemAdd" нь зөвхөн үндсэн Inbox хавтсанд имэйл нэмэгдсэн тохиолдолд л идэвхжих болно гэдгийг анхаарах нь чухал юм. Хэрэв үндсэн Inbox хавтсанд үүрлэсэн хавтаснууд байгаа бол тэдгээрийн аль нэгэнд имэйл нэмэгдсэн тохиолдолд код ажиллахгүй. Бусад хавтсанд ажиллахын тулд "Items_ItemAdd"-ийг "Application_Startup" функц дэх тухайн хавтсанд холбох хэрэгтэй. Дээрх скриптэд olHTML форматыг olMSG, olRTF, olDoc эсвэл olTxt форматаар сольж болно. Хадгалах имэйл бүрийн анхдагч нэршлийн формат нь “MyEmail##” бөгөөд ## нь 1-ээс эхэлж, аажмаар өсөх тоо юм. Жишээлбэл, энэ скриптийг ажиллуулсны дараа ирж буй арван хоёр дахь имэйлийг “MyEmail12” гэж хадгалах болно.
Outlook амжилтгүй болсны дараа өгөгдлийг сэргээх
Outlook задарч, хэрэглэгчид их хэмжээний өгөгдөл алддаг нь тийм ч ховор тохиолдол биш юм. Ийм нөхцөл байдлаас гарах нь маш хэцүү бөгөөд цаг хугацаа шаардсан ажил байж болно. Ийм тохиолдолд амьдралаа хөнгөвчлөхийн тулд та ашиглаж болно Outlook өгөгдлийг сэргээх үр дүнтэй, алдаагүй сэргээх хэрэгсэл.
Зохиогчийн танилцуулга:
Мэри Андервуд бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. dwg сэргээх болон rar сэргээх програм хангамжийн бүтээгдэхүүн. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com