Buongiorno,
ho creato il codice che vedete sotto.
Il codice invia una mail ad ogni destinatario di una lista.
Il problema sta nel fatto che ad ogni invio successivo mi allega anche gli allegati del destinatario precedente.
Come faccio a cancellare l'allegato dopo ogni invio e ad inviare ad ogno destinatario della lista solo il suo allegato?
Grazie
--------------------------------------------------------------------------------
Sub Invioemail()
EmailAddr = Cells(Range("O97").Value, "AB").Value
Allegato = Cells(Range("O97").Value, "AA").Value
Subj = Range("AI95").Value
ActiveSheet.Range("AI100:AU149").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = EmailAddr
.Item.CC = ""
.Item.BCC = ""
.Item.Subject = Subj
.Item.Attachments.Add Allegato
.Item.Send
End With
----------------------------------------------------------------------------------------------------
End Sub
Sub InviaAll()
For i = 100 To Cells(Rows.Count, "O").End(xlUp).Row
Range("O97") = i
Call Invioemail
Next i
End Sub