Отправка сообщений на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д