Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
VakaVaka
0 / 0 / 0
Регистрация: 23.07.2014
Сообщений: 9
1

Отправка приложенного файла через smtp

08.08.2014, 14:25. Просмотров 561. Ответов 1
Метки нет (Все метки)

Добрый день!

Использую данный код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'ГЋГІГЇГ°Г*ГўГЄГ* ГЇГЁГ±ГјГ¬Г*
    Set o_Mess = CreateObject("CDO.Message")
    v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
    With o_Mess
        .BodyPart.Charset = "utf-8"
        .To = EMAIL_cfg
        .From = EMAIL_cfg
        .Subject = EMAIL_subject_cfg & " - " & String_msg
        .TextBody = String_msg & String_user & String_00 & String_01 & String_02 & String_03 & String_04 & String_05 & String_06 & String_07 & String_08 & String_09 & String_10 & String_11 & String_contacts
 
        With .Configuration.Fields
            .Item(v_Conf & "sendusing") = 2
            .Item(v_Conf & "smtpserver") = EMAIL_smtp_cfg
            .Item(v_Conf & "smtpauthenticate") = 1
            .Item(v_Conf & "sendusername") = EMAIL_user_cfg
            .Item(v_Conf & "sendpassword") = EMAIL_pass_cfg
            .Item(v_Conf & "smtpserverport") = 25
            .Item(v_Conf & "smtpusessl") = False
            .Item(v_Conf & "smtpconnectiontimeout") = 60
            .Update
        End With
        .Send
    End With
Но не знаю, какой командой вставить отпрвку файла (допустим лежит в папке с программой)... и нигде не могу найти мануал

.AddAttachment = "C:\order.xls"

Не работает...

Заранее благодарен за подсказку!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.08.2014, 14:25
Ответы с готовыми решениями:

Отправка почты через SMTP
Пытаюсь разобраться с отправкой почты через SMTP. В инет доступ через прокси....

Как создать SMTP-сервер на VB (чтобы прога отправляла по РОР3, не используя провайдеров SMTP)
Всем привет! Подскажите, плиз, ссылков на тему! А то я нарыл только что-то...

Разработать блок-схему согласно приложенного кода
День добрый, на экзамен потребовалась блок-схема, помимо кода Вызывают...

Отправка писем напрямую через ВБ
Здравствуйте, хотелось бы у вас спросить: Вот видел тему, которая объясняет...

Не работает отправка SMS через PDU
Через GSM модем отправляю смс. В текстовом режиме все нормально, но там...

1
Антихакер32
Заблокирован
16.08.2014, 21:14 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
 
Private Sub TEST()
    Dim txt$
    SaveAccountData
    txt = "Это письмо сформировано макросом" & vbNewLine & "без использования внешних программ и подключения дополнительных библиотек"
    If Send_Mail("FelixMacintosh@yandex.ru", "FelixMacintosh@yandex.ru", "проверка отправки почты_2", _
    txt) Then
        MsgBox "Письмо успешно отправлено", vbInformation
    Else
        MsgBox "Не удалось отправить письмо", vbExclamation
    End If
End Sub
 
 
Sub SaveAccountData() 'запускать один раз - для записи в реестр Windows параметров почтового аккаунта
    SaveSetting App.EXEName, "mail", "smtpserver", "smtp.yandex.ru" 'Ваш SMTPServer
    SaveSetting App.EXEName, "mail", "sendusername", "FelixMacintosh@yandex.ru" 'Ваша учетная запись
    SaveSetting App.EXEName, "mail", "sendpassword", "XXXXXXX" 'Ваш пароль
End Sub
 
Function Send_Mail(ByVal MailTo As String, ByVal MailFrom As String, ByVal MailSubject As String, _
ByVal MailText As String, Optional ByVal MailAttachment As String = "") As Boolean
    'функция для отправки почты без использования внешних почтовых программ
    '----------------------------------------------------------------------
    'в качестве параметров получает:
    'MailTo - адрес получателя письма
    'MailFrom - адрес отправителя письма
    'MailSubject - тема письма
    'MailText - текст письма
    'MailAttachment - полный путь к файлу вложения (необязательный параметр)
    '----------------------------------------------------------------------
    'возвращает TRUE, если отправка почты произошла успешно, и FALSE в обратном случае
    Const cdoConfigURL = "http://schemas.microsoft.com/cdo/configuration/"
    Dim smtpserver$, sendusername$, sendpassword$
    Dim cdoConfig As Object, cdoMessage As Object
    On Error Resume Next: Err.Clear
    smtpserver = GetSetting(App.EXEName, "mail", "smtpserver", "")
    sendusername = GetSetting(App.EXEName, "mail", "sendusername", "")
    sendpassword = GetSetting(App.EXEName, "mail", "sendpassword", "")
    If Len(smtpserver) = 0 Or Len(sendusername) = 0 Or Len(sendpassword) = 0 Then Exit Function
    Set cdoConfig = CreateObject("CDO.Configuration")
    With cdoConfig.Fields
        .Item(cdoConfigURL & "sendusing") = 2
        .Item(cdoConfigURL & "smtpauthenticate") = 1
        .Item(cdoConfigURL & "smtpserver") = smtpserver
        .Item(cdoConfigURL & "sendusername") = sendusername
        .Item(cdoConfigURL & "sendpassword") = sendpassword
        'для отправки почты с аккаунта @gmail.com
        .Item(cdoConfigURL & "smtpserverport") = 465 'порт для SSL: 465
        .Item(cdoConfigURL & "smtpusessl") = 1 'использовать аутентификацию: да
        .Update
    End With
    Set cdoMessage = CreateObject("CDO.Message")
    With cdoMessage
        Set .Configuration = cdoConfig
        .BodyPart.Charset = "koi8-r"
        .From = MailFrom:
        .To = MailTo
        .Subject = MailSubject
        .TextBody = MailText
        If Len(MailAttachment) > 0 Then .AddAttachment MailAttachment 'Вложение !
        .Send
    End With
    Set cdoMessage = Nothing: Set cdoConfig = Nothing
    'If Err.Number = -2147220973 Then MsgBox ("Отсутствует связь с интернетом")
    'If Err.Number = -2147220975 Then MsgBox ("SMTP сервер ответил отказом")
    'If Err.Number = 0 Then MsgBox ("Письмо отправлено")
    Send_Mail = Err = 0
End Function
Добавлено через 6 минут
Если правильно сохранить акаунт, то получите это письмо:



Добавлено через 3 минуты
Цитата Сообщение от VakaVaka Посмотреть сообщение
Но не знаю, какой командой вставить отпрвку файла (допустим лежит в папке с программой)... и нигде не могу найти мануал
.AddAttachment = "C:\order.xls"
Не работает...
все работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.08.2014, 21:14

Отправка файлов через Outlook Express
Привет народ, помогите плиз реализовать следующие задачи: - архивирование базы...

Отправка почты со стандартного клиента через VB
Как сделать, чтобы при нажатии на кнопку открывалось окно Новое сообщение...

Отправка SMS через мобильник, подключенный к com-порту PC
Привет,ALL! Имеется следующая проблемка.Хочу отправить SMS программно. Цепляю...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru