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!

 

[vilkas]

The same as it should be. The problem is that the email is empty and cannot be opened

 

[RoryA]

No, I mean what is the actual subject of the email?

 

[vilkas]

It is good. Still the email is empty and cannot be opened...

 

[vilkas]

ou sorry, the actual : REutstanding Funds

 

[RoryA]

You can't create a file with a colon in its name - try adding code to replace that.

 

[vilkas]

Ou, I forgot about that, you were right. I will try to use the code to eliminate the colon and other unnecessary symbols. Thanks a lot!

 

[ZVI]

Ou, I forgot about that, you were right. I will try to use the code to eliminate the colon and other unnecessary symbols. Thanks a lot!

Something like this

' Usage: eSub = ValidForFilename(msg.Subject)
Function ValidForFilename(ByVal Txt) As String
  Dim x
  For Each x In Split("? "" / \ < > * | :")
    Txt = Replace(Txt, x, "_")
  Next
  ValidForFilename = Txt
End Function