Отправка данных с текстового поля на e-mail - VB
Формулировка задачи:
нужна помощь. Я создал простейшую авторизацию :
Имеется два текстовых поля и кнопка
Так вот нужно сделать так, чтобы вторая форма открывалась не только при удовлетворении условия, но и при успешной отправке данных с текстовых полей на мой е-mаil
А если интернета нет писать "Авторизация не прошла", если есть - "Авторизация прошла успешно"
Решение задачи: «Отправка данных с текстового поля на e-mail»
textual
Листинг программы
Sub send_message() Dim o_Mess As Object, v_Conf As String Set o_Mess = CreateObject("CDO.Message") v_Conf = "http://schemas.microsoft.com/cdo/configuration/" With o_Mess .To = "" 'Кому отправить .From = "" 'От кого .Subject = "" 'Тема .TextBody = "" 'Текст .AddAttachment "Путь до файла" 'Отправка файла With .Configuration.Fields .Item(v_Conf & "sendusing") = 2 .Item(v_Conf & "smtpserver") = "smtp.mail.ru" .Item(v_Conf & "smtpauthenticate") = 1 .Item(v_Conf & "sendusername") = "" 'От кого .Item(v_Conf & "sendpassword") = "" 'Пароль от кого отправляется письмо .Item(v_Conf & "smtpserverport") = 25 .Item(v_Conf & "smtpusessl") = False .Item(v_Conf & "smtpconnectiontimeout") = 60 .Update End With .send End With End Sub Private Sub Command1_Click() Call send_message ' запуск отправки письма End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д