Outlook VBA 宏用于将电子邮件副本保存在本地文件夹中

VBA

使用Outlook VBA宏可以方便地将电子邮件副本保存在本地文件夹中。这对于需要将重要邮件备份或者需要将邮件归档的工作人员来说非常有用。下面将介绍如何编写这样一个宏，并提供一个实际的案例代码。

首先，在Outlook中打开Visual Basic for Applications（VBA）编辑器。可以通过按下"Alt"和"F11"键来打开VBA编辑器。然后，在VBA编辑器中，创建一个新的模块。

在新建的模块中，可以编写保存邮件副本的宏。以下是一个范例代码：

VBA
Sub SaveEmAIlCopy()
    Dim objMAIl As Outlook.MAIlItem
    Dim objCopy As Outlook.MAIlItem
    Dim strFolderPath As String
    
    '选择并复制当前选中的邮件
    Set objMAIl = Application.ActiveExplorer.Selection.Item(1)
    Set objCopy = objMAIl.Copy
    
    '指定保存副本的文件夹路径
    strFolderPath = "C:\MyEmAIls"
    
    '将副本保存到指定文件夹
    objCopy.SaveAs strFolderPath & "\" & objCopy.Subject & ".msg"
    
    '释放对象
    Set objCopy = Nothing
    Set objMAIl = Nothing
    
    MsgBox "邮件副本保存成功！"
End Sub

在上述代码中，首先定义了需要使用的对象变量，包括objMAIl用于存储当前选中的邮件，objCopy用于存储邮件副本，以及strFolderPath用于指定保存副本的文件夹路径。

接下来，通过Set语句将当前选中的邮件复制到objCopy对象中。

然后，使用SaveAs方法将副本保存到指定的文件夹路径中，文件名以邮件的主题命名。

最后，释放对象变量并显示保存成功的消息框。

这是一个简单的保存邮件副本的Outlook VBA宏的示例代码。可以根据实际需求进行修改和扩展。通过使用这个宏，可以方便地将邮件副本保存在本地文件夹中，以备将来查阅或归档。

案例代码：

VBA
Sub SaveEmAIlCopy()
    Dim objMAIl As Outlook.MAIlItem
    Dim objCopy As Outlook.MAIlItem
    Dim strFolderPath As String
    
    '选择并复制当前选中的邮件
    Set objMAIl = Application.ActiveExplorer.Selection.Item(1)
    Set objCopy = objMAIl.Copy
    
    '指定保存副本的文件夹路径
    strFolderPath = "C:\MyEmAIls"
    
    '将副本保存到指定文件夹
    objCopy.SaveAs strFolderPath & "\" & objCopy.Subject & ".msg"
    
    '释放对象
    Set objCopy = Nothing
    Set objMAIl = Nothing
    
    MsgBox "邮件副本保存成功！"
End Sub

通过使用上述的Outlook VBA宏，可以轻松地将电子邮件副本保存在本地文件夹中，以备将来查阅或归档。这对于需要备份重要邮件或者需要整理邮件的工作人员来说非常有用。只需简单的几行代码，就可以实现这个功能。