VBA rimuovere allegato da email

Hai un problema con Excel?

Nuova discussione

VBA rimuovere allegato da email
di San (utente non iscritto) data: 20/02/2016 15:02:10
Buongiorno,

ho creato il docice che vedete sotto.
Il codice incvia 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

di patel data: 20/02/2016 17:55:58
allega il file, non solo la macro
di scossa data: 20/02/2016 18:14:19
.

di scossa data: 20/02/2016 18:17:39
cit.: "Come faccio a cancellare l'allegato dopo ogni invio e ad inviare ad ogno destinatario della lista solo il suo allegato?"

Avevi già posto questa domanda: Invio mail co allegato ed avuto una risposta. Sarebbe corretto dare riscontro alla risposta avuta là, anziché cambiare nick e proporre di nuovo la stessa domanda.

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

di patel data: 20/02/2016 18:28:33
Vedo che sono sempre coerente nelle mie risposte

Vuoi Approfondire?