Outlook mails backup

[vilkas]

Hi,

Could someone help me to understanding why the code bolow do not backups reply or forward emails? i works on received or send emails only...

Sub backup_selectioProject()
Dim OL As Application
Dim NmeSpace As NameSpace
Dim FNme As String
Dim dtDate As Date
'Dim omail As Outlook.MailItem
Set OL = CreateObject("Outlook.Application")
Set NmeSpace = OL.GetNamespace("MAPI")
Set Inbx = NmeSpace.GetDefaultFolder(olFolderInbox)
Set Fldr = Application.ActiveExplorer.CurrentFolder
DirName = "Z:\Departments-WUIB\"
For Each itm In ActiveExplorer.Selection
     SubTxt = itm.Subject
    'SubTxt = CleanString(SubTxt) 'removes characters that cannot be part of filename
    dtDate = itm.ReceivedTime
    'Set omail = objItem
    'dtDate = omail.ReceivedTime
     FNme = DirName & SubTxt & "_" & Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & ".MSG"
    'sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(dtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
'sPath = enviro & "\Documents\"
    
    
     If itm.Class = olMail Then
       
        itm.SaveAs FNme, olMSG
    End If
     
    Next
End Sub

Thanks in advance!

 

[RoryA]

That code should process all mail items in the currently selected folder. Are your replies and forwards in that folder?

 

[vilkas]

Hi,

it works on selected emails only(For Each itm In ActiveExplorer.Selection) sorry for messy code...

 

[RoryA]

OK - so what is the problem exactly? If you have selected replies or forwards, they should be processed unless something is altering their class from the default olMail type.

 

[vilkas]

I've adjusted a code. Cleared all unnecessary lines. I found that problem appears to be from subject lines, so i have deleted them also. What additional code do I need to a add in order to print the email subject too?

Sub backup_selectioProject1()
Dim FNme As String
Dim dtDate As Date
Dim msg As Object
 
DirName = "Z:\Departments\"
For Each msg In Application.ActiveExplorer.Selection
dtDate = msg.ReceivedTime
     
     FNme = DirName & "_" & Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & ".MSG"
    
    
     If TypeName(msg) = "MailItem" Then
       msg.SaveAs FNme, olMSG
       
       
    End If
     
    Next
End Sub

 

[RoryA]

msg.Subject should be correct. What's the problem with it?

 

[vilkas]

if i insert msg.subject- backuped mail is with 0 KB . Any ideas?

Sub backup_selectioProject1()
Dim FNme As String
Dim dtDate As Date
Dim msg As Object
 
DirName = "Z:\Departments-WUIB\07 - Accounting Euroc\ACCOUNTING\Vilnius WUIB_WUBS\Emails back-ups\Project team\"
For Each msg In Application.ActiveExplorer.Selection
dtDate = msg.ReceivedTime
eSub = msg.Subject
     
     FNme = DirName & eSub & "_" & Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & ".MSG"
    
    
     If TypeName(msg) = "MailItem" Then
       msg.SaveAs FNme, olMSG
       
       
    End If
     
    Next
End Sub

 

[RoryA]

Looking at that, I suspect the complete path is too long. Does it work if you save to say C:\Test instead of that long network path?

 

[vilkas]

tried, still the same, empty file wih 0 KB..

 

[RoryA]

What is the subject of the email?