Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
2 / 2 / 0
Регистрация: 27.01.2018
Сообщений: 15
1

Автоматическая отправка письма с вложением из Access

02.10.2019, 15:48. Просмотров 1912. Ответов 3


Добрый день
Прошу помощи в решении вопроса.
Есть код на кнопке в форме.

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
Private Sub Кнопка36_Click()
    Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
    .To = Me.[Имейл для сообщений] 'куда отправляем
    .From = "…….." 'имя отправителя + Email
    .Subject = ФИО & ", Уведомление о регистрации нового проекта договора (контракта)" 'Тема письма
    .TextBody = Выражение1
   .Attachments.Add ("[полныйпуть]")
        .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = . 'без использования каталога Server Exchange
    .Item(v_Conf & "smtpserver") = "........." 'Адрес SMTP-сервера
    .Item(v_Conf & "smtpauthenticate") = . 'Тип авторизации
    .Item(v_Conf & "sendusername") = "........" 'здесь имя пользователя без @
    .Item(v_Conf & "sendpassword") = "......." 'пароль
    .Item(v_Conf & "smtpserverport") = .. 'порт (альтернативный - 25)
    .Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованое подключение SSL
    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
    .Update
    End With
    .send
End With
Set o_Mess = Nothing
MsgBox "Сообщение отправлено!"
End Sub
Без строчки о вложении он прекрасно работает.
Возникла необходимость отправлять файл в сообщении. Путь к файлу содержится в поле [полныйпуть].
Выдается ошибка: Ошибка 13 type mismatch
Ругается на: .Attachments.Add ("[полныйпуть]")

Поле [полныйпуть] вычисляемое, поскольку гиперссылка относительная, состоит из "\\IP\Public\ДОГОВОРЫ" & [путь], значение в поле [полныйпуть] выглядит так: \\IP\Public\ДОГОВОРЫ\2019\1-200\114.docx

Если скопировать в проводник, файл по ссылке открывается, не понимаю что неправильно((
Подскажите пожалуйста, в чем проблема. Спасибо
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2019, 15:48
Ответы с готовыми решениями:

Отправка письма Outlook с вложением
Здравствуйте, Помогите, пожалуйста, как сделать: необходимо отправить письмо из Access через...

Отправка письма из Access'a
Мир всем. Такая ситуация - в базе данных появляется готовая заявка, требуется создать что-то типа...

Отправка письма из Access средствами outlook
Добрый день! Я уверен, что такие вопросы были ранее, но мне необходимо следующие. У меня есть...

MS Access VBA отправка письма без outlook
Доброго времени суток всем. Возникла необходмостъ отправить репорт по емаилу без юзера в Outlookе...

3
Эксперт MS Access
26600 / 14298 / 3164
Регистрация: 28.04.2012
Сообщений: 15,685
02.10.2019, 15:55 2
Лучший ответ Сообщение было отмечено alvk как решение

Решение

Цитата Сообщение от LudmilaZhukova Посмотреть сообщение
Ругается на: .Attachments.Add ("[полныйпуть]")
Разумеется, ведь полный путь в данном случае и есть строка "[полныйпуть]". А не "\\IP\Public\ДОГОВОРЫ\2019\1-200\114.docx". Надо вместо строки задать поле
Visual Basic
1
.Attachments.Add (Me.[полныйпуть])
2
2 / 2 / 0
Регистрация: 27.01.2018
Сообщений: 15
02.10.2019, 16:12  [ТС] 3
К сожалению не получилось. та же ошибка
0
Миниатюры
Автоматическая отправка  письма с вложением из Access  
2 / 2 / 0
Регистрация: 27.01.2018
Сообщений: 15
02.10.2019, 16:26  [ТС] 4
вот так работает

.AddAttachment (Me.[полныйпуть])

Спасибо)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.10.2019, 16:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

БД и автоматическая отправка СМС
Здравствуйте. Допустим, есть некая БД в виде Access файла для онлайн-сервиса. Эта БД находится в...

Автоматическая отправка E-mail
Всем добрый день. Уважаемые форумчане помогите разобраться. Сделал форму отправки Email. Вот код...

Автоматическая отправка отчёта на email
Здраствуйте, подскажите пожалуйста, как сделать автоматическую отправку отчёта на email в...

отправка письма
Знатоки, подскажите как можно сделать отправку данных из БД по почте, но не ввиде файла, как это...


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

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

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