Ciao a tutti ,
il codice funziona ma non so come allegare un file di testo.

grazie



Function SpedisciEmail(ByVal destinatario As String, ByVal oggetto As String, ByVal testo As String) As Boolean
Try
Dim x As New System.Net.Mail.SmtpClient()
Dim c As New System.Net.NetworkCredential("pippo@pippo.it", "password")

x.UseDefaultCredentials = False
x.Credentials = c
x.Host = "smtp.ngi.it"

x.Send("admin@pippo.it", destinatario, oggetto, testo)
SpedisciEmail = True
Catch ex As Exception
SpedisciEmail = False
End Try
End Function




SpedisciEmail("destinatario@dominio.it", "Prova Email", Errore_DWN)