Invio automatico mail con allto

Invio automatico mail con all.to
di federicoppp (utente non iscritto) data: 30/12/2017 00:30:03
Salve a tutti,
mi trovo nella situazione di dover inviare a diversi contatti alcuni file excel , per ognuno il proprio di competenza.
Sono riuscito a risolvere quasi tutto ma ho problemi nell'allto.

codici vba:

Sub inviaipc()
Dim a As Object, b As Object, i As Integer
Dim inizio As Integer, fine As Integer
inizio = InputBox("Inserisci numero riga di inizio.")
fine = InputBox("Inserisci numero riga di inizio.")
For i = inizio To fine
Set a = CreateObject("Outlook.Application")
Set b = CreateItem(0)
b.To = Worksheets("Foglio1").Cells(i, 3)
b.BCC = Worksheets("Foglio1").Cells(i, 4)
b.CC = Worksheets("Foglio1").Cells(i, 5)
b.Subject = Worksheets("Foglio1").Cells(i, 6)
b.Body = Worksheets("Foglio1").Cells(i, 7)
b.Attachments.Add = Worksheets("Foglio1").Cells(i, 8)
b.Send
Next
End Sub

mi da errore su:
b.Attachments.Add = Worksheets("Foglio1").Cells(i, 8)

nelle colonne del file xlsx ho riportato il percorso del file excel da allegare... dove sbaglio ???
di patel data: 30/12/2017 08:38:03
non è possibile saperlo se non alleghi un file di esempio, non ha neppure detto quale errore ti dà
di oregon (utente non iscritto) data: 30/12/2017 09:28:35
Add è un metodo non una proprietà quindi non devi usare =

b.Attachments.Add Worksheets("Foglio1").Cells(i, 8)