Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBScript/JScript Автоматический запуск скрипта после скачивания https://www.cyberforum.ru/ vbscript-wsh/ thread2241308.html
ребят, хочу сделать скрипт, который сам будет запускаться автоматически, когда его скачиваешь. сразу скажу, ничего страшного нет, просто девушку хочу позвать гулять и немного постебать её таким вот...
VBScript/JScript Не работает скрипт от имени Администратора
Коллеги, день добрый. подскажите по такому вопросу, есть скрипт (приведу ниже) , работает нормально выводит окно запроса данных от пользователя. НО если запускать этот скрипт от Администратора -...
Как каталогизировать папки средствами JS ? VBScript/JScript
Имеется папка с множеством вложенных папок разных уровней вложения и файлы в каждой из них. Необходимо методами JS разместить в каждой папке текстовый файл со списком содержащихся в ней файлов (но...
VBScript/JScript Проверка, запущен ли процесс Помогите доработать скрипт var Process = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("Select * from Win32_Process Where Name = 'notepad.exe'"); if ( Process.Count < 1 ) {... https://www.cyberforum.ru/ vbscript-wsh/ thread2237543.html
VBScript/JScript Подскажите, как написать условие "Если объект существует, то..." https://www.cyberforum.ru/ vbscript-wsh/ thread2237311.html
Добрый день. Подскажите пожалуйста начинающему. Делаю VBScript стандартными средствами SAP ERP "Запись и воспроизведение скрипта". Как именно можно написать условие - ") существует то делать действия...
VBScript/JScript Как спарсить ссылку с сайта?
В общем есть HTML страица и на ней расположенна ссылка нужно ее записать в файл как это осуществить? Пример ссылки http://telegra.ph/Primer-04-28-2
Замена фразы, соответствующей шаблону, в Word VBScript/JScript
Word файл содержит текст с разными шрифтами, а так же таблицы/картинки. Требуется в нём найти текст соответствующий одному из 4 шаблонов и удалить. Текст может быть и в ячейках таблиц где разное...
VBScript/JScript Скачивание файла в определенную директорию Здравствуйте нужна помощь,в общем я немного лоханулся и сделал этот скрпт на powershell она не на всех пк. Подскажите как сделать на VBS скачивание файла по прямой ссылке и в нужный мне... https://www.cyberforum.ru/ vbscript-wsh/ thread2236770.html
VBScript/JScript Включение num lock https://www.cyberforum.ru/ vbscript-wsh/ thread2236163.html
Добрый день, есть ли команда которая включает num lock (не нажимает кнопку, а именно включает, при повторном нажатии также включена)
VBScript/JScript Запуск калькулятора Добрый день, не могу догнать код. Мне на работе заблокировали калькулятор, потому что не стандартный. Теперь встал вопрос как запустить стандартный калькулятор нажав нам лок (намлок всегда включен),... https://www.cyberforum.ru/ vbscript-wsh/ thread2234407.html
0 / 0 / 0
Регистрация: 07.05.2018
Сообщений: 2
10.05.2018, 21:57  [ТС] 0
VBS

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

10.05.2018, 21:57. Показов 2007. Ответов 1
Метки (Все метки)

Ответ

что то нашел в просторах интеренета, что-то сам писал,
все работает, только одно НО
получается скрипт должен пред тем как сохранить в папку "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


Вернуться к обсуждению:
Скрипт на сохранение вложений outlook
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, так что могу понять логику несложного скрипта, но тут...

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