Condividi:        

Aiuto con codice Excel VBA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Aiuto con codice Excel VBA

Postdi kolinar » 20/02/16 20:11

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
kolinar
Newbie
 
Post: 1
Iscritto il: 20/02/16 20:06

Sponsor
 

Re: Aiuto con codice Excel VBA

Postdi Anthony47 » 21/02/16 11:43

Ciao kolinar, benvenuto nel forum.
Premetto che nelle mie prove (con Office 2013) a ogni invio l'allegato era assente (quindi mi inseriva correttamente un solo allegato); comunque se a te si comporta diversamente puoi modificare il ciclo in modo da eliminare eventuali Attachments preesistenti:
Codice: Seleziona tutto
With ActiveSheet.MailEnvelope
    .Introduction = "Evviva"
    .Item.To = EmailAddr
    .Item.CC = ""
    .Item.BCC = ""
    .Item.Subject = Subj
CheckAtt:     'Aggiunto
    For ii = .Item.Attachments.Count To 1 Step -1
        .Item.Attachments(ii).Delete
    Next ii
    .Item.Attachments.Add Allegato
   .Item.Send
End With

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Aiuto con codice Excel VBA":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti