Como guardar vários e-mails selecionados em massa como ficheiros MSG no Outlook?

É fácil guardar um e-mail como ficheiro MSG no Outlook. Mas como guardar vários e-mails selecionados como ficheiros MSG individuais em massa? Este artigo mostra-lhe um método eficaz para o conseguir.

Guarde vários e-mails selecionados como ficheiros MSG com código VBA

---

Guarde vários e-mails selecionados como ficheiros MSG com código VBA

O seguinte código VBA permite-lhe guardar vários e-mails selecionados como ficheiros MSG individuais em lote no Outlook. Siga os passos abaixo.

1. Selecione os e-mails que deseja guardar como ficheiros MSG e, em seguida, prima simultaneamente as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em «Inserir» > «Módulo» e, em seguida, copie o código VBA abaixo para a janela do módulo.

Código VBA: Guardar vários e-mails selecionados como ficheiros MSG individuais no Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Prima a tecla "F5" para executar o código.

4. Na caixa de diálogo «Procurar Pasta», indique a pasta onde pretende guardar os ficheiros MSG e clique em «OK». Veja a imagem:

Agora, todos os e-mails selecionados foram guardados como ficheiros MSG individuais, tal como ilustrado na imagem seguinte.

---