denisw,

Boa Tarde!

Bom... os objetos do Outlook são meio complexos de serem trabalhados e, confesso, não é bem a minha praia programar para Outlook. Aliás, a literatura nacional é quase nenhuma sobre a programação para o Outlook.

Todavia, o que consegui foi apagar a mensagem com anexo que foi aberta na Caixa de Entrada. Na verdade, ela é apagada da Caixa de Entrada e fica na pasta de Itens Excluídos. Não acertei e nem fui atrás de ver como deveria fazer para apagá-la definitivamente. Aí vai o código:

Sub Deletar_E_Mail()
    'Rotina que fecha o e-mail atualmente aberto
    
    Dim myOlApp As New Outlook.Application
    Dim myinspector As Outlook.Inspector
    Dim myItem As Outlook.MailItem
    
    Set myinspector = myOlApp.ActiveInspector
    Set myItem = myinspector.CurrentItem
    myItem.Delete 'apaga a mensagem corrente e coloca a mesma na caixa dos ítens excluídos
End Sub

E se criar uma regra resumidamente assim.... dim atmt as atachmment if atmt =xml then a rotina acima, tem consegue adaptar pq não conheço estes objetos.

Desculpe... Não sei fazer isso...

vou estudar + entaum! vlw

consegui!!! ( com ajdua de vcs) o que faltava era só item.delete ( bati 10x a cabeça na parede) segue meu código para salva anexo r-mail e deletar o e-mail. acredto q se usar a regra delete dentro da pasta excluido , ele exclua de vez o arquivo

Public Sub SalvarAnexo(item As MailItem)

Dim Atmt As Attachment
Dim FileName As String

For Each Atmt In item.Attachments
If Right(Atmt.FileName, 3) = "xml" Then
FileName = "C:arqout" & Format(item.CreationTime, "yyyymmdd_hhnnss_") & Atmt.FileName
Atmt.SaveAsFile FileName
item.Delete

End If
Next Atmt

End Sub