ERRORE DI RUN TIME "91" Variabile oggetto o Variabile del blocco With non impostata

Alberto Cancellario, 3/9/2017 11:21 PM:

---

Ciao a tutti,
ho visto questa discussione ed ho pensato facesse esattamente al caso mio, così ho seguito le semplici linee guida della macro e la ho impostata, solo che ho un problema: mi invia solo e soltanto la email al primo destinatario e poi mi dà un errore, come mai secondo voi?

di seguito il codice che ho usato

Sub Manda_email_con_allegati_differenti()


Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String

Foglio1.Select

RR = Range("B" & Rows.Count).End(xlUp).Row
RR = 5

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
For i = 2 To RR
With OutMail

.To = Cells(i, 1)
.Subject = Cells(i, 2)
.Body = Cells(i, 3)
.Attachments.Add (Cells(i, 4) & Cells(i, 5))
.Display

End With

Set OutMail = Nothing
Set OutApp = Nothing
Application.SendKeys "%a"
Next i
End Sub


Ora, se modifico il campo range e lo "allineo" per così dire con il For allora nessuna problema, ma ovviamente invia una unica email, mentre se lascio i parametri in questo modo, mi apre la prima email e poi mi dà questo errore:

ERRORE DI RUN TIME "91"
Variabile oggetto o Variabile del blocco With non impostata

Cosa ho sbagliato nella Macro.

Grazie a tutti in anticipo

Alberto

---