[Risolto] SmtpClient più destinatari

[dex]

Ciao raga
Sto usando Smtpclient per l'invio di email,solo che funziona con un solo indirizzo di destinazione, come faccio ad aggiungere più destinatari?

Codice: [Seleziona]

Public Sub Button1_Click()

 Dim SMTP As New SmtpClient 
 Dim file_allegato AS String
   
  file_allegato = File.Load("/percorso/dell'eventuale/file/da/allegare")

  With SMTP
    .Host = "nome_Host"
    .Port = Porta_Host
    .User = "nome_utente"
    .Password = "password"
    .Debug = True
    .From = "indirizzo_email_di_chi_invia_la posta"
    .To.Add("indirizzo_email_del_destinatario")
    .Subject = "testo_dell'Oggetto_della_email"
    .Encrypt = Net.SSL
    .Add("testo_del_corpo_dell'email - ossia_il_messaggio")
    If IsNull(file_allegato) = False Then .Add(file_allegato)
    .Send()
  End With

End

[vuott]

...prova a separarli con un punto e virgola.

Esempio:
.To.Add("aaaa@abcd.it; bbbb@abcd.it; cccc@abcd.it")

[dex]

Ciao Vuott
Gia fatto, va in errore

L'unico modo che per ora funziona e aggiungere più .To.Add
ma rallenta molto il programma e sono limitato a pochi destinatari

l'unico modo se non ne esiste uno più veloce è un ciclo For

[vuott]

eh...sì.

[vuott]

Allora... devi utilizzare il Metodo ".Insert( )" della proprietà ".To".

Esempio:

Codice: [Seleziona]

.To.Insert(["aaaa@abcd.it", "bbbb@abcd.it", "cccc@abcd.it"])

[dex]

Ottimo 
risolto