Воскресенье, 17 Ноября 2019, 13:36

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Basic » VB mail (VB mail)
VB mail
LevinДата: Суббота, 18 Июня 2011, 15:54 | Сообщение # 1
Художник
Сейчас нет на сайте
Помогите написать программу:
Первая строчка вводишь логин
А 2 специальный код, ну просто пустое поле. Человеку надо будет ввести код.
И после нажатия кнопки отправить, данные приходили на этот ящик:
romaprikhodko@mail.ru
С меня +++ cry :'(
Программу напишите на VB6

Добавлено (18.06.2011, 15:54)
---------------------------------------------
Мне для моего сервиса (проекта), пока в секрете smile





Сообщение отредактировал Levin - Суббота, 18 Июня 2011, 15:45
anton-garДата: Суббота, 18 Июня 2011, 15:56 | Сообщение # 2
WEBmaster
Сейчас нет на сайте
обязательно на
Quote (Levin)
VB6
?


LevinДата: Суббота, 18 Июня 2011, 16:41 | Сообщение # 3
Художник
Сейчас нет на сайте
Да smile

Добавлено (18.06.2011, 16:05)
---------------------------------------------
anton-gar, Поможешь?

Добавлено (18.06.2011, 16:41)
---------------------------------------------
плз помогите cry sad



Kefir87Дата: Суббота, 18 Июня 2011, 16:49 | Сообщение # 4
участник
Сейчас нет на сайте
В button пропиши

Code
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


Параметры думаю сам заполнишь
LevinДата: Суббота, 18 Июня 2011, 17:03 | Сообщение # 5
Художник
Сейчас нет на сайте
ок, спс буду дома опробую
народ можно еще варианты biggrin



LunarPixelДата: Суббота, 18 Июня 2011, 17:08 | Сообщение # 6
старожил
Сейчас нет на сайте
Levin, поищи в интеренет, как это сделал Kefir87, и будут тебе варианты... Там много разных примеров... smile
Великий Google




Сообщение отредактировал LunarPixel - Суббота, 18 Июня 2011, 17:10
LevinДата: Суббота, 18 Июня 2011, 18:09 | Сообщение # 7
Художник
Сейчас нет на сайте
Ошибка:

Вот весь код кнопки:
Code
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

Что не так сделал?



Форум игроделов » Программирование » Basic » VB mail (VB mail)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2019 Рейтинг