Sub invia_mail(ByVal SMTP_SERVER As String, ByVal user As String, ByVal nome_mittente As String, ByVal pass As String, ByVal destinatario As String, ByVal oggetto As String, ByVal messaggio As String, ByVal allegato1 As String)
        'Impostazioni Mittente
        Dim mit As New Net.Mail.MailAddress(user, nome_mittente)
        'Impostazioni Destinatario
        Dim dest As New Net.Mail.MailAddress(destinatario)
        'Impostazioni E-Mail
        Dim ms As New Net.Mail.MailMessage(mit, dest)
        ms.Subject = oggetto
        ms.Body = messaggio
        'Allegati
        If allegato1 <> "" Then
            Dim attach As New Net.Mail.Attachment(allegato1)
            ms.Attachments.Add(attach)
            'Connessione SMTP Server
        End If
        Dim m As New Net.Mail.SmtpClient(SMTP_SERVER, 25)
        'Verifica Credenziali

        Dim cr As New Net.NetworkCredential("CodiceUtente", pass, "posta-top") ' "TELECOMITALIA")
        m.Credentials = cr
        'Invio Mail
        Try
            m.Send(ms)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub