vba excel activesheet.mailenvelope replyrecipients.add
hey,følgende kode tilføjer en replyrecipient for hver gang løkken kører så til sidst står den samme replyrecipient 46 gange i "Til.:" hvis man vil besvare.
Jeg har forsøgt at tilføje .item.replyrecipients.remove 1 og det har skåret det ned til at mail adressen kun står der 2 gange uanset hvor mange gange løkken har kørt.
Men jeg forsøgte lige noget mens jeg skrev mit spm.... og nu virker det.. så hvis nu andre sku ha samme udfordring er her min løsning :)
With ActiveSheet.MailEnvelope
.Introduction = "Sendt på vegne af xxxxxxxxxxxxxx"
If .Item.replyrecipients.Count > 0 Then // tæl antal replymodtagere i collection og hvis der er mere end 0 så fjern 1.
.Item.replyrecipients.Remove 1
End If
.Item.To = rec
.Item.replyrecipients.Add (reply) //defineret variable sat = en email adr
.Item.subject = subject
.Item.Send
End With