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

Сохранение всех вложений текущего сообщения в Outlook

25.05.2012, 08:54. Просмотров 6614. Ответов 3
Метки нет (Все метки)


Здравствуйте!

Нужно сохранить все вложения текущего письма, т.е. на котором стою.
Нашел как сделать для выделенных нескольких сообщений, а вот как для одного текущего?
Помогите, если можете.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub SaveAtt()
    For Each oItem In Outlook.Application.ActiveExplorer.Selection
     Set oMail = oItem
      For i = 1 To oMail.Attachments.Count
       If oMail.Attachments.Item(i).Position = 0 Then
        oMail.Attachments.Item(i).SaveAsFile DefFolder + "c:\1\" + oMail.Attachments.Item(i).DisplayName
       End If
      Next
    Next
    Set oMail = Nothing
End Sub
В VBA новичок, это первые макросы мои.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2012, 08:54
Ответы с готовыми решениями:

Outlook. Автоматическое сохранение вложений
Для автоматического сохранения вложений при приеме новых писем у меня поставлен следующий макрос: ...

Скрипт на сохранение вложений outlook
Добрый день, друзья! нужна помощь! нужен vbs скрипт, который будет в оутлуке искать письма от...

Менеджер почты: сохранение вложений сообщения
Всем привет. Я пишу свой менеджер почты. Пока что он умеет только отправлять и принимать письма....

Outlook - сохранение и разархивирование всех вложенных файлов из непрочитанных писем
Ситуация следующая.. Мне нужно сохранять вложения из всех новых писем в папку с текущей датой и...

__________________
Помогаю в написании студенческих работ здесь.
3
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 3
28.05.2012, 06:12  [ТС] 2
Это невозможно сделать?
0
здесь больше нет...
3354 / 1666 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
28.05.2012, 11:26 3
твой код тоже работает, только там условие одно есть, ограничивающее сбор вложений

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub SaveAtt()
    Dim oMail As MailItem
    Set oMail = Outlook.Application.ActiveExplorer.Selection(1)
 
    Dim att As Attachment
    For Each att In oMail.Attachments
        '        If att.Position = 0 Then ' ??????????????
        With att
            .SaveAsFile "c:\" & .DisplayName
        End With
        '        End If
    Next
    Set oMail = Nothing
End Sub
1
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 3
28.05.2012, 11:54  [ТС] 4
Спасибо большое! Работает.
До Selection(1) даже и не догадался бы
Сократил все до процедуры:
Visual Basic
1
2
3
4
5
6
Private Sub SaveAtt()                                                   
    For Each att In Outlook.Application.ActiveExplorer.Selection(1).Attachments
        att.SaveAsFile "c:\1\" & att.DisplayName
    Next
    Set oMail = Nothing
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2012, 11:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Обработка вложений Outlook
Всем доброго времени суток! Имеется следующая задача: С определенной периодичностью на...

Получение вложений в outlook
Добрый день. Пытаюсь создать скрипт для вставки в правило с целью получения вложенных файлов в...

Автообработка вложений в Outlook|OutlookExpress
Возникла необходимость автообработки вложений в емале Outlook|OutlookExpress, но нет опыта....

Чтение писем и сохранения вложений Outlook
Добрый день. Интересует задача, проанализировать отдельно входящие и исходящие письма на предмет...


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

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

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