Ciao Anthony,
nessuna destabilizzazione ma semplicemente un grandissimo grazie da parte dello scrivente.
Con le tue indicazioni penso di arrivare all'obiettivo.
Alla prossima
Moderatori: Anthony47, Flash30005
Sub Invia_Email_Ultima_Buona()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Foglio1.Select
' RR contiene il nuemro di utenti cui inviare le e-mail (1 per utente)
RR = Range("B" & Rows.Count).End(xlUp).Row
' I dati iniziano dalla seconda riga
For I = 2 To RR
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
' La colonna "B" contiene gli indirizzi e-mail dei vari destinatari
.To = Cells(I, 2)
' La colonna "C" contiene l'indirizzo e-mail in "Copia per Conoscenza"
.CC = Cells(I, 3)
' Eventuale e-mail in "Copia per conoscenza nascosta"
.BCC = ""
' La colonna "D" contiene l'oggetto della e-mail
.Subject = Cells(I, 4)
' La colonna "E" contiene l testo della e-mail
.Body = Cells(I, 5)
' La colonna "F" contiene il percorso ove si trova il file da allegare
' La colonna "G" contiene il nome del file da allegare
.Attachments.Add (Cells(I, 6) & Cells(I, 7))
.Display
End WithThunderbird mail mergeTorna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| programma convertitore e taglia file video e audio Autore: gianscooby |
Forum: Audio/Video e masterizzazione Risposte: 3 |
Visitano il forum: Nessuno e 14 ospiti