无论何时从Outlook 2010发送邮件，该邮件都应使用VBA/宏移动到Outlook中的专用文件夹

我已经写了一个代码，当一封电子邮件从一个确定的电子邮件ID发送到outlook my ID时，它会使用一个规则自动发送到另一个电子邮件地址

现在我必须添加一个功能。所发送的邮件也保存在“已发送邮件”以外的专用文件夹中。所有这些都集中在一个脚本中

这是我当前的脚本，其中只有邮件自动发送。现在我需要帮助添加专用文件夹功能

Sub Project_1()
Dim objMail As Outlook.MailItem
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "inbox@email.com"
objMail.Display
objMail.Send
Set objItem = Nothing
Set objMail = Nothing
End Sub
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = _
objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = _
objApp.ActiveInspector.CurrentItem
Case Else
End Select
End Function

---

我对VBA非常陌生。

正如上面提到的@destination data，通过outlooks规则，整个任务将更加容易

这是一个关于如何根据条件设置移动特定邮件的规则的分步指南。此外，您还可以轻松添加“转发”规则，因为您所需的所有功能都已在outlook中实现，您应该避免重写现有工具

---

根据您的描述，这应该与您的代码的目的完全相同。

请阅读-总结是，这不是向志愿者致辞的理想方式，可能会对获得答案产生反作用。请不要将此添加到您的问题中。因此，您只需将邮件保存在“已发送邮件”以外的文件夹中即可？我理解正确吗？使用来管理邮箱可以完全避免VBA。这是事实，我需要通过在此代码中添加一些内容将所有发送的邮件保存在专用文件夹中。它应该会自动运行。嗨@DavidG。有什么帮助吗。我在等你的答复。