展望保存項目可變路徑

Question

我使用下面的代碼來自動發送的內容保存到一個文件夾：

Sub SaveACopy(Item As Object) 
Const olMsg As Long = 3 

Dim m As MailItem 
Dim savePath As String 

If TypeName(Item) <> "MailItem" Then Exit Sub 

Set m = Item 

savePath = "S:\Sales & Marketing\Sales\Correspondence\" 
savePath = savePath & m.To & Format(Now(), "yyyy-mm-dd-hhNNss") 
savePath = savePath & ".msg" 


m.SaveAs savePath, olMsg 

如何動態地使郵件存儲相關的收件人的文件夾中更改路徑？實際上，如果文件夾的第一封電子郵件發送給用戶，或者文件夾存在，它將被存儲在該文件夾中。在我的腦海中，保存路徑如下所示：

savePath = "S:\Sales & Marketing\Sales\Correspondence\m.to\" 

但很明顯，這是行不通的。

任何協助讚賞。

Answer 1

savePath = "S:\Sales & Marketing\Sales\Correspondence\" & m.to & "\"