VBA in MS Outlook to save messages in a newly created folder

[albertan]

I'm trying to assign a VBA script in MS Outlook so that I can get all emails saved in a newly created folder (named by date, files also named by date).

I create a folder and assign name to it:

strNewFolderName = Format(dtDate , "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem)

sName = Item.Subject
ReplaceCharsForFileName sName, "_"
MkDir ("C:\Users\Albertan\My Documents\Messages" & strNewFolderName)

Then I'm trying to save the email in this newly created folder:

sPath = "C:\Users\Albertan\My Documents\Messages"&StrNewFolderName
Debug.Print sPath & sName
Item.SaveAs sPath & sName, olMSG

But it is not saving there. Something wrong with my SPath. I think it is not recognizing the folder name (variable that I use).

Does anybody have any suggestion?

Thank you

 

[jimrward]

Try a slash after messages ...\messages\ if you want the folders to be called \messages\yyyy etc and also add another to the end of the spath string between spath and sname in the saveas line

 

[albertan]

Try a slash after messages ...\messages\ if you want the folders to be called \messages\yyyy etc and also add another to the end of the spath string between spath and sname in the saveas line

Sorry still having issue: the folders are being created but messages not beings saved in those folders. If I defined spath why should I put a slash there, not sure:



Public Sub SaveMsgv1(Item As Outlook.MailItem)
Dim sPath As String
Dim dtDate As Date
Dim sName As String
Dim enviro As String
Dim strNewFolderName As String

dtDate = Item.ReceivedTime
strNewFolderName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem)

sName = Item.Subject
ReplaceCharsForFileName sName, "_"
MkDir ("C:\Users\Albertan\My Documents\Messages" & strNewFolderName)

sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & ".msg"


' use My Documents in older Windows.
sPath = "C:\Users\Albertan\My Documents\Messages" & strNewFolderName
Debug.Print sPath & sName
Item.SaveAs sPath "& sName, olMSG"
End Sub