Outlook e-postalarınızı sabit sürücüye veya diskinize otomatik olarak nasıl kaydedebilirim?

Yedekleme, iş kanıtları veya diğer amaçlarla Outlook e-postalarını sabit sürücüye kaydetmek isteyebilirsiniz. Outlook’tan birkaç e-postayı elle sürücüye sürükleyip diske kaydetmek oldukça kolaydır. Peki ya gelen her e-postanın otomatik olarak diske nasıl kaydedileceğini biliyor musunuz? Bu makalede, Outlook’ta bu işlemi gerçekleştirmenize yardımcı olacak bir VBA kodu tanıtılacaktır.

Outlook e-postalarını sabit sürücüye/diskine otomatik olarak kaydetme

---

Outlook e-postalarını sabit sürücüye/diskine otomatik olarak kaydetme

Bu yöntem, Outlook’a gelen her e-postayı ayrı ayrı HTML dosyası olarak belirttiğiniz diske kaydetmenizi sağlayan bir VBA kullanmanızı sağlar. Lütfen aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. Project1 öğesini genişletin, "ThisOutlookSession" öğesine çift tıklayarak açın ve ardından aşağıdaki VBA kodunu ThisOutlookSession penceresine yapıştırın. Ekran görüntüsüne göz atın:

VBA: Outlook e-postalarını HTML dosyası olarak diske otomatik kaydetme

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
 Dim xNameSpace As Outlook.NameSpace
 Set xNameSpace = Outlook.Application.Session
 Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
 Dim FSO
 Dim xMailItem As Outlook.MailItem
 Dim xFilePath As String
 Dim xRegEx
 Dim xFileName As String
 On Error Resume Next
 xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
 xFilePath = xFilePath & "\MyEmails"
 Set FSO = CreateObject("Scripting.FileSystemObject")
 If FSO.FolderExists(xFilePath) = False Then
 FSO.CreateFolder (xFilePath)
 End If
 Set xRegEx = CreateObject("vbscript.regexp")
 xRegEx.Global = True
 xRegEx.IgnoreCase = False
 xRegEx.Pattern = "\||\/|\|""|:|\*|\\|\?"
 If objItem.Class = olMail Then
 Set xMailItem = objItem
 xFileName = xRegEx.Replace(xMailItem.Subject, "")
 xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
 End If
 Exit Sub
End Sub

3. VBA kodunu kaydedin ve Microsoft Outlook’u yeniden başlatın.

Artık gelen her e-posta, “MyEmails” klasörüne ayrı ayrı HTML dosyası olarak kaydedilecek.

Notlar:
(1) Bu VBA, Belgeler klasörünün altına “MyEmails” adında bir klasör oluşturur. Otomatik olarak kaydedilen e-postaları şu dosya yolunda bulabilirsiniz: C:\Users\kullanıcı_adınız\Documents\MyEmails
(2) Bu VBA, varsayılan e-posta hesabının Gelen Kutusu’ndaki Alınan öğelerle çalışır.

---

İlgili Makaleler

Outlook’ta toplu veya seçili e-postaları Excel, metin veya PST dosyasına nasıl aktarabilirim?