Perfetto, ci sono quasi, ma data l'ignoranza in merito non riesco a inviare agli indirizzi indicati in una specifica colonna, ho compilato il codice così:
Private Sub CDO_Mail_Small_Text_Click()

Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "miosmtp"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strbody = TxtMSG.Text

With iMsg
Set .Configuration = iConf
.To = Sheets("Foglio1").Range("A1,A6850").Value
.CC = ""
.BCC = ""
.From = """Polisportiva Senigallia ASD"" <mia@mail.it>"
.Subject = TxtObject.Text
.TextBody = strbody
.Send
End With

End Sub

Così invia solo alla prima mail dell'elenco...
grazie