Не могу дописать прогу

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o_Mess As Object, v_Conf As String, email As String
        v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
        o_Mess = CreateObject("CDO.Message")
        With o_Mess
            .To = "Адрес получателя" 'СЮДА БУТУ ПОСТРОЧНО ПОПАДАТЬ АДРЕСА ИЗ ФАЙЛА D:\emails.txt ЧТО-ТО ТИПА РАССЫЛКИ!
            .From = "Ваш E-Mail"
            .Subject = "Тема письма"
            .TextBody = "Тело письма" & TextBox1.Text
            With .Configuration.Fields
                .Item(v_Conf & "sendusing") = 2
                .Item(v_Conf & "smtpserver") = "smtp.mail.ru"
                .Item(v_Conf & "smtpauthenticate") = 1
                .Item(v_Conf & "sendusername") = "ВАШ E-MAIL"
                .Item(v_Conf & "sendpassword") = "ПАРОЛЬ ОТ E-MAIL"
                .Item(v_Conf & "smtpserverport") = 25
                .Item(v_Conf & "smtpusessl") = False
                .Item(v_Conf & "smtpconnectiontimeout") = 60
                .Update()
            End With
            .send()
        End With
        o_Mess = Nothing
    End Sub
End Class