Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MACRO PER INVIO MAIL CON CNTR V

Hai problemi con i file Zip, vuoi formattare l'HD, non sai come funziona FireFox? O magari ti serve proprio quel programmino di cui non ricordi il nome! Ecco il forum dove poter risolvere i tuoi problemi.

Moderatori: Dylan666, hydra, gahan

MACRO PER INVIO MAIL CON CNTR V

Postdi CARlow » 17/03/16 04:06

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
CARlow
Newbie
 
Post: 1
Iscritto il: 17/03/16 03:32

Sponsor
 

Torna a Software Windows


Topic correlati a "MACRO PER INVIO MAIL CON CNTR V":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti