Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 07.05.2018
Сообщений: 2
1
VBS

Скрипт на сохранение вложений outlook

07.05.2018, 10:27. Просмотров 1883. Ответов 1
Метки нет (Все метки)


Добрый день, друзья!

нужна помощь!

нужен vbs скрипт, который будет в оутлуке искать письма от определенных людей(напрмер от Иванова И.И.) , и их вложения(иксель файл) сохранять в определенную папку(например с:\New)

всем откликнувшимся заранее спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.05.2018, 10:27
Ответы с готовыми решениями:

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

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

Скрипт вытаскивания вложений из писем и сохранение в папку
Есть скрипт: #!/usr/bin/env python import getpass, imaplib, email, os, datetime from email...

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

__________________
Помогаю в написании студенческих работ здесь.
Записывайтесь на профессиональные курсы DevOps-инженеров
1
0 / 0 / 0
Регистрация: 07.05.2018
Сообщений: 2
10.05.2018, 21:57  [ТС] 2
что то нашел в просторах интеренета, что-то сам писал,
все работает, только одно НО
получается скрипт должен пред тем как сохранить в папку "New" должен посмотреть если в папке файл, и если есть то, кинуть его в другую папку "New1". а у меня получается в первый раз запускаешь скрипт, он все правильно отрабатывает, а во второй раз запускаешь он все файлы кидает в папку "New1", а "New" оставляет пустым....я и удалением файла и папки пробывал, но все безрезультатно, буду рад любой помощи!

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Call save_new
Sub mDebug(Text)
Dim Debug
Debug = True
If Debug Then
WScript.Echo Text
End If
End Sub
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(6).Folders("1")
DestFolder = "C:\New\"
set fso = createobject ("scripting.filesystemobject")
Dim File1
Dim File2
 
' 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)  Then
For j = 1 To myFolder.Items(i).Attachments.Count
Dim filename 
 
 
filename = myFolder.Items(i).Attachments.Item(j).DisplayName
'msgbox filename
on error resume next
File1 = CStr(FSO.GetBaseName(myFolder.Items(i).Attachments.Item(j).DisplayName))
Set Text = fso.createfolder("C:\New\" & File1)
 
Set File2 = fso.GetFile("C:\New\"& File1 & "\" & filename)
 
'msgbox Text & "\" & myFolder.Items(i).Attachments.Item(j).DisplayName
if FSO.FileExists("C:\New\"& File1 & "\" & filename)  then 
fso.GetFile("C:\New\"& File1 & "\" & myFolder.Items(i).Attachments.Item(j).DisplayName).move "C:\New1\" & date() & (i) & filename
 
'fso.DeleteFile File2
'fso.DeleteFolder Text
end if
'if FSO.FileExists("C:\New1\123.txt")  then msgbox "1"  else msgbox "2" end if
Set Text = fso.createfolder("C:\New\" & File1)
myFolder.Items(i).Attachments.Item(j).SaveAsFile Text & "\" & myFolder.Items(i).Attachments.Item(j).DisplayName
 
'next
'File2 = CStr(FSO.GetBaseName(Text & "\" & myFolder.Items(i).Attachments.Item(j).DisplayName))
 
msgbox "good"
 
Next
end if
 
 
Next
End If
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2018, 21:57

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

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

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

Режим отображения вложений в Outlook 2016
Можно ли сделать чтобы вложения отображались так, как это было в 2010/2013 Outlook? С отображением...

Макрос для массовой распечатки вложений Outlook
Всем привет, Я когда-то учил Java и PHP, так что могу понять логику несложного скрипта, но тут...


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

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

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