Макрос в VBA, который сохраняет вложения писем outlook

Seer_Ius, 260 просмотров

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

Private 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)

d1 = InputBox("", "")
Set fso = CreateObject("scripting.filesystemobject")
fso.createfolder "C:\new\" + d1
DestFolder = "C:\new\" + d1 + "\"

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

Ответы:

ALEQUE

эээээээээээммммм короче так фиг найдешь ошибку, скачай VBA Debugger, и будет тебе щястье)

Valera Vaitulevich

Возможно поможет?
Макрос сохраняет вложения выбранных (с шифтом или Ctrl) в списке писем. Либо письма, на котором курсор.(проверено)
для открытого письма попробуйте ActiveInspector.CurrentItem (сам не проверял :-))
Sub SaveMyMail()
Dim myOlApp As Outlook.Application
Dim objItem, strname, strSubj, SavePath
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim i, j, BodyFormat, fileExt
Dim myAttachments, myAtt

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.