per ora preferisco la scelta di avatar di non far vedere tutti i "riceventi" della email e mandarne 1na x volta.
2)- x avatar si' uso la penultima macro perche' come ti dicevo se uso la tua "ultima" mi parte solo una emil
mentre cosi partono giuste a distanza di un minuto, tanto non penso ci siano problemi per il fatto che crei
una cartella nuova ogni volta o sbaglio ?
poi ho aggiunto l'ordinamento delle email in Col BC e il calcolo del tempo
- Codice: Seleziona tutto
Sub invio_un_Solo_Foglio()
scelta = MsgBox(Prompt:=" Stai per Spedire SOLO questo foglio ", Buttons:=vbYesNo, _
Title:=" Mando E.mail ai soci ? ")
If scelta = 6 Then '6 = SI; 7=No
UserForm2.Show vbModeless
DoEvents
Inizio = Timer
Range("BB9:BC28").Select ' <<< ordino le email
Selection.Sort Key1:=Range("BC9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
UR = Range("BC" & Rows.Count).End(xlUp).Row '<<< prende gli indirizzi inCol BC
For RR = 9 To UR
Destinat = Range("BC" & RR).Value
Sheets("1-masa1-fogl.base").Copy
Ogget = "luga masaniello --> email di prova" ' <<<l' oggetto che vuoi scrivere
ActiveWorkbook.SendMail _
Recipients:=Destinat, Subject:=Ogget
ActiveWindow.Close SaveChanges:=False
Application.Wait (Now + TimeValue("0:01:00")) '<<< tempo di ritardo tra una e.mail e l'altra
Next RR
Unload UserForm2
Fine = Timer
MsgBox ("Tempo impiegato " & Int((Fine - Inizio) / 60) & " min " & (Fine - Inizio) Mod 60 & " Sec")
End If
End Sub
ora vedo che le email arrivano con il foglio allegato correttamente
ma hanno solo l' oggetto.
se volessi scrive qualcosa nel contenuto ,qualcosa di fisso ovvio come per -l'oggetto- piu in automatico la data e l'ora
tipo : " email di masaniello del 4 giugno 2011 delle ore 14.30 "
x ora grazie come al solito.