Salve a tutti
ho un problema in excel dovrei inviare delle mail a persone diverse inserendo nel corpo della mail sia testo (che viene modificato in base al destinatario) che immagini. Volevo usare il semplice copia incolla senza usare HTML (non sono ferrato) ho provato questo sotto ma prima mi crea le mail e poi mi incolla in tutte le mail lo stesso testo. [Ho provato a cercare su altri topic ma non ho trovato la soluzione]. Avete una soluzione da propormi?
GRAZIE MILLE A TUTTI
Sotto la macro:
Sub Invia_mail()
Dim OutApp As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Sheets("Foglio1").Select
Range("A1").Select
RR = Range("B" & Rows.Count).End(xlUp).Row
For I = 2 To RR
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Cells(I, 3)
.Subject = "prova"
.display
Sheets("Foglio1").Select
Cells(I, 10).Select
Selection.Copy
Sheets("Foglio2").Select
Range("C13").Select
ActiveSheet.Paste
Sheets("Foglio2").Select
ActiveWindow.SmallScroll Down:=15
Range("A2:K41").Select
Range("K41").Activate
Selection.Copy
Application.SendKeys "^v"
Application.SendKeys "%i"
Sheets("Foglio1").Select
Range("A1").Select
End With
Set OutMail = Nothing
Set OutApp = Nothing
Application.Wait Now + TimeValue("00:00:05")
Next I
MsgBox ("Invio completato")
End Sub
Registrazione