Outlook保存项目变量路径

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 & "\"