'invio automatico email
'ATTENZIONE! prima dell'invio verificare che .Display sia commentato (attivare .Send)

Const ForReading = 1
Const percorso = "cartella_principale"

'attenzione! vbCrlf è case sensitive 
newline = vbCrlf

Set myOlApp = CreateObject("Outlook.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(percorso & "destinatari.txt", ForReading)

Do While f.AtEndOfStream <> True
    Set myEmail = myOlApp.CreateItem(olMailItem)
    textline = split(f.ReadLine, "#")	'il primo split (0) indica il nominativo, il secondo (1) l'allegato
    attachs = split("","")
    If ubound(textline) > 0 Then attachs = split(textline(1), ";")
    With myEmail
    	.To = textline(0)
    	.Subject = "Oggetto della mail"

	'Set messaggio = fso.OpenTextFile(percorso & "autoemail body.txt", ForReading)
        Set messaggio = "Messaggio generato in automatico, si prega di non rispondere."
	msg = messaggio.ReadAll & newline
	messaggio.Close

	For Each v In attachs
		If v <> "" then 
	    		msg = msg & newline & "Allegato: " & v
			.Attachments.Add percorso & "allegati" & v
		End If
    	Next

    	.Display 	'visualizza o no il messaggio prima di inviarlo; incompatibile con .Send ?
    	'.Save		'lo salva in posta in uscita di Outlook	
	'.Send		'lo invia effettivamente; incompatibile con .Display ?
    End With
Loop

f.Close
set f = nothing
set fso = nothing
set messaggio = nothing
set myEmail = nothing
set myOlApp = nothing
msgbox "Tutti i messaggi sono stati inoltrati!", vbInformation, "Finito"