11
Ноябрь
2009
Отправка почтового сообщения с вложениями (CDO)
Отправка почтового сообщения с вложениями (CDO).
Реализован код с помощью CDO (набор интерфейсов, которые использует Outlook). Программа на VB может использовать как объекты Outlook, так и более низкий уровень – объекты MAPI через интерфейс CDO.
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 = "[email protected]" .From = "[email protected]" .Subject = "Тема письма" .TextBody = "Текст письма" .AddAttachment "C:\1.txt" With .Configuration.Fields .Item(v_Conf & "sendusing") = 2 .Item(v_Conf & "smtpserver") = "smtp.YourMailServer.ru" .Item(v_Conf & "smtpauthenticate") = 1 .Item(v_Conf & "sendusername") = "[email protected]" .Item(v_Conf & "sendpassword") = "YourPassword" .Item(v_Conf & "smtpserverport") = 25 .Item(v_Conf & "smtpusessl") = False .Item(v_Conf & "smtpconnectiontimeout") = 60 .Update End With .send End With End Sub