devo inviare delle mail ad un elenco che ho posizionato in A2 fino A2851 senza allegati o altro, semplicemete inviare con un testo prestabilito.
ho pensato di usare una macro di Anthony http://www.pc-facile.com/forum/viewtopic.php?f=26&t=83835&start=20#p479791, ma si blocca sul primo nominativo e non prosegue con gli altri.
poichè non mi servono nè allegati, nè immagini, mi dite anche quali sono le righe della macro che posso eliminare?
sicuramente ho fatto qualche errore.
la macro di Anthony è questa:
- Codice: Seleziona tutto
Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
' (a)
Set OutApp = CreateObject("Outlook.Application")
''compilazione di un testo standard di accompagnamento
BDT = "Ti invio il risultato Portfolio per l'orientamento."
BDT = BDT & vbCrLf & "Cordiali saluti" & vbCrLf
BDT = BDT & "Rea"
'' (b)
Nominat = Sheets("Scheda").Range("C5").Value
OutFile = "C:\ESITI\" & Nominat & "_ScrSh.jpg"
EmailAddr = Range("h5").Value
Subj = "Invio risultati questionario"
'
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Attachments.Add OutFile
.Body = BDT
.Display 'or use .send
'.send
End With
' (c)
Set OutMail = Nothing
'
' (d)
Set OutApp = Nothing
Application.Wait (Now + TimeValue("0:00:04"))
Application.SendKeys "%a"
Application.Wait (Now + TimeValue("0:00:04"))
'
'Rename Image files
'Name "C:\ESITI\" & Nominat & "_ScrSh.jpg" As "C:\ESITITX\ " & Nominat & "_ScrSh.jpg"
End Sub