verwijder bijlage bij de optie: With ActiveSheet.MailEnvelope

[bruni]

Hallo,

ik heb een module die automatisch een mail vanuit excel stuurt met een bijlage. Het probleem is echter dat als ik de module nog een keer doe, de 1e bijlage nog steeds in de mail zit.
Hoe krijg ik het voor elkaar dat de 1e bijlage wordt verwijdert? Ik heb overal al gezocht, maar kan het tot op heden nog niet vinden.

With ActiveSheet.MailEnvelope

strAttachment = TempFilePath & TempFileName & FileExtStr

.Introduction = temp1
.Item.To = mailaddress
.Item.Subject = srt_ronde & " " & Format(Now(), "mmm-yyyy")
.Item.Attachments.Add strAttachment
.Item.Send

alvast bedankt,

André

 

[Janzwart]

Probeer het eens met de volgende code.

With ActiveSheet.MailEnvelope

strAttachment = TempFilePath & TempFileName & FileExtStr

.Introduction = temp1
.Item.To = mailaddress
.Item.Subject = srt_ronde & " " & Format(Now(), "mmm-yyyy")
.Item.Attachments.Add strAttachment
.Item.Send

Set strAttachment = Nothing 'met deze code word strAttachment leeg gemaakt

 

[bruni]

Hallo Jan,

ik heb het geprobeerd, maar ik kreeg een compile error dat een object required was.
met deze code wordt de strAttachment leeg gemaakt, maar de bijlage in mail verdwijnt hiermee denk ik niet.

Hoe krijg ik het dus voor elkaar om de attachments uit de mail te verwijderen?

bedankt,

André

 

[snb]

probeer:

.Item.Attachments.clear

of

.Item.Attachments(1).delete

 

[bruni]

het is inmiddels opgelost met onderstaande code

^{For cp = .Item.Attachments.Count To 1 Step -1
.Item.Attachments(cp).Delete
Next cp}

gr en bedankt, André