Сохранение вложения из сообщения в указанную папку / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение вложения из сообщения в указанную папку

47 сообщений из 47, показаны все 2 страниц

все

Сохранение вложения из сообщения в указанную папку

#35637925

Gena108

Участник

Сообщения: 141

Рейтинг: 0 / 0

Мне нужно автоматически сохранять вложения в указанную папку. С попмощью форума и справки попробовал написать такой код. Но у меня выдает ошибку: "Не удается сохранить вложение. У Вас нет соответствующих прав для выполнения этой операции". Подксажите пожалуйста, что нужно делать?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Sub save_new()
Dim myApp As Outlook.Application
Dim myFolder As Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("1")
DestFolder = "C:\New"
     For Each Item In myFolder.Items
        For Each Atmt In Item.Attachments
            FileName = Atmt.FileName
                Atmt.SaveAsFile DestFolder
            End If
        Next Atmt
    Next Item
End Sub

...

Рейтинг:

0 / 0

06.11.2008, 15:39

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35639556

Shaher-Maher

Гость

Я так понимаю, что вы сохраняете все вложения в указанную папку. Или же это делаете для какого-то адресата отдельно?

...

Рейтинг:

0 / 0

07.11.2008, 11:38

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35639744

Gena108

Участник

Сообщения: 141

Рейтинг: 0 / 0

Этот макрос на этапе разработки, потом если получится сохранять любой файл с папки я добавлю условие на дату получения письма.

...

Рейтинг:

0 / 0

07.11.2008, 12:29

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35639826

Shaher-Maher

Гость

хм..мне просто надо сделать аналогичное, но у меня привязка может осуществиться только к мыло и к теме письма.

...

Рейтинг:

0 / 0

07.11.2008, 12:54

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35640861

Gena108

Участник

Сообщения: 141

Рейтинг: 0 / 0

Правильно, ли я понимаю, что я не могу сохранить, из-за политики безопасности компании (администраторы что-то где-то поставили). При ручном открытии приложения у меня выскакивает окно "Открытие вложения", внизу у которого, есть заблокированная галочка "Всегда спрашивать при открытии таких файлов". Нельзя как-то по другому сохранять файлы в указанную папку. Вариант с плагинами отпадает?

...

Рейтинг:

0 / 0

07.11.2008, 17:55

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35640877

Shaher-Maher

Гость

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

...

Рейтинг:

0 / 0

07.11.2008, 18:01

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35640892

Shaher-Maher

Гость

2 Gena108 кстати это у вас доработынй макрос??
по ходу у вас " End If" лишний

...

Рейтинг:

0 / 0

07.11.2008, 18:10

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35640920

Gena108

Участник

Сообщения: 141

Рейтинг: 0 / 0

Это я когда писал сообщение, то не вытер End if. А не могу ответить правильно ли я написал макрос, так как он у меня не работает. Причины я не знаю.

...

Рейтинг:

0 / 0

07.11.2008, 18:28

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35646250

Shaher-Maher

Гость

2 Gena108

я так понимаю свой вопрос не удалось решить? :)

...

Рейтинг:

0 / 0

11.11.2008, 12:27

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35650153

Taranaga

Участник

Откуда: Волгоград -> Москва

Сообщения: 457

Рейтинг: 0 / 0

А вдруг это поможет?
заменить
DestFolder = "C:\New"
на
DestFolder = "C:\New\"
...

...

Рейтинг:

0 / 0

12.11.2008, 18:30

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35650186

Taranaga

Участник

Откуда: Волгоград -> Москва

Сообщения: 457

Рейтинг: 0 / 0

А так получается?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Sub save_new()
Dim myApp As Outlook.Application
Dim myFolder As Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("1")
DestFolder = "C:\New\"
        
If myFolder.Items.Count >  0  Then
    For i =  1  To myFolder.Items.Count
        If myFolder.Items(i).Attachments.Count >  0  Then
            For j =  1  To myFolder.Items(i).Attachments.Count
                myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & myFolder.Items(i).Attachments.Item(j).DisplayName
            Next j
        End If
    Next i
End If
End Sub

...

Рейтинг:

0 / 0

12.11.2008, 18:44

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35654980

Gena108

Участник

Сообщения: 141

Рейтинг: 0 / 0

Работает. Ура!!!!!!!!. Я уже смирился, что невозможно автоматически сохранить. Спасибо большое.

...

Рейтинг:

0 / 0

14.11.2008, 16:39

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35655236

Shaher-Maher

Гость

хм...а у меня не работает. 2 Gena108 можешь сказать, что ты делаешь (напрмиер вкратце по шагово)

...

Рейтинг:

0 / 0

14.11.2008, 18:06

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35655329

Gena108

Участник

Сообщения: 141

Рейтинг: 0 / 0

Может быть много причин, может не установлена библиотека для Оутлук, может не создана папка "1" в папке "Входящие", может не создана на локальном диске папка New и т.д.

...

Рейтинг:

0 / 0

14.11.2008, 18:51

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35657471

Shaher-Maher

Гость

я понял в чем у меня была загвоздка )) Я пытался его присториить к вновь поступавшим письмам. А так он работает и копирует уже ранее скопированные файлы

...

Рейтинг:

0 / 0

17.11.2008, 12:09

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35713127

Shaher-Maher

Гость

Хм..а как сделать сохранение файлов по правилу? Т.е. есть уже правильно которое кидает письма в указанную папку, а вот тепреь привязат к правиу макрос.И я так понимаю, что макрос будет только для непрочитаных файлов?

...

Рейтинг:

0 / 0

14.12.2008, 14:06

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35777903

Sasha_Z

Гость

Gena108,

Все работает, но как выбрать исходную папку источник из личных папок (*.pst), то есть вся проблема сводится к указанию пути к произвольной ЛИЧНОЙ папке? GetDefaultFolder не предлагает такой выбор :-((

...

Рейтинг:

0 / 0

26.01.2009, 16:01

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35880983

admin12345

Гость

Чтобы сохранить скрипт в правиле Outlook нужно задать "Sub save_new(Item As Outlook.MeetingItem)", тогда он появится в списке сценариев.

...

Рейтинг:

0 / 0

20.03.2009, 10:31

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35881037

admin12345

Гость

прошу прощения, работает только с "Sub save_new(Item As Outlook.MailItem)..."

...

Рейтинг:

0 / 0

20.03.2009, 10:42

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35885249

Shaher-Maher

Гость

Хм...заработало )) спс...
только вот как применять вышеупомянутый скрипт только к вновь постпупившим файлам? А то при запуске данного сценария, скрипт обрабатывает всю почту от юзера и копирует все вложения.

И вот возник вопрос, при переборе почты.Как скопировать письма с вложениями на локалку? Т.е. сделать примерно следующее: все письма с папки Иванов в Атулуке скопировать на локалку в папку Иванов, но при этом создавать отдельные папки, например, по теме письма, и в этой папке создавать файл *.тхт (с текстом письма) и копировать вложенные файлы. Получается прмиерно следующее дерево:
С:\Иванов\..
\По деньгм
\По телефону
\По еде
..

Кто-то хотел сделать подобное?? :)

...

Рейтинг:

0 / 0

23.03.2009, 12:12

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#35975369

Евгений32132132131

Гость

Всем добрый день!
А нельзя ли прокомментировать:
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("1")
что такое "1" ?
- у меня на этом VBA спотыкается и пишет "Превышен размер массива"

...

Рейтинг:

0 / 0

07.05.2009, 17:57

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#36035947

Evgeny Boot

Участник

Сообщения: 6

Рейтинг: 0 / 0

file.vbs

Код: plaintext

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.

Sub save_new()
  On Error Resume Next
  Dim myApp 'As Outlook.Application
  Dim myFolder 'As Outlook.MAPIFolder
  Set myOlApp = CreateObject("Outlook.Application")
  Set myNameSpace = myOlApp.GetNamespace("MAPI")
  Set myFolder = myNameSpace.GetDefaultFolder( 6 ) '.Folders("1")
  DestFolder = "\\server\Share"
'  myFolder.Items.Sort "ReceivedTime", false
  If myFolder.Items.Count >  0  Then
      For i =  1  To myFolder.Items.Count
         If (myFolder.Items(i).Attachments.Count >  0 ) and (myFolder.Items(i).Unread = True) Then
              For j =  1  To myFolder.Items(i).Attachments.Count
                mDebug(myFolder.Items(i).Subject & " " & myFolder.Items(i).CreationTime)
                  myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & _
                    left(myFolder.Items(i).CreationTime, 10 ) & "_" & _
                    myFolder.Items(i).Attachments.Item(j).DisplayName
              Next 
          End If
         if Err.Number <>  0  Then
               mDebug("Error on :" & myFolder.Items(i).Subject)
               Err.Clear
             end if
      Next
  End If
End Sub

Товарищи, помогите пжлста заставить outlook 2003 автоматически сохранять вложения в указанную папку на сетевом диске (unc-пути в данном случае). Скрипт в шедулер.
и ошибок не выдает, и не сохраняет вложения

...

Рейтинг:

0 / 0

10.06.2009, 16:32

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#36035969

qwrqwr

Участник

Откуда: Msk

Сообщения: 1 685

Рейтинг: 0 / 0

дык ежели это .vbs, то добавьте первой строчкой Call save_new
или же удалите Sub и End Sub - если там тока эта процедура

...

Рейтинг:

0 / 0

10.06.2009, 16:40

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#36036857

Evgeny Boot

Участник

Сообщения: 6

Рейтинг: 0 / 0

да, в скрипте только эта процедура.
Но скрипт не работает,

по сути от него требуется только запускать outlook, смотреть Unread письма, и их аттачи складывать в \\server\share.
Если скрипт будет ещё к имени доставлять _mm-dd (дату) будет вообще идеально.

...

Рейтинг:

0 / 0

11.06.2009, 09:46

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#36036931

Evgeny Boot

Участник

Сообщения: 6

Рейтинг: 0 / 0

Но есть ещё лучше скриптик, он работает, но только на локальной машине, что мешает ему работать на терминальном сервере мне не понятно.
' To Turn On Debug Change Dim Debug from False to True in mDebug functionSub mDebug(Text) Dim Debug Debug = True If Debug Then WScript.Echo Text End IfEnd SubSub save_new() On Error Resume Next Dim myApp 'As Outlook.Application Dim myFolder 'As Outlook.MAPIFolder Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '.Folders("1") DestFolder = "C:\Scripts\"' myFolder.Items.Sort "ReceivedTime" false If myFolder.Items.Count > 0 Then For i = 1 To myFolder.Items.Count If (myFolder.Items(i).Attachments.Count > 0) and (myFolder.Items(i).Unread = True) Then For j = 1 To myFolder.Items(i).Attachments.Count mDebug(myFolder.Items(i).Subject & " " & myFolder.Items(i).CreationTime) myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & _ left(myFolder.Items(i).CreationTime10) & "_" & _ myFolder.Items(i).Attachments.Item(j).DisplayName Next End If if Err.Number <> 0 Then mDebug("Error on :" & myFolder.Items(i).Subject) Err.Clear end if Next End IfEnd SubmDebug("Start")save_new()mDebug("Done")

Запускается он по шедулеру, от "нужного" имени.

...

Рейтинг:

0 / 0

11.06.2009, 10:16

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#36215013

redwood

Гость

Shaher-MaherХм...заработало )) спс...
только вот как применять вышеупомянутый скрипт только к вновь постпупившим файлам? А то при запуске данного сценария, скрипт обрабатывает всю почту от юзера и копирует все вложения.

Где-то так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Sub Save_Attachments(Item As Outlook.MailItem)
  On Error Resume Next
  
  DestFolder = "D:\Temp\OL\"
  
  If (Item.Attachments.Count >  0 ) Then
    For i =  1  To Item.Attachments.Count
      Item.Attachments.Item(i).SaveAsFile DestFolder & Item.Attachments.Item(i).DisplayName
    Next i
  End If
End Sub

...

Рейтинг:

0 / 0

24.09.2009, 14:20

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Сохранение вложения из сообщения в указанную папку

#38112392

sevilium

Гость

Всем доброго времени суток.

Есть аналогичная задача - сохранять вложения их определенных писем в сетевую папку.

Создал правило, указал у правила нужные параметры, в том числе выполнение следующего скрипта из сообщения выше:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Sub Save_Attachments(Item As Outlook.MailItem)
  On Error Resume Next
  
  DestFolder = "\\hq-olap-01\Upload\Acquiring\"
  
  If (Item.Attachments.Count > 0) Then
    For i = 1 To Item.Attachments.Count
      Item.Attachments.Item(i).SaveAsFile DestFolder & Item.Attachments.Item(i).DisplayName
    Next i
  End If
End Sub

Правило отрабатывает (это видно по тому, что сообщению присваивается определенная метка и ставится пометка "выполнено"), но вложение в указанную папку не копируется. Сначала я попробовал указать сетевую папку, это не работало. Потом папку изменил на локальную. Результат не изменился.

Подскажите что может быть не так.

...

Рейтинг:

0 / 0

16.01.2013, 15:41

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38112988

скукотища

Гость

sevilium,
1) закомментируйте строку

Код: vbnet

On Error Resume Next

и посмотрите на какой команде будет вываливаться с ошибкой
2) название аттачмента может содержать символы, недопустивые в имени файла
3) ... ещё не придумал.

...

Рейтинг:

0 / 0

16.01.2013, 21:17

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38119405

sevilium

Гость

скукотищаsevilium,
1) закомментируйте строку

Код: vbnet

On Error Resume Next

и посмотрите на какой команде будет вываливаться с ошибкой
2) название аттачмента может содержать символы, недопустивые в имени файла
3) ... ещё не придумал.

Строку закомментировал, файл сохранился.
Спасибо!

...

Рейтинг:

0 / 0

22.01.2013, 12:37

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38119488

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

seviliumСтроку закомментировал, файл сохранился.помогло не закомментирование строки, а то, что пропала причина, которая не давала сохранить файл. Причина может вернуться.
Так что проблему можно считать пока нерешенной.
Предлагаю сделать так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Sub Save_Attachments(Item As Outlook.MailItem)
  On Error Goto Err
  
  DestFolder = "\\hq-olap-01\Upload\Acquiring\"
  
  If (Item.Attachments.Count > 0) Then
    For i = 1 To Item.Attachments.Count
      Item.Attachments.Item(i).SaveAsFile DestFolder & Item.Attachments.Item(i).DisplayName
    Next i
  End If
  Exit Sub
Err:
  Msgbox "Во время сохранения файла " & DestFolder & Item.Attachments.Item(i).DisplayName & _
  " произошла ошибка: " & Err.Description
End Sub

...

Рейтинг:

0 / 0

22.01.2013, 13:09

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38123497

sevilium

Гость

Shocker.Pro ,

скрипт прекрасно работает, выкладывает аттачи как в локальную папку, так и в сетевую.
Большое спасибо!

...

Рейтинг:

0 / 0

24.01.2013, 16:49

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375735

nady58

Гость

Shocker.Pro,
мне могли бы помочь (скрипт .vbs) outlook 2010 win 7 - выдает ошибку : строка 1, символ 27, предполагается наличие ')'
код 800A03EE:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Sub Save_Attachments(Item As Outlook.MailItem)
  On Error Goto Err
  
  DestFolder = "z:\post244\in"
  
  If (Item.Attachments.Count > 0) Then
    For i = 1 To Item.Attachments.Count
      Item.Attachments.Item(i).SaveAsFile DestFolder & Item.Attachments.Item(i).DisplayName
    Next i
  End If
  Exit Sub
Err:
  Msgbox "Во время сохранения файла " & DestFolder & Item.Attachments.Item(i).DisplayName & _
  " произошла ошибка: " & Err.Description
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

23.08.2013, 12:59

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375796

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А вы сами понимаете, что хотите добиться от VBS-скрипта, если в первой строке у вас идет Sub... ?

...

Рейтинг:

0 / 0

23.08.2013, 13:38

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375874

nady58

Гость

Shocker.Pro,
я не знаток , а чайник :(- может надо
Private Sub Save_Attachments(Item As Outlook.MailItem)

...

End Sub

...

Рейтинг:

0 / 0

23.08.2013, 14:22

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375881

nady58

Гость

Shocker.Pro,
Private Sub Save_Attachments(Item As Outlook.MailItem)

...

Рейтинг:

0 / 0

23.08.2013, 14:25

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375893

nady58

Гость

Shocker.Pro,
я поняла, что не права.
Я выдернула абзац из скрипта и пытаюсь что-то сделать :(

...

Рейтинг:

0 / 0

23.08.2013, 14:31

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375924

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

не так - вы выдернули спинку кресла из автомобиля и пытаетесь на ней уехать.

...

Рейтинг:

0 / 0

23.08.2013, 14:46

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375950

nady58

Гость

Shocker.Pro,
а может подскажете, можно где-то взять готовый скрипт для сохранения вложений из outlook 2010, что бы вставить в правила - очень уж нужно
Спасибо за понимание

...

Рейтинг:

0 / 0

23.08.2013, 15:02

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375964

nady58

Гость

Shocker.Pro,
мне дали скрипт http://files.mail.ru/0317C8D335234F01AB904C5B84779C46 , но надо под себя переделать, что бы не всю подряд непрочитанную почту сохранял, а только от конкретного адреса. Я написала правила для этого адресата с выполнением приложения (вместо приложения добавляю post.vbs)
НО увы, не хватает умишка

...

Рейтинг:

0 / 0

23.08.2013, 15:07

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38375967

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Не подскажу. Написал бы скрипт, но не раобтал с объектной моделью аутлука

...

Рейтинг:

0 / 0

23.08.2013, 15:07

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38381908

GuitaristNSK

Гость

Доброго времени суток! Прошу о помощи!))) Нужен макрос для автоматического сохранения вложения в письме на локальный/сетевой ресурс. Сохранять должно по маске в названии вложения. Вложения всегда в фотмате .txt и имеют определенную маску. Например, 136635_"название файла".txt. Сам в этом ничего не понимаю, поэтому надеюсь на вашу помощь. Заранее спасибо!

...

Рейтинг:

0 / 0

30.08.2013, 08:53

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38408226

Ярослав...

Гость

Подскажите пожалуйста почему скрипт работает только 1 раз? Как сделать чтоб каждый раз при проверке почты он выполнял правило с данным скриптом? Сейчас нужно каждый раз перезапускать Outlook(2010)

...

Рейтинг:

0 / 0

26.09.2013, 12:15

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Сохранение вложения из сообщения в указанную папку

#38877866

Миняйчев Клим

Гость

TaranagaА так получается?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Sub save_new()
Dim myApp As Outlook.Application
Dim myFolder As Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("1")
DestFolder = "C:\New\"
        
If myFolder.Items.Count > 0 Then
    For i = 1 To myFolder.Items.Count
        If myFolder.Items(i).Attachments.Count > 0 Then
            For j = 1 To myFolder.Items(i).Attachments.Count
                myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & myFolder.Items(i).Attachments.Item(j).DisplayName
            Next j
        End If
    Next i
End If
End Sub

По выше указному скрипту получается сохранять вложения, но что делать если у вложений одинаковые названия? Пробовал писать собственные названия но все пропадает если вложения в 1 письме.

...

Рейтинг:

0 / 0

12.02.2015, 12:20

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38877904

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Миняйчев Клим,
Попробуйте так:

Код: vbnet

myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & Format(now,"ddmmyy_hhmmss_") & myFolder.Items(i).Attachments.Item(j).DisplayName

Сомневаюсь, что вложения с одинаковыми именами будут попадаться чаще раза в секунду.
Так же можно счетчик добавить, если с секундами не прокатит:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Dim lCnt as long
If myFolder.Items.Count > 0 Then
    For i = 1 To myFolder.Items.Count
        If myFolder.Items(i).Attachments.Count > 0 Then
            For j = 1 To myFolder.Items(i).Attachments.Count
                lCnt = lCnt + 1
                myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & lCnt & "_" & myFolder.Items(i).Attachments.Item(j).DisplayName
            Next j
        End If
    Next i
End If

Можно и совместить дату-время и счетчик.

...

Рейтинг:

0 / 0

12.02.2015, 12:50

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38878119

Миняйчев Клим

Гость

The_Prist, спасибо помогло но идея была чуть чуть в дргом чтобы задать проверку, при которой если нет совпадений файл пишется с нормальным именем, а если найдется совпадение этот файл пишет (число_счетчика + нормальное имя)

...

Рейтинг:

0 / 0

12.02.2015, 14:53

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38878232

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Миняйчев Клим,

Так Вы же свою идею озвучит-то забыли :-) При этом надо учитывать - есть такой файл, добавляем счетчик. Если опять есть - счетчик прибавляется. Но Это в случае, если один файл такой. А если их много? Тут придется для каждого файла свой отдельный счетчик заводить. Сейчас нет времени выдумывать подобные алгоритмы.

...

Рейтинг:

0 / 0

12.02.2015, 15:48

| Ответить | Цитировать | Написать

Сохранение вложения из сообщения в указанную папку

#38883580

Миняйчев Клим

Гость

The_Prist,
Вот что получилось
Программа сохраняет все вложения из выделенных файлов.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Sub сохранение()
Dim myobj As Object
Dim att As Attachment
Dim CD As String
Dim D As String


For Each myobj In Application.ActiveExplorer.Selection
If myobj.Class = olMail Then
    For Each att In myobj.Attachments
        D = att.FileName
        If D = Dir("D:\Attachments\" & att.FileName) Then
            att.SaveAsFile "D:\Attachments\" & Format(Date, "yyyy_dd_mm_") & att.FileName
            Else
            att.SaveAsFile "D:\Attachments\" & att.FileName
        End If
    Next
End If
Next
End Sub

Модератор: Вам дают советы, используя оформление кода. Проявляйте уважение и Вы.

...

Рейтинг:

0 / 0

19.02.2015, 09:50

| Ответить | Цитировать | Написать

47 сообщений из 47, показаны все 2 страниц

все

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение вложения из сообщения в указанную папку

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=61&tid=2173632]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	34ms
get topic data:	12ms
get forum data:	3ms
get page messages:	72ms
get tp. blocked users:	2ms
others:	294ms

total:	447ms