Pengguna mungkin ingin menyimpan e-mel pada cakera keras untuk melihatnya secara bebas daripada Outlook atau berkongsi dengan orang lain. Dalam artikel ini, kami akan memperkenalkan cara melakukannya secara automatik melalui VBA.
Eksport E-mel daripada Outlook
Tidak setiap pengguna internet menggunakan Outlook sebagai klien E-mel dan mungkin menggunakan yang lain. Mungkin juga terdapat situasi di mana e-mel perlu dikongsi dengan seseorang, tanpa menghantar e-mel sebenar. Juga untuk tujuan dokumentasi dan penelitian, e-mel sering dikemukakan sebagai bukti. Untuk senario sedemikian, Outlook menawarkan kaedah untuk mengeksport e-mel secara bebas sebagai fail .msg atau .html. Skrip VBA berikut menyimpan setiap e-mel masuk secara automatik ke lokasi yang telah ditetapkan pada cakera keras tanpa campur tangan pengguna dalam format html. Setelah disimpan, E-mel boleh dilihat dalam mana-mana pelayar Internet tanpa memerlukan klien e-mel.
Skrip Outlook VBA
Berikut adalah skrip Outlook VBA yang lengkap:
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
Cara Menjalankan Skrip
Keratan Akhbar Alt + F11 untuk membuka editor Outlook VBA dan tampal kod di atas dalam “ThisOutlookSession”. Sebelum menjalankan skrip ini, pastikan folder “C:\MyEmails” wujud dan pengguna mempunyai kebenaran menulis kepadanya. Selain itu, adalah penting untuk mengetahui bahawa sebelum menjalankan skrip ini, pustaka Objek Microsoft Outlook XX harus ditambahkan pada rujukan projek daripada menu “Alat”, di mana XX ialah versi pustaka.
Fahami Skripnya
Dalam skrip, rutin "Items_ItemAdd" akan dicetuskan pada setiap item yang masuk ke folder Peti Masuk. Fungsi "TypeName" tersedia untuk memastikan bahawa rutin hanya diteruskan jika item tersebut adalah e-mel dan bukan sebarang jenis objek Outlook yang lain. Jika anda menyeret e-mel dari mana-mana folder lain, katakan "Sent Items" ke peti masuk, rutin tersebut masih akan berfungsi dan menjalankan tugasnya. Adalah penting untuk diketahui bahawa "Items_ItemAdd" hanya akan dicetuskan jika e-mel ditambahkan ke folder Peti Masuk utama. Jika terdapat folder bersarang dalam folder Peti Masuk utama, kod tersebut tidak akan berfungsi jika e-mel ditambahkan ke mana-mana folder tersebut. Untuk menjadikannya berfungsi untuk mana-mana folder lain, "Items_ItemAdd" harus disambungkan ke folder tertentu tersebut dalam rutin "Application_Startup". Dalam skrip di atas, format olHTML boleh digantikan dengan format olMSG, olRTF, olDoc atau olTxt. Format penamaan lalai untuk setiap e-mel yang akan disimpan ialah “MyEmail##”, di mana ## ialah kiraan bermula dari 1 dan meningkat secara berperingkat. Contohnya, e-mel masuk kedua belas selepas menjalankan skrip ini hendaklah disimpan sebagai “MyEmail12”.
Pemulihan Data selepas kegagalan Outlook
Ia bukanlah senario yang luar biasa untuk Outlook berpecah dan pengguna akhirnya kehilangan banyak data. Memulihkan diri daripada situasi sedemikian boleh menjadi tugas yang sangat sukar dan memakan masa. Untuk menjadikan hidup anda mudah dalam kes sedemikian, anda boleh menggunakan a Pemulihan data Outlook alat untuk pemulihan yang cekap dan bebas pepijat.
Pengenalan Pengarang:
Mary Underwood adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan dwg dan rar produk perisian pemulihan. Untuk maklumat lebih lanjut, lawati www.datanumen.com