Заархивировать файл поставить пароль и отправить Outlook

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Заархивировать файл поставить пароль и отправить Outlook (Макросы/Sub)

Olesya_89

Дата: Среда, 14.04.2021, 14:37 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Добрый день! Задача заархивировать файл pdf поставить пароль и отправить почтой Outlook
Как заархивировать я разобралась, а вот как поставить пароль и отправить что-то никак не соображу((
Знаю VBA на 1%
Помогите

Sub Rar()

Dim RetVal
Dim WinRarApp$, iFileName$, iArhivName$, adr$, iPath$, iArhivPass
Dim Password As String
WinRarApp$ = "C:\Program Files\WinRAR\WinRAR.exe a"

iFileName$ = "Анкета 2.xlsm.pdf"
iArhivName$ = "ÀАнкета.rar "

adr$ = WinRarApp$ & " """ & iPath & iArhivName$ & """ """ & iPath & iFileName$ & """ "
RetVal = shell(adr$, vbHide) 'vbNormalFocus)

End Sub

Сообщение отредактировал Olesya_89 - Четверг, 15.04.2021, 07:49

Ответить

китин

Дата: Среда, 14.04.2021, 14:39 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Olesya_89, - Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)