Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заархивировать файл поставить пароль и отправить Outlook - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заархивировать файл поставить пароль и отправить Outlook (Макросы/Sub)
Заархивировать файл поставить пароль и отправить Outlook
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
 
Ответить
СообщениеДобрый день! Задача заархивировать файл 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
Дата добавления - 14.04.2021 в 14:37
китин Дата: Среда, 14.04.2021, 14:39 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6427
Репутация: 985 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеOlesya_89, - Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 14.04.2021 в 14:39
Olesya_89 Дата: Среда, 14.04.2021, 14:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

китин, как редактировать? или заново тему создать?
 
Ответить
Сообщениекитин, как редактировать? или заново тему создать?

Автор - Olesya_89
Дата добавления - 14.04.2021 в 14:42
китин Дата: Среда, 14.04.2021, 15:05 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 6427
Репутация: 985 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
в вашем первом посту нажмите кнопку правка и правьте


ну или предложите название темы я исправлю
К сообщению приложен файл: 2704327.jpg(21.0 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениев вашем первом посту нажмите кнопку правка и правьте


ну или предложите название темы я исправлю

Автор - китин
Дата добавления - 14.04.2021 в 15:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заархивировать файл поставить пароль и отправить Outlook (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!