Mailleri Diske Kaydedememe

[askm]

Kolay gelsin. Aşağıdaki kodlar ile mailleri diske kaydediyorum. Yalnız bazı mailler kişiler için yalnız klasör oluşturuyor ama içerisine mail almıyor. Nerede eksiklik yapıyorum.

Public Sub Outlok_Yedek(itm As Outlook.MailItem)
On Error Resume Next

Dim saveFolder As String
saveFolder = "D:\ÖZEL\OUTLOOK YEDEKLERİM" 'Maillerin kaydedileceği dosya
Dim dateFormat
dateFormat = Format(itm.ReceivedTime, "ddmmyyyy HH.mm.ss") ' Mailin dosya adına alınma zamanını eklemek için
Dim dosyaadi As String

MkDir saveFolder & "\" & itm.Sender.Name  'Gönderen adında klasör oluşturur
ChDir saveFolder & "\" & itm.Sender.Name  '
saveFolder = saveFolder & "\" & itm.Sender.Name   ' & "-" & dateFormat


MkDir saveFolder & "\" & dateFormat & "-" & itm.Subject    'itm.Sender.Name   ' Mail adında dosya oluşturur.
ChDir saveFolder & "\" & dateFormat & "-" & itm.Subject   'itm.Sender.Name   '


saveFolder = saveFolder & "\" & dateFormat & "-" & itm.Subject



dosyaadi = saveFolder & "\[" & dateFormat & "] [" & itm.Sender.Name & "] [" & degistir(itm.Subject) & "].msg"
 itm.SaveAs dosyaadi ' Maili diske kaydeder.

For Each objAtt In itm.Attachments 'Mail'deki ekleri diske kaydeder.
 objAtt.SaveAsFile saveFolder & "\[" & dateFormat & "] [" & itm.Sender.Name & "] [" & degistir(itm.Subject) & "] " & objAtt.DisplayName
Set objAtt = Nothing
Next

End Sub

 

[askm]

Örneğin "excelwebtr" den mail geldiğini ve konunun "outlook kodları" olduğunu düşünelim. Kodda öncelikle gelen kişi adında yani "excelwebtr" adında klasör açıyor. Sonra tarih-saat-ve gelen mail adında klasör açıyor. Yani "29112016 08.01.01-outlook kodları" adında klasör açıyor ve mailleri ve eklerini bu klasörün içerisine atıyor. Gelen maillerin bazılarında sorun yok. Hem gönderen kişi adında klasör açıyor hemde konu ile ilgili klasör açıp içerisine atıyor. Bazı maillerde ise sadece gelen kişi ile ilgili klasör açıyor ama içerisine ne konu ile ilgili klasör açıyor ne de mailleri ve eklerini kaydediyor. İşlem yarım kalıyor.