Отправка посторонних файлов из Access

@IzobilieLogic · Регистрация: 06.12.2018

Студворк — интернет-сервис помощи студентам

Всем добрый день!
Просмотрев несколько тем (вполне может быть и содержащих ответ на мой вопрос), но, не будучи профессионалом в этой области (о чем, ну, о-очень сожалею), пришел к выводу, что самому «дойти» до истины мне, увы, не удастся и надо писать открытое письмо с призывом о помощи.
Мой вопрос банален: «Как из Access 2007 отправить по e-mail (как вложение) несколько посторонних файлов?».
Будет ли это сделано через Макрос или Модуль (Module) с Функцией (Function), не принципиально, главное, что бы файлы «тихо и мирно» были отправлены адресату. Хотя, пожалуй, решение через функцию будет более желанным.
Что я имею ввиду под «тихо и мирно» - это результат, который мне удалось получить отправкой Excel-файла с помощью команды «ActiveWorkbook.SendMail» - запустил выполнение команды и все... файл ушел.
Outlook на ПК не установлен. В качестве почтовой программы использую Thunderbird, в интерфейсе которого я и отслеживаю отправленные мною excel-файлы посредством «ActiveWorkbook.SendMail».
Вот подобный результат очень хочется заполучить в Access с той лишь разницей, что «ActiveWorkbook.SendMail» отправляет текущий файл, а Access должен отправить посторонние файлы, где-то лежащие в другой папке.
Большое спасибо!

@АЕ · 20.12.2018, 16:25

IzobilieLogic, ну вот прекрасный код с нашего форума (я им пользовался)

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
Dim msg As Object
Dim config As String
Set msg = CreateObject("CDO.Message")
msg.BodyPart.Charset = "windows-1251"
config = "http://schemas.microsoft.com/cdo/configuration/"
With msg
.To = Me.E_Mail 'адрес получателя сообщения
.From = "no_reply@rza.ru" 'адрес отправителя сообщения - в данном случае в реальности не существует
.Subject = Me.Поле18  'тема сообщения
.TextBody = Me.Содержание 'содержание сообщения
'.AddAttachment ("Файл - Вложение1")
'.AddAttachment ("Файл - Вложение2")
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.ххх.ru" 'yandex.ru, mail.ru
.Item(config & "smtpauthenticate") = 0
.Item(config & "smtpserverport") = 25
'.Item(config & "sendusername") = "no_reply@ххх.ru" ' адрес отправителя - в данном случае в реальности не существует
'.Item(config & "sendpassword") = "izv_123" 'пароль электронного ящика отправителя - в данном случае в реальности не существует
.Item(config & "smtpusessl") = False '(yandex.ru, mail.ru =False)
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
Set msg = Nothing

Добавлено через 17 минут
только один минус - пароль от ящика надо в коде светить...

@IzobilieLogic · 20.12.2018, 16:34 **[ТС]**

Спасибо!
А шаги 11-12 применительно к моей ситуации должены выглядеть, наверное, так:
.AddAttachment = "c:\folder\file_01.txt"
.AddAttachment = "c:\folder\file_02.txt"
Верно?

Добавлено через 4 минуты
Спрашиваю, потому, что пунктуация, мое слабое место.

@АЕ · 20.12.2018, 16:36

.AddAttachment ("c:\folder\file_01.txt")
как то так

@IzobilieLogic · 20.12.2018, 16:40 **[ТС]**

Понято. Большое спасибо!
Еще вопрос, а почему Вы полностью закомментировали 18-19 шаги (не дали комментарий, и именно полностью закомментировали), у меня сложилось такое впечатление, что можно и без них?

@АЕ · 20.12.2018, 16:45

или так .AddAttachment "c:\folder\file_01.txt"
сам грешен

Добавлено через 1 минуту
коменты над снимать
это если сервер не требует аутентификации.
Сейчас такого просто нет....

@IzobilieLogic · 20.12.2018, 16:49 **[ТС]**

По ходу разберемся используя метод научного тыка.

Добавлено через 1 минуту
По поводу сервера и его аутентификации - понял. Комментарии обязательно сниму.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Отправка посторонних файлов из Access

Решение

Решение

Решение

@IzobilieLogic 0 / 0 / 0 Регистрация: 06.12.2018 Сообщений: 4

	Отправка посторонних файлов из Access 20.12.2018, 15:13. Показов 3253. Ответов 6 Метки ms access 2007, ms access для начинающих (Все метки) Всем добрый день! Просмотрев несколько тем (вполне может быть и содержащих ответ на мой вопрос), но, не будучи профессионалом в этой области (о чем, ну, о-очень сожалею), пришел к выводу, что самому «дойти» до истины мне, увы, не удастся и надо писать открытое письмо с призывом о помощи. Мой вопрос банален: «Как из Access 2007 отправить по e-mail (как вложение) несколько посторонних файлов?». Будет ли это сделано через Макрос или Модуль (Module) с Функцией (Function), не принципиально, главное, что бы файлы «тихо и мирно» были отправлены адресату. Хотя, пожалуй, решение через функцию будет более желанным. Что я имею ввиду под «тихо и мирно» - это результат, который мне удалось получить отправкой Excel-файла с помощью команды «ActiveWorkbook.SendMail» - запустил выполнение команды и все... файл ушел. Outlook на ПК не установлен. В качестве почтовой программы использую Thunderbird, в интерфейсе которого я и отслеживаю отправленные мною excel-файлы посредством «ActiveWorkbook.SendMail». Вот подобный результат очень хочется заполучить в Access с той лишь разницей, что «ActiveWorkbook.SendMail» отправляет текущий файл, а Access должен отправить посторонние файлы, где-то лежащие в другой папке. Большое спасибо! 0

@IzobilieLogic 0 / 0 / 0 Регистрация: 06.12.2018 Сообщений: 4
	20.12.2018, 16:34 [ТС]
	Спасибо! А шаги 11-12 применительно к моей ситуации должены выглядеть, наверное, так: .AddAttachment = "c:\folder\file_01.txt" .AddAttachment = "c:\folder\file_02.txt" Верно? Добавлено через 4 минуты Спрашиваю, потому, что пунктуация, мое слабое место. 0

@АЕ ᴁ © 4159 / 2448 / 508 Регистрация: 13.12.2016 Сообщений: 8,327 Записей в блоге: 5
	20.12.2018, 16:36
	Сообщение было отмечено IzobilieLogic как решение Решение .AddAttachment ("c:\folder\file_01.txt") как то так 1

@IzobilieLogic 0 / 0 / 0 Регистрация: 06.12.2018 Сообщений: 4
	20.12.2018, 16:40 [ТС]
	Понято. Большое спасибо! Еще вопрос, а почему Вы полностью закомментировали 18-19 шаги (не дали комментарий, и именно полностью закомментировали), у меня сложилось такое впечатление, что можно и без них? 0

@АЕ ᴁ © 4159 / 2448 / 508 Регистрация: 13.12.2016 Сообщений: 8,327 Записей в блоге: 5
	20.12.2018, 16:45
	Сообщение было отмечено IzobilieLogic как решение Решение или так .AddAttachment "c:\folder\file_01.txt" сам грешен Добавлено через 1 минуту коменты над снимать это если сервер не требует аутентификации. Сейчас такого просто нет.... 1

@IzobilieLogic 0 / 0 / 0 Регистрация: 06.12.2018 Сообщений: 4
	20.12.2018, 16:49 [ТС]
	По ходу разберемся используя метод научного тыка. Добавлено через 1 минуту По поводу сервера и его аутентификации - понял. Комментарии обязательно сниму. 0