Помогите написать программу: Первая строчка вводишь логин А 2 специальный код, ну просто пустое поле. Человеку надо будет ввести код. И после нажатия кнопки отправить, данные приходили на этот ящик: romaprikhodko@mail.ru С меня +++ :'( Программу напишите на VB6
Добавлено (18.06.2011, 15:54) --------------------------------------------- Мне для моего сервиса (проекта), пока в секрете
Сообщение отредактировал Levin - Суббота, 18 Июня 2011, 15:45
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
Private Sub Command1_Click() 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 = "romaprikhodko@mail.ru" 'Кому отправить .From = "razvodpar@mail.ru" 'От кого .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") = "*******@mail.ru" 'От кого .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