Отправить письмо не используя Outlook - VB
Формулировка задачи:
Как программно отправить письмо через VB не используя Outlook? Даже пустое сообщение! И как к такому письмо приложить файл txt? Помогите, пожалуйста!
Решение задачи: «Отправить письмо не используя Outlook»
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 Form_load() Call send_message ' запуск отправки письма End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д