Visual Basic FAQ

Отправка почтового сообщения с вложениями (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 = "AddressTo@mail.ru"
        .From = "AddressFrom@mail.ru"
        .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") = "YourLog@YourDomain.ru"
            .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

Запись опубликована on 11.11.2009 at 9:00 и размещена в рубрике: Интернет. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.