确定.我必须添加此代码:

Ok got it. I had to add this code :

Dim sName As String
sName = mi.Subject
mi.SaveAs dirName & "\" & Format$(mi.CreationTime, "yyyymmdd_") & sName & ".msg"

在此代码下:

Set dir = fso.CreateFolder(dirName)