It is difficult to work out from your code (and your explanation) what it is that you are trying to do.

The macro starts with
sDateplus = Format(Date, "yyyymmdd")
sDateplus = DateAdd("dd", 1, Date)
'to check if it works
Debug.Print "date" & intDateplus
The macro does not make clear what intDateplus refers to, and if you want to add 1 day to the current date then 
sDateplus = Format(Date + 1, "yyyymmdd")
might be closer to what you had in mind, but how this date format relates to the message or any attachment is unclear.

There is no folder olattachments 
Session.GetDefaultFolder(olattachments).Folders("Move")
so it is uncertain what you are trying to do there. Maybe
Session.GetDefaultFolder(olInbox).Folders("Attachments").Folders("Move")
If you add Option Explicit to the top of the module it will highlight some of the more obvious issues, but a clearer explanation of what you are trying to do (and when) would be more helpful.