Outlook!Как эти два скрипта соединить?вроди легко но я jscript не знаю.

[rustam009]

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

if(command=='SaveAttachments'){
  var Directory = "c:\\Attachments\\"

  var RegExpData = /\d{1,2}[\.\-\/\\]\d{1,2}[\.\-\/\\]\d{2,4}/gi;
  var DateMail;
  var Match = RegExpData.exec(item.Subject+"");
  if(Match!=null){
    DateMail = Match[0]
  }else{
    // Если не найдена дата в теме, то взять дату создания письма
    DateMail = FormatDate(new Date(item.CreationTime), "<ddd>.<mm>.<yyyy>");
  }

  if(DateMail){
    // Приводим дату к формату dd.mm.yyyy
    DateMail = DateMail.replace(/[\.\-\/\\]/gi, '.');
    DateMail = DateMail.replace(/^(\d){1}\./gi, '0$1.');
    DateMail = DateMail.replace(/\.(\d){1}\./gi, '.0$1.')
    var MyDir = DateMail.replace(/\.(\d{2})$/gi, '.20$1');
    var fso = glob("Scripting.FileSystemObject");
    // Цикл по всем вложениям в письме
    for(var i=1;i<=item.Attachments.Count;i++){
      var DirForAttach = Directory+MyDir;
      if(!fso.FolderExists(DirForAttach)){ fso.CreateFolder(DirForAttach); }
      item.Attachments(i).SaveAsFile(DirForAttach+'\\'+item.Attachments(i).FileName);
    }
    fso = null
  }
}
 
а вот по папкам 
var Address = [
 		['support-potolook.ru',   'Folder_01'],
 		['info-potolook.ru',      'Folder_02'],
 		['добавьте почтовый ящик', 'добавьте имя папки']
 		  ]
но вот как их соединить незнаю.
и есть ли вариант чтобы при извлечении из сообщения  разархивировалось и в папке был файл из архива а не сам архив?

[Fenex]

Если обрамлять код тэгом [CODE], то ваш код кто-то прочитает. А так понятно чуть менее, чем ничего. =(

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

if(command=='SaveAttachments') {
    var Directory = "c:\\Attachments\\"

    var RegExpData = /\d{1,2}[\.\-\/\\]\d{1,2}[\.\-\/\\]\d{2,4}/gi;
    var DateMail;
    var Match = RegExpData.exec(item.Subject+"");
    if(Match!=null) {
        DateMail = Match[0]
    } else {
    // Если не найдена дата в теме, то взять дату создания письма
    DateMail = FormatDate(new Date(item.CreationTime), "<ddd>.<mm>.<yyyy>");
    }
    if(DateMail) {
        // Приводим дату к формату dd.mm.yyyy
        DateMail = DateMail.replace(/[\.\-\/\\]/gi, '.');
        DateMail = DateMail.replace(/^(\d){1}\./gi, '0$1.');
        DateMail = DateMail.replace(/\.(\d){1}\./gi, '.0$1.')
        var MyDir = DateMail.replace(/\.(\d{2})$/gi, '.20$1');
        var fso = glob("Scripting.FileSystemObject");
        // Цикл по всем вложениям в письме
        for(var i=1;i<=item.Attachments.Count;i++) {
            var DirForAttach = Directory+MyDir;
            if(!fso.FolderExists(DirForAttach)) { fso.CreateFolder(DirForAttach); }
            item.Attachments(i).SaveAsFile(DirF orAttach+'\\'+item.Attachments(i).F ileName);
        }
        fso = null
    }
}

а вот по папкам

var Address = [
    ['support-potolook.ru', 'Folder_01'],
    ['info-potolook.ru', 'Folder_02'],
    ['добавьте почтовый ящик', 'добавьте имя папки']
]

но вот как их соединить незнаю.
и есть ли вариант чтобы при извлечении разархивировалось еще?

[rustam009]

вот это сохранение вложения по папкам полный код но не работает
<?xml version="1.0" encoding="UTF-8"?>
<TEMPLATES xmlns="http://schemas.positic.ru/plugins/mailtemplate.xsd">
	<NAME>Шаблон для файлового робота</NAME>
	<DESCRIPTION></DESCRIPTION>
	<AUTHOR>Positic</AUTHOR>
	<DATE>28.08.2006</DATE>
	<PATTERNS>
		<PATTERN kind="before" name="До" style="1">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="NEW" name="Новое сообщение">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="REPLY" name="Ответ">
			<TEXT><![CDATA[<%
nm.Subject = 'Отчет - '+om.Subject;

write(ReportText);

%>

-- 
Служба обработки входящих сообщений]]></TEXT>
		</PATTERN>
		<PATTERN kind="REPLYALL" name="Ответ всем">
			<TEXT><![CDATA[OQUOTES]]></TEXT>
		</PATTERN>
		<PATTERN kind="FORWARD" name="Переслать">
			<TEXT><![CDATA[----- Оригинальное сообщение -----
От:   OFROM
Дата: ODATE
Кому: <%=GetListRecipients(om)%>
Тема: OSUBJ

OTEXT
----- Оригинальное сообщение -----]]></TEXT>
		</PATTERN>
		<PATTERN kind="REPOST" name="Послать заново">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="after" name="После" style="1">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="beforeHTML" name="До HTML" style="1">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="NEWHTML" name="Новое сообщение HTML">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="REPLYHTML" name="Ответ HTML">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="REPLYALLHTML" name="Ответ всем HTML">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="FORWARDHTML" name="Переслать HTML">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="REPOSTHTML" name="Послать заново HTML">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN kind="afterHTML" name="После HTML" style="1">
			<TEXT><![CDATA[]]></TEXT>
		</PATTERN>
		<PATTERN xmlns="" kind="bef_All_" name="Инициализация"><TEXT><![CDATA[//************************************
var Directory = "d:\\Outlook\\";
debugger
var Address = [
		['support@potolook.ru',   'Folder_01'],
		['info@potolook.ru',      'Folder_02'],
		['добавьте почтовый ящик', 'добавьте имя папки']
					]
var ReportToSender = true; // отсылать на обратный адрес отчет о сохраненных вложениях
             
//************************************

BodyFormat = olFormatPlain;
var ReportText = '';

DoSaveAttachments();

function DoSaveAttachments(){

	if(om.Attachments.Count==0){
	  nm = null;
	  return;
	}
	var Found = false;  
	for(var i=0;i<Address.length;i++){
		try{
			if((SourceMessagePart(mpFrom).toLowerCase()).indexOf(Address[i][0].toLowerCase())>=0){
			Directory += Address[i][1];
			Found = true;
			break; 
		}
		}catch(e){}  
	}
	if(!Found){
	  nm = null;
	  return;
	}
	ReportText += 'Принятые вложения:\n\n';
	
	for(var i=1;i<=om.Attachments.Count;i++){
		with(glob("Scripting.FileSystemObject"))
			if(!fso.FolderExists(Directory)){ fso.CreateFolder(Directory); }
		om.Attachments(i).SaveAsFile(Directory+'\\'+om.Attachments(i).FileName);
		ReportText += om.Attachments(i).FileName+'\n';  
	}    
	
	if(!ReportToSender){
		nm = null;
	}
}]]></TEXT></PATTERN></PATTERNS>
	<FDGDFG xmlns="">dfgdfg</FDGDFG><PARAMS xmlns=""/><GROUPS xmlns=""><GROUP name="Параметры"/></GROUPS></TEMPLATES>