VBA: duplicate attachments

[KirovHC]

I'm having a problem with attachments: on my computer it works perfectly but on others it keeps attachments in memory so, every time I send an emai,l it adds an attachment to the previous ones.
What could it be?
I also added "Attachment.Delete" before closing the code but it doesn't seem to have the desired effect

'EMAIL
Set Sendrng = mail.Range("A1:B" & lr)
Sendrng.Select
    With Sendrng
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            With .Item
                .To = mail.Range("E1").Value
                .CC = mail.Range("E2").Value
                '.BCC = ""
                .Subject = mail.Range("E3").Value
On Error Resume Next
                .Attachments.Add mail.Range("E4").Value
                .send
                End With
                End With
                End With
                
ActiveWorkbook.EnvelopeVisible = False

 

[KirovHC]

For now I found that

Set attch = .Attachments
    While attch.Count > 0
        attch.Remove 1
    Wend

works fine. If anyone has a better solution