Si e' possibile.
Nel ciclo For Each cel In rng /Next cel invece che includere l'invio della email con questo codice (che quindi va eliminato):
Recipient = Range("H2").Value
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Recipient
.Body = Msg
.Send
End With
limitati a creare il testo del messaggio, modificando l'attuale
Msg = Range("a" & cel.Row).Value & " " & Range("b" & cel.Row).Value & " " & Range("c" & cel.Row).Value
In
- Codice: Seleziona tutto
Msg = Msg & Range("a" & cel.Row).Value & " " & Range("b" & cel.Row).Value & " " & Range("c" & cel.Row).Value & vbCrLf
Alla fine includerai l'invio della email, spostando in questa posizione il codice che avevamo prima eliminato:
- Codice: Seleziona tutto
Next cel 'Esistente
'Codice spostato in questa posizione:
Recipient = Range("H2").Value
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Recipient
.Body = Msg
.Send
End With
Application.Wait Now + TimeValue("00:00:02") 'Questa e' bene aggiungerla
ActiveWorkbook.Close 'Esistente
'altro codice
Ciao