Отправка сообщений на e-mail - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Хотел бы узнать можно ли через Microsoft Visual Basic 6.0 создать программу, для многократной или одиночной отправки сообщений на э/п mail. Что бы он выгледил премерно так, как показано на изображении Если это возможно то просьба написать код, с пояснением (для чего нужна та или иная команда), так как я недавно начал изучать эту программу, ну собственно и на "antichat" я тоже недавно........ П.С. не ругаться за орфаграфию и содержание моей темы, так как я ещё многое не знаю, и могу не правельно вырозиться!

Решение задачи: «Отправка сообщений на 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()
Dim I As Integer
 
CLS
 
For I = 1 To 10 Step 1 'пишем 10 раз
    Call send_message   ' запуск отправки письма
Next I
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.636 из 5