Perguntas SaveAttach

Olá, estou usando a rotina abaixo para salvar os anexos de uma conta de email, mas alguns anexos estão sendo salvos com o nome do anexo mas em seu conteúdo o corpo da mensagem. Alguém sabe o que pode estar acontecendo? Obrigado.

nIndex := 1
For nAtach := 1 to oMessage:getAttachCount()
aAttInfo:= oMessage:getAttachInfo(nAtach)
If "XML" $ UPPER(aAttInfo[1])
_nLocal := aScan(_xArqs,aAttInfo[1])
If _nLocal == 0
AADD(_xArqs,aAttInfo[1])
lSave :=oMessage:SaveAttach(nIndex,"E:\Protheus11\Protheus_Data\xml\"+aAttInfo[1])
nIndex := nIndex + 1
_ncont++
U_ZZXI("\xml\"+aAttInfo[1])
Endif
Endif
Next