ГлавнаяПоддержкаБлог
Главная arrow Исходные тексты arrow function.js/Все функции
function.js/Все функции
Оглавление
function.js/Все функции
Функции работы с адресами, макросами
Учетные записи, Inspector, WordEditor
Перенос текста, квотирование
Параметры шаблона, xml
Конвертирование, HTML, rule
Форматирование, вложения
Инициализация пользователя, регистрация
Hidden message, xml параметры
function ConvertToText(html){
 html=html.replace(new RegExp('<BR>','gi'), '\n');
 html=html.replace(new RegExp(' ','gi'), ' ');
 var html1="";
 var fl=0;
 for(var i=0;i<html.length;i++){
  if(html.charAt(i)=="<"){fl=1}
  if(html.charAt(i)==">"&&fl==1){fl=0}
  if(fl!=1&&html.charAt(i)!=">"){html1+=html.charAt(i)}
 }
 //html=html.replace(new RegExp("<.*?>",'gi'), '');
 return(html1);
}

function InsertIntoHTML(m, Text2){
  var Text = m.HTMLBody;
  if(Text.indexOf('[innerText]')>=0){
   Text = Text.replace(new RegExp("\\[innerText\\]","i"), Text2);
  }else{
   Text = Text.replace(new RegExp("</body>","i"), Text2+"</body>");
// Text = Text.replace(new RegExp("<o:p>(.*)</o:p>","i"), Text2+"<o:p></o:p>");
// Text = Text.replace(new RegExp("<DIV> </DIV>","i"), "<DIV>"+Text2+"</DIV>");
  }
  m.HTMLBody = Text
}


function GetQuotePrefix(SenderName, tq){
 var rplPrefix="";
 try{
    if(!(tq&rplPrefixNothing)){
     var sn = SenderName;
     var FirstSpace = sn.indexOf(" ");
     if(tq&rplPrefixFirstName_FirstSymb){
      rplPrefix += sn.substr(0,1);
     }
     if(tq&rplPrefixFirstName){
//      rplPrefix += sn.substr(0,(FirstSpace<0?sn.length+1:FirstSpace)-1);
      rplPrefix += sn.substr(0,(FirstSpace<0?sn.length:FirstSpace));
     }
     if(tq&rplPrefixLastName_FirstSymb){
      if(FirstSpace>=0)
       rplPrefix += sn.substr(sn.indexOf(" ")+1).substr(0,1);
     }
     if(tq&rplPrefixLastName){
      if(FirstSpace>=0)
       rplPrefix += sn.substr(sn.indexOf(" ")+1);
     }
     if(FirstSpace>=0){
      var ll = sn.substr(sn.indexOf(" ")+1);
      if(tq&rplPrefixThirdName_FirstSymb){
       rplPrefix += ll.substr(ll.indexOf(" ")+1).substr(0,1);
      }
      if(tq&rplPrefixThirdName){
       rplPrefix += ll.substr(ll.indexOf(" ")+1);
      }
      if(tq&rplPrefixFullName){
       rplPrefix += sn;
      }
     }
    }
 }catch(e){}
 return(rplPrefix)
}

function DQuote(om, tq, OriginalBody, ThisText, WithPrefix, DoText){
 tq = (tq?tq:(rplPrefixFirstName_FirstSymb));
 var rplPrefix="";
 if(om&&om.Class==olMail){
  try{
   rplPrefix = GetQuotePrefix(om.SafeSenderName, tq)
  }catch(e){}
 }else{
  rplPrefix = WithPrefix;
 }
 var rr="";

 var body='';
 if(DoText||ThisText){
  body = ThisText
 }else{
  if(glob('MULTISELECT')){
   var m = glob('MULTISELECT');
   for(var i=0;i<m.length;i++){
    var tmpBody = (glob("REMOVEADV")==1?RemoveAdvMail(m[i].Body):m[i].Body);
    tmpBody = OriginalBody?tmpBody:TBQuote(tmpBody);
    body += tmpBody;
   }
   OriginalBody = 1;
  }else{

   if(glob('OUTLOOK_VER')<=10 && CheckBodyFormat(om)==olFormatHTML && om.InternetCodepage!=MainCodePage){
    body = ConvertTextToCodePage(om.HTMLBody, om.InternetCodepage, MainCodePage)
   }else{
    body = om.Body;
   }

  }
 }
 if(!glob('MULTISELECT')&&glob("REMOVEADV")==1){
  body = RemoveAdvMail(body)
 }
 // Delete comments if Office 2000
 //if(HTMLbody!=""){ body=ConvertToText(HTMLbody)}
 if(glob("MyPrefix")){
  rplPrefix = glob("MyPrefix");
  glob("MyPrefix") = '';
 }

 glob('EV_QUOTE_TEXT') = OriginalBody?body:TBQuote(body);
 glob('EV_QUOTE_PREFIX') = glob("QuoteOutlook")?'>':(rplPrefix+"> ");
 func.SendEvent(EV_ID_QUOTE, null, null)
 rr = glob('EV_QUOTE_RESULT');
 glob('EV_QUOTE_RESULT') = null;
 return(rr);
}

function CondensedText(rr){
 rr = rr.replace(/(\n){2,}/gi, '\n');
 rr = rr.replace(/(\r\n){2,}/gi, '\n');
 return(rr)
}

function ConvertTextToCodePage(Text, InCodePage, OutCodePage){
 var om1 = func.Application.CreateItem(olMailItem);
 try{om1.BodyFormat = olFormatPlain}catch(e){}
 try{om1.InternetCodepage = InCodePage;}catch(e){}
 om1.HTMLBody = Text;
 try{om1.InternetCodepage = OutCodePage;}catch(e){}
 var Result = om1.Body;
 om1.Close(olDiscard);
 om1 = null;
 return(Result);
}

function CheckBodyFormat(m){
 try{
  return(m.BodyFormat)
 }catch(e){
  try{
    if((m.HTMLbody+'').length>0){
     return(olFormatHTML)
    }else{
     return(olFormatPlain)
    }
  }catch(e){
   return(olFormatPlain)
  }
 }
}

function DQuoteSelect(om, rplPrefix, UI, OriginalBody){
 var SForm = new Form();

 var body='';
  if(glob('MULTISELECT')){
   var m = glob('MULTISELECT');
   for(var i=0;i<m.length;i++){
    var tmpBody = (glob("REMOVEADV")==1?RemoveAdvMail(m[i].Body):m[i].Body);
    tmpBody = OriginalBody?tmpBody:TBQuote(tmpBody);
    body += '\n\t\t\t'+m[i].Subject+'\n'+tmpBody;
   }
   OriginalBody = 1;
  }else{

   if(glob('OUTLOOK_VER')<=10 && CheckBodyFormat(om)==olFormatHTML && om.InternetCodepage!=MainCodePage){
    body = ConvertTextToCodePage(om.HTMLBody, om.InternetCodepage, MainCodePage)
   }else{
    body = om.Body;
   }
   body = OriginalBody?body:TBQuote(body)
  }

 var Res = SForm.fSelectLinesFromLetter(body, UI_QuoteSelect, 75, 75);
 var Return='';
 if(Res){
   Return = DQuote(om, rplPrefix, OriginalBody, Res);
 }
 SForm.Quit();
 SForm = null;
 return(Return)
}


function AssignRecipients(nm, om){
 try{
   for(var i=1;i<=om.Recipients.count;i++){
     var sRec = om.Recipients.Item(i);
     var nRec = nm.Recipients.Add(CreateNormalEMail(sRec.Name, sRec.Address));
     nRec.Type = sRec.Type;
   }
 }catch(e){}
}

function GetListRecipients(om, AddressFormat){
 var Result='';
 try{
  var recs = om.Recipients;
  var cnt = recs.count;
  for(var i=1;i<=cnt;i++){
   var it = recs.item(i);
   Result+= it.Name +
      (it.Name.indexOf('@')<0&&!isExchangeAddress(it.Address)?' [mailto:'+it.Address+']':'')+(i==cnt?'':'; ');
  }
 }catch(e){}
 return(Result)
}


 


Загрузить Potolook
 
Плагин Potolook для Microsoft Outlook
Ментальная арифметика для детей
© 2004-2012 Позитик. Все права защищены.

Microsoft®, Outlook® и эмблема Office являются охраняемыми товарными знаками корпорации Майкрософт (Microsoft Corporation) в США и/или других странах.
Копирование и использование материалов разрешается только в случае указания явной гиперссылки на сайт http://www.potolook.ru, как на источник получения информации.

Разработка сайта — "Позитик"

Рейтинг@Mail.ru