Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 11
1

Упаковка в архив (с использованием пароля на архив) и отправка по почте

20.01.2012, 11:44. Показов 3299. Ответов 5
Метки нет (Все метки)

Помогите с написанием макроса, который будет упаковывать книгу в архив (книга по-умолчанию сохраняется в одну и ту же директорию), установить определенный пароль на архив (если есть возможность, то нужны команды как для архиватора 7-zip так и для winRAR. Еще лучше было бы использовать какой-то архиватор, который будет лежать в папке с макросом, чтобы была возможность использования на компах, где нет нужного архиватора). И после упаковки файла отправлять архив на определенный адрес (по возможности без использования outlook). Спасибо
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2012, 11:44
Ответы с готовыми решениями:

Упаковка в jar архив. NetBeans
Я в своей программе использую xml файл и gif иконку. Как бы мне так сделать, чтобы при создании...

Упаковка папок в архив используя ZipForge (Delphi 7)
Здравствуйте, подскажите пожалуйста как упаковать все папки и файлы находящиеся в каталоге в...

Упаковка в RAR-архив файла с другим путем
start "WinRAR" "%ProgramFiles%\WinRAR\WinRAR.exe" a "C:\Users\%UserName%\Desktop\B\build\S.rar"...

Как открыть архив DB? Не база данных, а архив с документами
Подскажите, как можно открыть файл .DB? Файл запаролен и не открывается ни парадоксом, ни дельфи....

5
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 11
23.01.2012, 17:16  [ТС] 2
Люди, помогите, пожалуйста
0
1475 / 381 / 34
Регистрация: 10.04.2009
Сообщений: 6,906
23.01.2012, 21:16 3
не по теме
о, не видел топика, схож с моим, апну
0
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 11
16.02.2012, 11:24  [ТС] 4
если кто-то может помочь, хотя бы "подтолкните" в нужное русло или, по возможности, дайте ссылку на форуме с похожей проблемой
0
5440 / 1475 / 359
Регистрация: 23.12.2010
Сообщений: 2,206
Записей в блоге: 1
17.02.2012, 14:25 5
Лучший ответ Сообщение было отмечено как решение

Решение

...
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
Sub Запаковать_документ_и_отправить()
    Dim MyDocPath As String, MyDocName As String
    Dim MyArhivPath As String, MyArhivName As String
    Dim Password As String, ShellArgument As String, ZipFullName As String, ZipPathCommand As String
    Dim fs As New Scripting.FileSystemObject
    ZipFullName = "C:\Program Files\7-Zip\7z.exe"
    ZipPathCommand = ZipFullName & " a "
    If Dir(ZipFullName) = "" Then
        MsgBox "Не найден файл 7z.exe" & Chr(10) & ZipFullName
        Exit Sub
    End If
    MyDocPath = "C:\temp\"
    MyDocName = "Document1.doc"
    MyArhivPath = "C:\temp\"
    MyArhivName = "Document1.zip"
    Password = "111"
    ShellArgument = ZipPathCommand & MyArhivPath & MyArhivName & " " & MyDocPath & MyDocName & " -tzip  -p" & Password
    Shell (ShellArgument)
    DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
    Application.Wait (Now + TimeValue("0:00:01"))
    Dim oOutlook As New Outlook.Application
    ' в приложении откуда запускается макрос в VBE должна быть ссылка на объектную библиотеку Outlook
    ' У меня это Microsoft Outlook 12.0 Object library
    Dim oMessage As Outlook.MailItem
    'Создаем объект сообщения
    Set oMessage = oOutlook.CreateItem(olMailItem)
    'Кому
    oMessage.To = "Administrator@nwtraders.msft"
    'Тема сообщения
    oMessage.Subject = "Отправка " & MyDocName
    'Текст сообщения. Использование свойства Body означает,
    'что мы посылаем сообщение обычным текстом.
    'Можно также послать сообщение в формате HTML или RTF
    oMessage.Body = "Текст сообщения: вложение"
    'Добавляем вложение
    oMessage.Attachments.Add (MyArhivPath & MyArhivName)
    Kill MyArhivPath & MyArhivName
    'Отправляем сообщение
    oMessage.Send
End Sub
3
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 11
20.02.2012, 18:01  [ТС] 6
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2012, 18:01

Почему создается архив без пароля?
OwenGlendower, спасибо, починилось Но появилась еще проблема ZipFile zf = new ZipFile(); ...

Как открыть запароленный архив не зная пароля
Всем здравствуйте! Обращаюсь с таким вопросом, имеется архив rar требующий ввода пароля,...

Архив, в котором меняется информация в зависимости от пароля
Мне нужна программа, сделанная под самораспаковываюшийся архив, главная функция программы:...

Установка пароля на архив и добавление комментария к архиву в процессе архивации
Интересует добавление пароля при архивации и комента к архиву через SET PASSWD=pass не работает...


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

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

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