Arquivar sem anexos por VBA

Arquivar sem anexos por Kutools para Outlook

Este método apresentará um VBA para excluir todos os anexos da pasta especificada que você arquivará e, em seguida, poderá arquivar sem anexos. Faça o seguinte:

1. No Mail visualizar, selecione a pasta que você irá arquivar e pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole abaixo do VBA na janela do novo módulo.

VBA: Remova todos os anexos da pasta de e-mail selecionada no Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3. aperte o F5 ou clique no Execute botão para executar o código. Em seguida, todos os anexos são removidos da pasta de correio selecionada imediatamente.

4. Clique Envie o > Info > Ferramentas > Limpar itens antigos (ou Envie o > Info > Ferramentas de limpeza > arquivo).

5. Na caixa de diálogo Arquivo, clique para destacar a pasta copiada, digite HOJE no Arquivar itens mais antigos que e, em seguida, clique no Procurar botão. Veja a imagem:

6. Na caixa de diálogo Abrir arquivos de dados do Outlook, abra a pasta em que você salvará o arquivo PST arquivado e nomeie o arquivo PST no Nome do arquivo e, em seguida, clique no OK botão. Veja a imagem:

7. Agora você retorna à caixa de diálogo Arquivo, clique no OK botão para terminar o arquivamento.
Até agora, você arquivou a pasta de e-mail sem nenhum anexo.

Se você tiver o Kutools para Outlook instalado, você pode aplicar seu Desanexar tudo recurso para excluir rapidamente todos os anexos da pasta especificada, você vai arquivar e arquivar sem anexos facilmente.

1. No Mail visualizar, abra a pasta de e-mail especificada que você irá arquivar, selecione todos os e-mails pressionando Ctrl + A chaves e clique em Kutools > Desanexar tudo. Veja a imagem:

2. Na caixa de diálogo Selecione uma pasta, clique no Procurar botão  para especificar a pasta na qual você salvará o anexo, especifique um estilo de subpasta do crie subpastas no seguinte estilo lista suspensa e clique no Ok botão. Veja a imagem:

3. Por favor clique Sim botão e OK botão sucessivamente nas caixas de diálogo que aparecem.

4. Clique em Envie o > Info > Ferramentas > Limpar itens antigos (ou Envie o > Info > Ferramentas de limpeza > arquivo).

5. Na caixa de diálogo Arquivo, clique para realçar a pasta especificada que você irá arquivar sem anexos, digite HOJE no Arquivar itens mais antigos que e, em seguida, clique no Procurar botão. Veja a imagem:

6. Na caixa de diálogo Abrir arquivos de dados do Outlook, abra a pasta em que você salvará o arquivo PST arquivado e nomeie o arquivo PST no Nome do arquivo e, em seguida, clique no OK botão. Veja a imagem:

7. Agora você retorna à caixa de diálogo Arquivo, clique no OK botão para terminar o arquivamento.

Até agora, você arquivou a pasta de correio especificada sem anexos.

Como arquivar anexos automaticamente apenas no Outlook?

Como arquivar emails por ano / mês / data no Outlook?