Outlookメールサポータ

@echo off &if not "%~0"=="%~dp0.\%~nx0" (start /min cmd /c,"%~dp0.\%~nx0" %* &exit) &rem ★DOS窓mini化 ★Psh起動
set pp=no&if not "%1"=="" set pp=%1
powershell -Exe RemoteSigned "$fln=(echo %0); $arg=(echo %pp%); $aa=(Cat $fln -Raw); $fdt=$aa.substring($aa.indexof('##'+'STT:')); Iex($fdt);"
exit; pause&exit;
##Ver1.44 wPshoutlook21.bat by ryu 2025/1120 #####################################
##
##STT:  ★[PSH窓]から【outlookメールサポータ】を作成。
##ACT:  outlook(有償版)起動後、このアプリを起動して利用。
##V1.44:操作性改善、1.43～:usr中級編対応、下書き、メニュ、Ver表示、usr/acc起動改善：ma窓背景色、[X]保存、open改善、文字化け変換、ANSI設定

using namespace System.Windows.Forms; Add-Type -AssemblyName System.Windows.Forms,System.Drawing; ##★m00:GUI ★DBG ★YesNo ★ssView ★menu関数
function dbg($cc){[MessageBox]::Show($cc)}; function dbc($zcc){Write-Host $zcc}; function dbt($cc){$mMain.Text="$szNmeVer $cc"};
function MsgYesNo($cc0,$cc1,$cc2){ if($cc2-eq $null){$cc2="YesNo"}; return [MessageBox]::Show($cc1,$cc0,$cc2); };
$global:fln=Convert-Path $fln; $global:szNmeVer="[Outlookｻﾎﾟｰﾀ V1.44]";
function ssDMnMenu($zcc){ $zmm=New-Object ToolStripMenuItem; $zmm.Text=$zcc; $dmMenu.Items.AddRange($zmm); $global:szMnBas=$zmm; return $zmm};
function ssDMnMSet($zcc){ $zmm=New-Object ToolStripMenuItem; $zmm.Text=$zcc; $szMnBas.DropDownItems.AddRange($zmm); return $zmm};
function ssDMnMCls($zcc){ $this.ownerItem.HideDropDown()}; 
$zcc="C:\winfree\Sakura\sakura.exe"; if(Test-Path $zcc){;}else{ $zcc="notepad.exe" }; $global:szEditor=$zcc;

##★m02:メイン窓／編集窓の生成 ★窓寸法(WW,HH) ★文字/寸法 ★背景色
$global:mMain=$fm=New-Object Form -Pro @{ Size="920,620";}; $szFont="BIZ UDゴシック"; $global:tBox=$mm=New-Object TextBox -Pro @{ Font="$szFont,11"; 
  BackColor="#DDFFBB"; Dock="Fill"; Multiline=$True; AcceptsReturn=$True; AllowDrop=$true; ScrollBars=[ScrollBars]::Vertical; MaxLength=0}; $fm.Controls.Add($mm); 
$global:szMnSize=10; $fm.MainMenuStrip =$global:dmMenu=New-Object MenuStrip -Pro @{ Font="$szFont,$szMnSize" }; $fm.Controls.Add($dmMenu); 

##★m04:マウス[WC]操作 ★DOS処理 ★explorer処理 ★psh追加 ★画面設定 ★MainDLG表示 ★Tool窓起動
$tBox.Add_DoubleClick({ssWCAct $this}); $tBox.Add_KeyDown({ if($_.Control){ switch($_.KeyCode){ {$_ -in "n","Return"}{ssWCAct $this} }; }; });
function ssWCAct($wBx,$sw){ $global:lnn=((($wBx.Text).substring(0,$wBx.SelectionStart)).split("`n")).count-1; $zcc=$wBx.Lines[$lnn]; if($sw-eq 1){return $zcc};
  $zcc=(($zcc.trim())-split"##")[0];
  if( $zcc.startsWith("&") ){ foreach( $ii in (1..500) ){ $cc=$wBx.Lines[$lnn+$ii]; if($cc -eq $null){ break};
        if( $cc.startsWith(";") ){ $zcc+="`n"+($cc.substring(1)).trim(); }else{ if( $cc.startsWith("#") ){ continue}; break}; }; };
  if( $zcc.startsWith("&&& ")){ $zcc=$zcc.substring(4); $wBx.SelectionStart+=5; Iex($zcc); return};
  if( $zcc.startsWith("& ")  ){ $zcc=$zcc.substring(2).replace('"','\"'); Start powershell -Arg "-noe $zcc "; return}; 
  if( $zcc.startsWith("&& ") ){ $zcc=$zcc.substring(3).replace('"','\"'); Start -NoN powershell -Arg "$zcc "; return}; 
  ssWClkCmd $lnn $zcc;
}; function global:ssWClkCmd(){};##dummy

##★m06:MSG窓の文字BOX(Msg "HH,WW" Ttl Size color) ★読取DLG ★保存DLC
function MsgBox($cc,$ww,$ms,$sz,$bc){ if($ww-eq $null){$ww="720,400"}; if($ms-eq $null){$ms=""}; $global:fmMBox=$fm=New-Object Form -Pro @{Size=$ww;Text=$ms}; 
    if($sz-eq $null){$sz="12"}; if($bc-eq $null){$bc="#F8F8F8"}; $global:mBox=$mm=New-Object TextBox -Pro @{ Font="$szFont,$sz"; Dock="Fill"; Multiline=$True; 
    AcceptsReturn=$True; ScrollBars=[ScrollBars]::Vertical; AllowDrop=$true; BackColor=$bc}; $fm.Controls.Add($mm);
    $fm.Location=""+[Cursor]::Position.X +","+[Cursor]::Position.Y; 
    $mm.Text=($cc.replace("`r","").replace("`n","`r`n")); $mm.SelectionStart=0; $fm.StartPosition="Manual"; $fm.Show() };
$dReadBox =New-Object OpenFileDialog -Pro @{ Title="【読取】ファイル選択"; Filter='ファイル|*.txt|全て(*.*)|*.*'; InitialDirectory=[String]$PWD };
$dSaveBox =New-Object SaveFileDialog -Pro @{ Title="【保存】ファイル設定"; Filter='ファイル|*.txt|全て(*.*)|*.*'; InitialDirectory=[String]$PWD };

##★m08:MsbBoxの指定窓型表示(cmd:/0:Boxのみ /1以上:Menu /2:Visible処理 pam:各種設定、メニュ釦設定)
function global:ssMsgBoxWnd($zcmd,$zmm,$zpam,$zmsg,$zttl){
    if( $zmm-ne $null -and $zmm-ne 0){ $zmm.Text=$zmsg.replace("`r","").replace("`n","`r`n"); $zmm.SelectionStart=0; ($zmm.Parent).show(); return};
    $cm=(($zpam.trim())-replace("  * "," ")).split(" "); MsgBox $zmsg $cm[0] $zttl $cm[1] $cm[2]; $fm=$fmMBox;
    if($zcmd-le 1){ $fm.Add_Closing({ $_.Cancel=$True; $this.Visible=$false }); };
    if($zcmd-eq 2){ $fm.Add_Closing({ $mm=ssBoximm !Wd; if( $mm.Modified ){ ssMaV2Sav($mm) }; 
        $mm.Modified=$false; $_.Cancel=$True; $this.Visible=$false }); };
    if($zcmd-ge 1){ $fm.MainMenuStrip=$global:dmMenu=New-Object MenuStrip -Pro @{ Font="$szFont,$szMnSize"}; $fm.Controls.Add($dmMenu) };
};
##★m10:outlookメールサポータ：(機能追加は【ssMaVBoxAdd 】へ
$global:szMailDir="$HOME\Documents\!MailPsh"; $global:szMailPamSet="!MailPamIni.txt"; function global:ssMaVBoxAdd($zcmd){}; ##User拡張用
$global:szMailWndPam="1120,720 13 #D1FFFE"; $global:szMailBoxPam= "980,720 12 #E5FFE4"; $global:szSendBoxPam= "980,720 10 #F5FFE4"; 
$global:szMAdrBoxPam="860,640 10 #E0FFE4";  $global:szMailPamSts=0; 
$global:szMaMen=@(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); $global:szMaDirGet=""; $global:szCmdBoxPam= "980,720 10 #F0F0F0";
function global:ssWebHlp($cc){ start "$szWebryuMail#_szIt$cc" }; $global:szWebryuMail="https://ryupapa008.blogspot.com/p/psh-outlookexplorer.html";
function global:ssMailAct($zcmd,$zpam){ if( (ssMaVBoxAdd $zcmd $zpam)-eq 1){ return}; switch($zcmd){
##★MIni:Outlook初期化 ★MSnd/MSdf:mail送信
 !MIni{   try{ $global:Outlook=New-Object -ComObject Outlook.Application }catch{ dbg "Error No Outlook!" }; return}##_★
 {$_ -in "!MSnd","!MSdf"}{   if( $Outlook-eq $null ){ ssMailAct !MIni }; if( $Outlook-eq $null ){return};
    $zcc0=$zpam; $zcc1=$zcc2=$zcc3=$zcc4=$zcc5=$zcc6="";
    foreach( $cc in $zcc0.split("`n") ){ $cc=$cc.trim(); if($cc.length-le 1){continue};
       switch( ($cc.split(":"))[0] ){ 
       "To"{ $zcc1=ssMailAdrSet ($cc.substring(3).trim()) }
       "Cc"{ $zcc2=ssMailAdrSet ($cc.substring(3).trim()) }
       "Bcc"{$zcc3=ssMailAdrSet ($cc.substring(4).trim()) }
       "AT"{ $zcc4+=($cc.substring(3).trim())+"`n" }
       "TT"{ $zcc5=($cc.substring(3).trim()); $zcc6=1; } }; if($zcc6-eq 1){break};  }; 
    $zcc6=$zcc0.substring($zcc0.indexof($cc)+$cc.length+1); 
    if( $zcc1-eq "" -or $zcc5-eq "" ){ if( (MsgYesNo "★注意: To/TT ﾌｫｰﾏｯﾄｴﾗｰ" "Web説明を見ますか？")-eq "Yes"){ ssWebHlp "em3"}; return};
    $global:szMailSend=$mm=$Outlook.CreateItem(0); $mm.To=$zcc1; $mm.CC="$zcc2"; $mm.BCC="$zcc3"; $mm.Subject=$zcc5; $mm.Body=$zcc6; 
    if($zcc4-ne ""){ $zcc4.split("`n")|%{ if($_.length-gt 4){ $mm.Attachments.Add( $_ ) }; }; }; if($szWinfm-ne $null){ ssMailAct !SFnm $zcc5 };
    if( $zcmd-eq "!MSdf" ){ try{ $szMailSend.Send() }catch{ dbg "outlook送信エラー";}; return};
    $global:szSendAdrs="[宛先] $zcc1`r`n[宛CC] $zcc2`r`n[BCC] $zcc3`r`n`r`n[添付]`r`n$zcc4";
    $global:szSendDaim="[題名] $zcc5";
    ssMsgBoxWnd 1 0 $szSendBoxPam ("$szSendAdrs`r`n$szSendDaim`r`n`r`n[内容]`r`n$zcc6") "送信メールチェック"; $global:szSendBox=$mBox; $mBox.ReadOnly=$true;
    (ssDMnMenu "[C]").add_Click({ ssSizeColor $szSendBox }); (ssDMnMenu "Help[Web]").add_Click({ ssWebHlp "em3" });
    (ssDMnMenu "[送信>>]").add_Click({ $zcc1 ="`r`n★注記★`r`n★1. 利用のoutlookや[Mail設定File]に登録されていない[略名の宛先]には`r`n送信できません。";
       $zcc1+="`r`n★2. 返信/転送の[ 元メール添付ファイル ]は送信されません。"
       if( ( (MsgYesNo "★注記を確認下さい【宛先】【添付】ＯＫですか？" "$zcc1`r`n`r`n$szSendAdrs`r`n`r`nを確認ください。" )-ne "Yes" ) -or
           ( (MsgYesNo "【最終チェック】送信ＯＫですか？" "$szSendDaim`r`n`r`n【内容】`r`n`r`nを確認ください。`r`n`r`n$szSendNote")-ne "Yes" ) -or
           ( (ssMaVBoxAdd !SChk)-eq 1) ){ dbg "キャンセル"; return}; try{ $szMailSend.Send() }catch{ dbg "outlook送信エラーで送信できません"; return};
       $szSendBox.Parent.Visible=$false });
    return}##_★

##★MDir:mailDir作成 ★MOpn:mail受信Box窓の生成(メニュー/マウス[WClk][UP][DOWN])
 !MDir{  $zcc=$szMailDir; if( Test-Path $zcc -PathType Container ){return};
    if((MsgYesNo "[Mailﾌｫﾙﾀﾞ]の作成" "[Home\ﾄﾞｷｭﾒﾝﾄ]ﾞ`nに作成ＯＫですか？`n`n$zcc")-ne "Yes"){dbg "ｷｬﾝｾﾙ"; return 1};
    mkdir "$zcc"; mkdir "$zcc\!send"; mkdir "$zcc\!tmp"; return}##_★
 !MOpn{  $mm=$zpam; if( (ssMailAct !MDir)-eq 1 ){return 1}; ssMailAct !PGet;  
    $global:szMaBox=$mm; $mm.ReadOnly=$true; $mm.WordWrap=$false; $mm.ScrollBars="Both"; $mm.Parent.Text="$szNmeVer $szMailDir"; 
    $zcm=(($szMailWndPam.trim())-replace("  * "," ")).split(" "); 
    $mm.Parent.Size=$zcm[0]; $mm.Font="$szFont,"+$zcm[1]; $mm.BackColor=$global:szMaBakClr1=$cc1=$zcm[2]; $cc2=$zcm[3]; 
    if( $cc2-ne $null -and $cc2.startsWith("#") ){}else{ $cc2="#D1FFEE" }; $global:szMaBakClr2=$cc2; $dmMenu.Font="$szFont,$szMnSize"
   ($szMaMen[1]=ssDMnMenu "[C]").add_Click({ ssSizeColor $szMaBox }); (ssDMnMSet "[-]").add_Click({ ssSizeColor $szMaBox 1 }); 
    $szMaMen[2]=(ssDMnMenu "受信Box"); (ssDMnMSet "[全て]").add_Click({ ssMailAct !MGet 6 }); (ssDMnMSet "[未読]").add_Click({ ssMailAct !MGet "6;1" });
    $szMaMen[4]=ssDMnMenu "その他"; (ssDMnMSet "送信済Box").add_Click({ ssMailAct !MGet 5 });
        (ssDMnMSet "迷惑ﾒｰﾙ").add_Click({ ssMailAct !MGet 23 }); (ssDMnMSet "送信ﾒｰﾙ").add_Click({ ssMailAct !MGet 4 });
        (ssDMnMSet "削除済み").add_Click({ ssMailAct !MGet 3 });(ssDMnMSet "削除済み(未読)").add_Click({ ssMailAct !MGet "3;1" });
        (ssDMnMSet "下書き").add_Click({ ssMailAct !MGet 16 });
    $szMaMen[5]=ssDMnMenu "ｿｰﾄ"; (ssDMnMSet "名称").add_Click({ ssMailAct !MSrt 1 }); (ssDMnMSet "題名").add_Click({ ssMailAct !MSrt 2 });
        (ssDMnMSet "日時↑").add_Click({ ssMailAct !MSrt 0 }); (ssDMnMSet "日時↓").add_Click({ ssMailAct !MSrt 10 });
   ($szMaMen[6]=ssDMnMenu "選択行[削除]").add_Click({ ssMailAct !MDel 1 });
   ($szMaMen[7]=ssDMnMenu "[ﾌｫﾙﾀﾞ]").add_Click({ ssMailAct !MExp });
    $szMaMen[8]=(ssDMnMenu "作成"); (ssDMnMSet "新規ﾒｰﾙ[作成]" ).add_Click({ ssMailAct !MEdt 200 }); 
        (ssDMnMSet "保存ﾒｰﾙ[読込]から").add_Click({ $dReadBox.InitialDirectory=$szMailDir; if( $dReadBox.ShowDialog() -ne "OK" ){return};
             $zfl=$dReadBox.FileName; ssMaV2Box 3 $zfl });
    $szMaMen[9]=(ssDMnMenu "Help"); ($global:szMaMenu91=ssDMnMSet "[利用説明]の表示(Web)").add_Click({ ssDMnMCls; start "$szWebryuMail" });
        ($global:szMaMenu92=ssDMnMSet "[起動表示窓]説明(Web)").add_Click({ ssDMnMCls; ssWebHlp "em1" });
        ($global:szMaMenu93=ssDMnMSet "Mail[設定File]の編集").add_Click({ ssDMnMCls; ssMailAct !MPam });
        (ssDMnMSet "[設定File]の説明(Web)").add_Click({ start "$szWebryuMail#_tgItem15" });
        (ssDMnMSet "[add]機能の説明(Web)").add_Click({ start "$szWebryuMail#_tgItem12" });
        (ssDMnMSet "Outlook再接続").add_Click({ ssMailAct !MIni });
    $mm.Add_DoubleClick({  $zcc=( ssWCAct $this 1 ).trim(); if($zcc.startsWith("&")){return}; ssMailAct !MViw $zcc });
    $mm.Add_MouseDown({ if( $this.ReadOnly-eq $false){return}; $wd=$szMaBox; $p1=$wd.SelectionStart; $p0=$wd.Text.LastIndexof("`n",$p1)+1; 
        $p2=$wd.SelectedText.Length; $p3=$wd.Text.Indexof("`n",$p1+$p2); if($p3-lt 0){$p3=$p1+$p2}; $wd.select($p0,($p3-$p0)); });
    $mm.Add_MouseUp({ if( $this.ReadOnly-eq $false){return}; $wd=$szMaBox; $p1=$wd.SelectionStart;  
        $p2=$wd.SelectedText.Length; $p3=$wd.Text.Indexof("`n",$p1+$p2); if($p3-lt 0){$p3=$p1+$p2}; $wd.select($p1,($p3-$p1)); });
    return}##_★

##★MGet:受信BOX(6)/送信BOX(5)/下書き(16)/迷惑BOX(23)の取得;[Sno][1:UnRead];[1:Buffer]
 !MGet{   if( $Outlook-eq $null ){ ssMailAct !MIni }; if( $Outlook-eq $null ){return}; 
    $zcm=(""+$zpam).split(";");  $mm=$Outlook.Session.GetDefaultFolder($zcm[0]);
    if( $zcm[1]-ne "1" ){ $mmIt=$mm.Items }else{ $mmIt=$mm.Items.Restrict("[UnRead] = true") };
    $nn=0; $zcc0=""; if( $zcm[2]-ne "1" ){ $fg=$true; $global:szMaItem=@{}; $zmd=1; if($zpam-eq 16){$zmd=2}; $global:szMaBoxMod=$zmd; };
    foreach( $ccc in $mmIt ){ if( $nn++ -gt 990 ){break}; $zcc1=$ccc.CreationTime.ToString("yy/MM/dd HH:mm:ss"); if($zcc1.length-lt 16){continue};
        $zcc2=ssSndrAdr($ccc); if($fg){ $szMaItem[$zcc1]=$ccc; if($zcc2.length-lt 20){ $zcc2+=("x"*10) }; $zcc2=$zcc2.substring(0,20); }; 
        $zcc3=($ccc.Subject).trim(); $zcc0+= " $zcc1|$zcc2|$zcc3`n";  };
    $zcc=($zcc0.split("`n")|sort -Des)-join "`r`n";
    if($fg){ $mm=$szMaBox; $mm.Text=$zcc; $mm.SelectionStart=0; $mm.BackColor=$szMaBakClr1; $global:szMaDirGet="" }else{ $global:szMailDtGet=$zcc }; return}##_★

##★MSrt:ソート(1/2/0/10) ★MNme:名称NG文字削除
 !MSrt{   $zcm=$szMaBox.Text.replace("`r","").split("`n");
     if($zpam-lt 10){ $zcm=( $zcm|Sort -Pro{ $_.split("|")[$zpam] } ) }else{ $zcm=( $zcm|Sort -Pro{ $_.split("|")[$zpam-10] } -D ) };
     $szMaBox.Text=" "+ ( $zcm-join "`r`n").trim()+"`r`n"; return}##_★
 !MNme{   $zcc=$zpam; @("/",":",".","=","?","*","<",">","`"","'","\","[","]")|%{ $zcc=$zcc.replace($_,"") }; $zcc=$zcc.replace(" ","_");
     $zcc=$zcc.replace("`”","_"); if($zcc.length-gt 65){ $zcc=$zcc.substring(0,65)}; return $zcc;}##_★
 !MExp{ $global:szVbMod=3; explorer $szMailDir; return}##_★
##★MViw:メール窓表示
 !MViw{  if($szMaDirGet-ne ""){return}; if( ($zpam.length-lt 15)-or ($zpam.substring(17,1)-ne "|") ){return}; 
    $zii=$zpam.substring(0,17); $ccc=$szMaItem[$zii]; $zcc=(ssMailAct !MNme $zpam); $zcm=$zcc.split("|"); $cc0=$zcm[0].substring(0,11);
    $cc1=$zcm[1].substring(0,16).replace("_","-"); $zcc5=$cc1+"_"+$cc0 +"@_"; $zzfl=$cc1+"_"+$cc0 +"!_"+$zcm[2];  ##file名利用
    $zcc4=""; $fg=0; if( $ccc.Attachments.Count-gt 0 ){ $fg=1; $zcc4="[添付]`n"; foreach($att in $ccc.Attachments){ $zcc4 +=$zcc5 +$att.FileName+"`n" }; $zcc4+="`n" };
    if( $szMaBoxMod-eq 1){  $zcc0="$zii  From: " +(ssSndrAdr($ccc)) +"`nTo_: " }else{ $zcc0="To: "};
    $zcc0 += $ccc.To +"`nCc: " +$ccc.CC +"`n`nTT: " +$ccc.Subject + "`n`n" +$zcc4 +$ccc.body; $ccc.UnRead=$false;
    ssMaV2Box 3 "$zzfl.txt" $zii $fg $zcc0; return}##_★

##★AGet:添付file取得(日時名称!まで) ★MDel:選択行の削除BOXへ移動 
 !AGet{  $ccc=$szMaItem[$szBoxid]; $zcc0=($szVbfile.split("!"))[0]; if( $ccc.Attachments.Count-le 0){ dbg "添付無し"; return}; 
    $zcc1=$szMailDir+"\"+$zcc0+"@_"; foreach($att in $ccc.Attachments){ $att.SaveAsFile( $zcc1 +$att.FileName) }; dbg "添付取得完了"; return}##_★
 !MDel{  if($szMaDirGet-ne ""){return}; if($zpam-eq 1){$zpam=$szMaBox.SelectedText};
    foreach($cc in $zpam.split("`n") ){ $cc=$cc.trim(); if( ($cc.length-lt 12)-or($cc-eq $cc0) ){continue};
       $ii=$cc.substring(0,17); $szMaItem[$ii].Delete(); $cc0=$cc };
    $mm=$szMaBox; $mm.ReadOnly=$false; $mm.cut(); $mm.ReadOnly=$true; return}##_★

##★MEdt:メール編集 /0/1:新規 /11:転送 /12:返信 /13:返信Cc /14/15:  追加/21:fdr/22:Fl設定 ★MPam:Pam設定File編集  ★SFnm:送信File名生成
 !MEdt{  if( $zpam-lt 100 ){ $mm=(ssBoximm !M2) }else{ if( $zpam-lt 200 ){ $zpam-=100; $mm=(ssBoximm !M3) }else{ $zpam=0 }; };
    if( ($zpam-ne 0)-and $szVbfile.contains($szMailPamSet) ){ dbg "設定File編集中"; return};
    switch($zpam){
    {$_ -in 0,1}{ $zcc0="To: `r`nCc: `r`nBcc: `r`nD&Drop[添付]`r`n`r`nTT: ＸＸＸ(題名)`r`n`[Msg]`r`n"; if($zpam-eq 1){ $zcc0 +="`r`n"+$mm.Text };
       ssMaV2Box 3 "!send\New-Mail.txt" "00" 0 $zcc0 ; ssMailAct !SFnm "_New-Mail"; return}##_★
    {$_ -in 11,12,13,14,15}{
       $zcc0=$mm.Text; $cc=$mm.Lines[0]; if($cc.contains("From:")){}else{ dbg "ERROR`n`nFrom: 行がない"; return};
       $zcc1="To: "; $zcc3="Cc: "; $zcc6="FW:";
       if( $zpam-ge 12 ){ $zcc1+=($cc-split("From:"))[1]; $zcc6="RE:"};##返信mail
       foreach( $ii in (1..20) ){ $cc=$mm.Lines[$ii];
          if($cc.startsWith("To_:")){ $zcc2=$cc.substring(5) };
          if($cc.startsWith("Cc:")){ $zcc3=$cc };
          if($cc.startsWith("TT:")){ $zcc4=$cc.replace("TT:",$zcc6); break};
       };
       switch($zpam){ {$_ -in 11,12,14}{ $zcc3="Cc: "} 13{} {$_ -in 14,15}{ $zcc1+="; $zcc2" } };
       $zcc333 ="$zcc1`r`n$zcc3`r`nD&Drop[添付]`r`n`r`nTT: $zcc4`r`n[Msg]`r`n`r`n`r`n`r`n#"+("-"*80)+"`r`n$zcc0"; ##$mm.SelectionStart=0; 
       ssMaV2Box 3 "!send\New-Mail.txt" "00" 0 $zcc333 ; ssMailAct !SFnm "_New-Mail"; return}##_★
    21{ ssMailAct !PGet; $mm.Text += "`r`n$szMailFudr" ; return}##_★
    22{ ssMailAct !MPam "<MailFudr>"; return}##_★ 
    }; return}##_★
 !MPam{  $global:szMailPamSts=0; $zfl="$szMailDir\$szMailPamSet";
    if( Test-Path $zfl ){}else{ SC $zfl "<MailWnd> 1120,720 12 #D1FFFE #D1FFEE`r`n`r`n<MailFudr>`r`n-----`r`n-----`r`n`r`n`<MailAdr> 例 &name : mailAdr@outlook.jp`r`n" }; 
    ssMaV2Box 3 $zfl; if($zpam-eq $null){return}; $zcc=$zpam; $wbx=$szBoxMm; 
    $zPos =($wbx.Text).indexof($zcc,0); if($zPos -lt 0 ){return}; $wbx.SelectionStart=$wbx.Text.length; $wbx.ScrollToCaret();
    $wbx.Select($zPos, $zcc.length); $wbx.ScrollToCaret();
    return}##_★
 !SFnm{  $zfl="!send\SMail_"+(Get-Date -Format "yyMMdd_HHmm")+"!_"+(ssMailAct !MNme $zpam)+".txt";
    $fm=$szBoxMm.Parent; $zcm=$fm.Text.split("["); $fm.Text="["+$zcm[1]+"[ "+$zfl; return}##_★

##★PGet:パラメータ取得(Sts:0=> /MailWnd /MailBox /SendNote /MailFudr /MailAdr )
 !PGet{  if( $szMailPamSts-eq 1){return}; $global:szMailAdr=""; $global:szMailPamSts=1;
    $zfl="$szMailDir\$szMailPamSet"; if(Test-Path $zfl){}else{return $false}; $st=0; $cc4=$cc1=$cc2=$cc3="";
    foreach( $cc in (Cat $zfl) ){ $cc=$cc.trim(); if( $cc.startsWith("##")){continue}; 
      if( $cc.startsWith("<") ){ $cm=$cc.split(">"); $cc0=$cm[0]; $cc=($cm[1]-split("##"))[0].trim();
         switch($cc0){ "<MailWnd"{ $global:szMailWndPam=$cc } "<MailBox"{ $global:szMailBoxPam=$cc } "<MAdrBox"{$global:szMAdrBoxPam=$cc }
         "<CmdBox"{$global:szCmdBoxPam=$cc } "<MenuSize"{$global:szMnSize=$cc } "<MailEnd"{$st=0} "<MailBxWeb"{$st=1; if($cc-eq 1){ ssPshSts 1 }; }
         "<SendNote"{$st=2} "<MailFudr"{$st=3} "<MailAdr"{$st=4} "<MailOthr"{$st=5}}; continue};
      switch($st){ 1{$cc4+="$cc`r`n"} 2{$cc1+="$cc`r`n"} 3{$cc2+="$cc`r`n"} 4{$cc3+="$cc`r`n"} }; };  
    $global:szWebB=$cc4.trim(); $global:szSendNote=$cc1.trim(); $global:szMailFudr=$cc2.trim(); $global:szMailAdr=$cc3.trim(); $zcc1=$zcc2="";
    foreach($cc in ($szMailAdr.split("`n")|sort -D) ){ if($cc.contains(":")){}else{continue};
       $zcm=$cc.split(":"); $cc0=$zcm[0].trim(); $cc1=$zcm[1].trim();
       if($cc0.startsWith("[")){ $zcc1+=$cc0+":$cc1`n" ; continue};
       if($cc.startsWith("&")-or $cc.startsWith("/o=") ){ $zcc2+=$cc0+":$cc1`n" ; continue};
    }; $global:szMailAdrMm=("$zcc1$zcc1$zcc2").split(":`n");  return}##_★

##★MVMn:メール表示窓メニュ追加 ★MABxアドレスBOX
 !MVMn{ (ssDMnMenu "[添付取得]").add_Click({  $mm=(ssBoximm !M1); ssMailAct !AGet !M1 });
    $aa1=(ssDMnMenu "ﾒｰﾙ編集");
       ($aa2=ssDMnMSet "[新規ﾒｰﾙ]").add_Click({ ssMailAct !MEdt 0 }); $global:szMnBas=$aa2;
         (ssDMnMSet "[+Mailﾍｯﾀﾞ]").add_Click({ ssMailAct !MEdt 101 }); 
         (ssDMnMSet "[ﾌｯﾀ 追加]").add_Click({ ssMailAct !MEdt 121 }); $global:szMnBas=$aa1;
       (ssDMnMSet "[転送ﾒｰﾙ]").add_Click({ ssMailAct !MEdt 11 });
       ($aa2=ssDMnMSet "[返信ﾒｰﾙ]").add_Click({ ssMailAct !MEdt 12 }); $global:szMnBas=$aa2;
         (ssDMnMSet "  [+Cc]").add_Click({ ssMailAct !MEdt 113 });
         (ssDMnMSet "  [+To]").add_Click({ ssMailAct !MEdt 114 }); 
         (ssDMnMSet "  [+To+Cc]").add_Click({ ssMailAct !MEdt 115 }); $global:szMnBas=$aa1;
    (ssDMnMSet "[ｱﾄﾞﾚｽ/ﾌｯﾀｰ]設定").add_Click({ ssMailAct !MEdt 22 });
    (ssDMnMSet "編集Help[Web]").add_Click({ ssWebHlp "em3" });
    (ssDMnMenu "[ｱﾄﾞﾚｽ]").add_Click({ ssMailAct !MABx ; $mm=(ssBoximm !M1) });
    (ssDMnMenu "[送信前ﾁｪｯｸ]").add_Click({ ssMailAct !PGet; $mm=(ssBoximm !M1); ssMailAct !MSnd $mm.Text }); 
    $global:szMaBoxMenu9=(ssDMnMenu "Help"); (ssDMnMSet "ﾒｰﾙ表示窓説明(Web)").add_Click({ ssWebHlp "em2" });
        (ssDMnMSet "Mail[設定File]の編集").add_Click({ ssMailAct !MPam "<MailAdr>" });
    (ssDMnMenu $szPshStcc ).add_Click({ ssPshSts; $this.Text=$szPshStcc; });
     $mm.Add_DragEnter({$_.Effect ="All";}); $mm.Add_DragDrop({ $zcc=@(([DataObject]$_.Data).GetData("FileDrop")); $zcm=$zcc.split("`n");
         $zcm|%{ $zcc=$_; if(Test-Path $zcc){}else{continue}; $zcc0=$this.text; $nn=$zcc0.indexof("[添付]");
         if($nn-gt 10){}else{ dbg "D&Drop[添付] 行を追加ください"; return}; $this.SelectionStart=$nn+6; $this.SelectedText="AT: $zcc`r`n" }; });
     return}##_★
 !MABx{  ssMailAct !PGet; (ssMsgBoxWnd 1 $szMaAdrBox $szMAdrBoxPam $szMailAdr "Mailアドレス" ); if($szMaAdrBox-ne $null){return};
   $global:szMaAdrBox=$mm=$mBox; $mm.ReadOnly=$true; (ssDMnMenu "[ｱﾄﾞﾚｽ設定]").add_Click({ ssMailAct !MPam "<MailAdr>" });
   $mm.Add_DoubleClick({ $cc=((ssWCAct $this 1).split(":"))[0].trim() ; $szBoxMm.SelectedText="$cc ; " }); return}##_★
};}; 
##★m20:USR_ADD機能追加
function global:ssPshSts($zcmd){ $ss=$szPshSts; if($zcmd-eq $null){$ss = $ss -bxor 1}else{$ss=$zcmd}; $global:szPshSts=$ss;
    if($ss-eq 0){$cc="Psh_Off"}else{$cc="Psh_ON"}; $global:szPshStcc=$cc; };
##★SenderAdr変換
function global:ssSndrAdr($ccc){ $cc0=$ccc.Sender.Address; $zcc="";
    if($cc0-ne $null){ $zcc=$cc0.trim(); if( $zcc.startsWith("/o=") ){ $zcc=ssMailAdrSet($zcc) };}; return($zcc)};##_★
##★MailAdr変換(for To/Cc/Bcc)
function global:ssMailAdrSet($zCha){ $nn=$szMailAdrMm.length;
    for($ii=0; $ii-lt $nn; $ii+=2 ){ $cc0=$szMailAdrMm[$ii]; $cc1=$szMailAdrMm[$ii+1];
        if($cc1.length-lt 4){continue}; $zCha=$zCha.replace($cc0,$cc1);  };  return $zCha};##_★
##★m22:ファイル利用NG文字の検索、★メニュ釦の$mm窓を取得
function global:ssInvChr($zcc){ if( $szinvCcm-eq $null ){ $global:szinvCcm=("<,>,|,^,/,=,`",',[,],*").split(","); };
    if( $zcc.IndexOfAny($szinvCcm)-le 0 ){return $true}; return $false};##_★

##★m30:窓TTL="[n]Mail]IDD]0][ VbFile"の取得(szWinfm/szBoxMm/szVbDir/szVbfile/szVbMod/)
function global:ssBoximm($pp){ switch($pp){ !Wd{ $fm=$this} !Bx{ $fm=$this.Parent} !M1{ $fm=$this.owner.Parent}
        !M2{ $fm=$this.ownerItem.owner.Parent} !M3{ $fm=$this.ownerItem.ownerItem.owner.Parent}};
    $zcm=$fm.Text.split("[]"); $global:szWinfm=$fm; $ii=$zcm[1]; $cc=$zcm[2]; $global:szBoxid=$zcm[3]; $global:szfg=$zcm[4];
    if( $cc-eq "Mail"){ $mod=3; $Dir=$szMailDir; $mm=$maBoxs[$ii] }else{ $mod=2; $dir="C:\tmp"; $mm=$cdBoxs[$ii]};
    $global:szVbfile=$zcm[6].trim(); $global:szVbMod=$mod; $global:szVbDir=$dir; return ($global:szBoxMm=$mm) };##_★

##★m32:View maBox/cdBoxの生成(各10個の窓、メニュー、マウス[WClk][Drag&Drop]
function global:ssMaFilLoad($zfl){ if( $zfl.contains("_u.txt") ){ return (Cat "$zfl" -enc utf8 -Raw) }; return (Cat "$zfl" -Raw) };
function global:ssMaFilSave($zfl,$zdat){ if( $zfl.contains("_u.txt") ){ SC "$zfl" $zdat -enc utf8 }else{ SC "$zfl" $zdat }; };
##★m34:保存処理
function global:ssMaV2Sav($mm){ $zfl=$szVbfile; if( $zfl.contains(":\") ){}else{ $zfl="$szVbDir\$zfl"};
    if( Test-Path $zfl ){$zcc0="【注意】重複しています。上書き保存しますか？"}else{$zcc0="【保存】しますか？"};
    if( (MsgYesNo "$zcc0" ("[Dir] $szVbDir\`n`n[File] "+($zfl.replace("$szVbDir\","")) ) )-eq "Yes" ){ ssMaFilSave $zfl $mm.Text; $mm.Modified=$false };
    if( $szfg-eq 1){ if( (MsgYesNo "【注意】" "添付ファイルがあります`n上書き保存しますか？")-eq "Yes" ){ ssMailAct !AGet !M1 }; };
};
##★m36:Mail窓生成処理★
$global:szMaBox=$null; $global:maBoxs=@(0,0,0,0,0,0,0,0,0,0,0,0); $global:cdBoxs=@(0,0,0,0,0,0,0,0,0,0,0,0); (ssPshSts 0);
function global:ssMaV2Box($zcmd,$zfln,$zpam,$fg,$zdat){ 
    if($zpam-eq $null){ $zpam="00"; $fg="0"; $zdat=""; if( Test-Path $zfln ){ $zdat=( ssMaFilLoad $zfln ) }; };
    switch($zcmd){  2{ $zzcc0=$szCmdBoxPam;  $zmod="Cmd"}  3{ $zzcc0=$szMailBoxPam; $zmod="Mail" } }; $global:szVbMod=$zcmd; 
    foreach($ii in (0..10) ){if($ii-eq 10){ dbg "Full"; return};
        if( $zmod-eq "Mail" ){ $mm=$maBoxs[$ii] }else{ $mm=$cdBoxs[$ii] }; if( $mm-eq 0 ){break}; $fm=$mm.Parent;
        if( $fm.Visible -eq $false ){ ssMsgBoxWnd 2 $mm $zzcc0 $zdat; $global:szBoxMm=$mm; $fm.Text="[$ii]$zmod]$zpam]$fg][ $zfln"; return}; };
    ssMsgBoxWnd 2 $mm $zzcc0 $zdat "[$ii]$zmod]$zpam]$fg][ $zfln" ; $fm=$fmMBox; $global:szBoxMm=$mm=$mBox; $mm.AcceptsTab=$true;
    if($zmod-eq "Mail"){ $maBoxs[$ii]=$mm }else{ $cdBoxs[$ii]=$mm }; $mm.WordWrap=$true; $mm.MaxLength=0;
   ($global:szMaBoxMenu1=ssDMnMenu "[C]").add_Click({ ssSizeColor (ssBoximm !M1) }); (ssDMnMSet "--").add_Click({ ssSizeColor (ssBoximm !M2) 1 });
   ($global:szMaBoxMenu2=ssDMnMenu "[保存]").add_Click({ ssMaV2Sav (ssBoximm !M1) });
    $global:szMaBoxMenu3=(ssDMnMenu "ﾌｧｲﾙ"); (ssDMnMSet "[explorer]").add_Click({ $mm=(ssBoximm !M2); explorer $szVbDir });
      (ssDMnMSet "[読込]窓").add_Click({ $dReadBox.InitialDirectory=$szVbDir; if( $dReadBox.ShowDialog() -ne "OK" ){return};
          $mm=(ssBoximm !M2); $zfl=$dReadBox.FileName; $fm=$mm.Parent; $zcm=$fm.Text.split("]"); 
          $zcc=$zcm[0]+"]"+$zcm[1]+"]"+$zcm[2]+"]0][ "+ ($zfl.replace("$szVbDir\","")); $fm.Text=$zcc; $mm.Text=( ssMaFilLoad $zfl ); });
      (ssDMnMSet "[保存]窓(name指定)").add_Click({  $mm=(ssBoximm !M2); $dSaveBox.InitialDirectory=$szVbDir;
          $dSaveBox.FileName=$szVbfile; if( $dSaveBox.ShowDialog() -eq "OK" ){ $zfl=$dSaveBox.FileName; if($zfl -ne ""){ ssMaFilSave $zfl $mm.Text }; }; });
      (ssDMnMSet "[UTF8]設定(_u.txt)").add_Click({ $mm=(ssBoximm !M2); $zcc=($szWinfm.Text); if( $zcc.contains("_u.txt") ){return}; 
          $szWinfm.Text=$zcc.replace(".txt","_u.txt"); });
      (ssDMnMSet "[ANSI]設定(.txt)").add_Click({ $mm=(ssBoximm !M2); $zcc=($szWinfm.Text); $szWinfm.Text=$zcc.replace("_u.txt",".txt"); });
   ($global:szMaBoxMenu4=ssDMnMenu "[ﾌｫﾙﾀﾞ]").add_Click({ $mm=(ssBoximm !M1); explorer $szVbDir });
    if($zmod-eq "Mail"){ ssMailAct !MVMn "" }; ssMaVBoxAdd !MaMu $zmod $ii; ##_★MailBOXモード追加釦、★USR_ADD機能追加
    $mm.Add_DoubleClick({ ssMaV2WClk }); $mm.Add_KeyDown({ if($_.Control){ switch($_.KeyCode){ {$_ -in "n","Return"}{ ssMaV2WClk } }; }; }); 
    return; ##_★
};
##★m38:[WClk][Ctl-N][Ctl-RET]で起動
function global:ssMaV2WClk(){ $mm=(ssBoximm !Bx); $zcc=(ssWCAct $this 1).trim();
    if($zcc.startsWith("&")){ if($szPshSts-eq 1){ssWCAct $this}; return};
    if( $zcc.contains("http") ){ $zcc=($zcc.substring($zcc.indexOf("http")).split(">"))[0]; Iex("Start `'$zcc`' "); return};
    $zcc=($zcc-split("##"))[0].trim(); $zfl=$szVbfile; 
    if( $zfl.contains(":\") ){ $zcc=(split-Path $zfl -par)+"\"+$zcc }else{ $zcc="$szVbDir\$zcc"}; if( ssInvChr $zcc ){}else{return};
    if( Test-Path $zcc ){}else{ if( $szfg-eq 1 ){ dbg "[添付取得]ください" }else{ dbg "名称無し`r`n$zcc" }; return};
    if( Test-Path $zcc -PathType Container ){ explorer $zcc }else{ Start -Non cmd -Arg "/c `"`"$zcc`"`" " }; return;
};
##★m40:【outlookサポータ】追加関数
function ssSizeColor($ww,$fg){ $dd=$ww.Font.Size; if($fg-eq $null){$dd++}else{$dd--}; if($dd-gt 22){$dd=9}; if($dd-lt 9){$dd=22}; $ww.Font="$szFont,$dd" };
##★PS1ファイル半自動VerUP(マウスこぴー⇒MsgBoxに表示->Ver確認OK->BackUP->画面入替->[File保存])
function ssPrgVrUp($zzfl,$zln){
    $zcc00=((GCB)-join "`r`n").trim()+"`r`n"; $zToolDir=Split-Path $zzfl -Par; $zfl0=Split-Path $zzfl -Lea;
    if( $zcc00.startsWith("@echo off") -or $zcc00.startsWith("##Ver") ){}else{ dbg "★更新ファイル全体をマウスコピーください"; return};
    do{ MsgBox $zcc00 "780,540" "[ファイル]更新" 8 "#E5F2FE";  $mm=$mBox; $mm.WordWrap=$false;
    if( $mm.Lines[$zln].startsWith("##Ver") ){}else{ if( $mm.Lines[0].startsWith("##Ver") ){ $zln=0 }else{ dbg "Verエラー";break};};
    $zcm=$mm.Lines[$zln].split(" "); $zvr21=$zcm[0].replace("#",""); $zfl2=$zcm[1].trim(); $zcc24=$zcm[3].trim();##[ryu]
    if( ($zfl2.substring(0,12)-eq $zfl0.substring(0,12))-and ($zcc24 -eq "ryu" ) ){}else{ dbg "★当該ファイルは処理不可"; break};
    $zfl="$zToolDir\$zfl2";
    if( Test-Path $zfl ){ $zccm=(cat $zfl); $zvr11=(($zccm[$zln]).split(" "))[0].replace("#","") 
        if( $zvr11.startsWith("Ver")-and $zvr21.startsWith("Ver") ){;}else{ dbg "★VerがＮＧ"; break};
    }else{ $zvr11="Ver000";};
    $zBakDir=$zToolDir+"\BakPsh"; $zflbak=("$zfl2"+"_$zvr11").replace(".","_")+".txt";
    $zcc3="`n[File名]`n$zfl2`n`n[現在] $zvr11  --->  [更新] $zvr21";
    if( (MsgYesNo "MSG" "[★]更新のとき[Y]を押下`n`n$zcc3`n`n[BakUP_Dir] $zBakDir`n`n[File] $zflbak")-ne "Yes" ){ break};
    if( Test-Path $zBakDir -PathType Container){;}else{ New-Item $zBakDir -ItemType Directory };
    if( Test-Path $zfl){ Copy-Item $zfl "$zBakDir\$zflbak" -Force }; SC $zfl $zcc00 -Force;
    break}while(0); $mm.Parent.Visible=$false;
};
##★m42:メール受信BOXの表示設定(窓設定、追加釦)
$mm=$tBox; if( (ssMailAct !MOpn $mm)-eq 1){return}; $mm.Text="`r`n`r`n   【Outlookを起動し [受信Box]釦を押す】"; $mm.SelectionStart=0;
($global:szMaMenu95=ssDMnMSet "Version表示").add_Click({ ssDMnMCls; dbt ("[Dir] $szMailDir  [Apl] "+(Split-Path $fln -Lea)) }); $aa=(ssDMnMSet "---");
(ssDMnMSet "ｱﾌﾟﾘﾌｧｲﾙ/Sum値の取得(Web)").add_Click({ ssWebHlp "em11" }); $dmMenu.Font="$szFont,$szMnSize"
(ssDMnMSet "ﾌｧｲﾙ[ﾏｳｽCopy]⇒ｱﾌﾟﾘ更新").add_Click({ ssPrgVrUp $fln 4 }); $aa=(ssDMnMSet "---"); ##4+1行目(fln)
(ssDMnMSet "Sum値[ﾏｳｽCopy]⇒Sumﾁｪｯｸ").add_Click({ if( ((Get-FileHash $fln).Hash)-eq (GCB) ){ dbg "ｱﾌﾟﾘSum OK"}else{ dbg "NG`r`nSum値をWebからｸﾘｯﾌﾟｺﾋﾟｰください"} });

##★m50:機能追加( add/ usr/)  ★アプリ窓表示
$zcc=$fln.replace(".bat",""); $global:fladd=($zcc+"_add.ps1"); $global:flusr=($zcc+"_usr.ps1"); $global:flacc=($zcc+"_acc.ps1");
  if( Test-Path $fladd ){. $fladd}; ( $global:szTimer0=New-Object Timer -Pro @{Interval=200} ).Start(); 
$szTimer0.Add_Tick({ $this.stop(); if( Test-Path $flusr ){. $flusr}; if( Test-Path $flacc ){. $flacc}; });
$mMain.ShowDialog();
##Ver1.05--by ryu------------------------------------------------------

A7941CE2C61EEDEFD388256BB2F7629D40BF2BFAB0E8BA58267184B93096DAB6

##Ver1.24 wPshOutlook21_add.ps1 by ryu 2025/1120 ----
##★★outlookサポータappへのコマンド追加 by ryu
##
##FNC: M:列選択処理(Mail表示/削除/保存/振分け保存/
##FNC: 検索窓、addSumChk、複数窓、マウス右釦、D:DIR処理(Dir表示/展開表示/設定->移動/作成/ゴミ箱/
##V1.24:操作性改善、V1.23～:usr中級編対応、sort改善、usr追加改善、文字化け変換、DirモードD&Drop、マウス右釦、Web検索、Web翻訳、

$dFderBox =New-Object FolderBrowserDialog -Pro @{ ShowNewFolderButton = $false; };
function global:ssDMnMSetSb($cc,$fg){ if($fg-eq 1){$global:szMnBas=$aa1}; return($global:szMnBas=ssDMnMSet $cc) }; 
function global:ssDMnMSetAa($cc){ $global:szMnBas=$aa1; return(ssDMnMSet $cc) };
function global:ssWebHelp($cc){ start "$szWebryu/p/psh-outlookexplorer.html#_szIt$cc" }; $global:szWebryu="https://ryupapa008.blogspot.com";

##★m10:Help釦へ追加
  (ssDMnMSet "add_Sum値(Web)->ｻﾑﾁｪｯｸ").add_Click({ ssDirCmp !CkAd }); $aa=(ssDMnMSet "----"  );
##★[行選択]釦
$szMaMen[10]=$global:aa1=(ssDMnMenu "行選択");
  (ssDMnMSet "M:[表示](max10)").add_Click({ ssMailAct2 !MCmp 0 });
  (ssDMnMSet "M:一括[削除]" ).add_Click({ ssMailAct2 !MCmp 1 });
  (ssDMnMSet "M:一括[保存]" ).add_Click({ ssMailAct2 !MCmp 2 });
  (ssDMnMSetSb "M:振分け[保存]" ).add_Click({ ssMailAct2 !PDvd; ssMailAct2 !MCmp 4 });
    (ssDMnMSet "振分け設定" ).add_Click({ ssMailAct !MPam "<MailDvide>" });
##★[Dir操作]釦
$szMaMen[11]=$global:aa1=(ssDMnMenu "Dir操作"); $global:szMaDirGet="";
  (ssDMnMSetSb "新しい窓Dir表示(Mail)").add_Click({ ssDirCmpBtCls !DNew "/Dir" }); (ssDMnMSet "日時↓" ).add_Click({ ssDirCmp !DNew "/Dir1" });
  (ssDMnMSetAa "Dir表示(Mail)" ).add_Click({ ssDirCmp !DGet 1 $szMailDir });
  (ssDMnMSet "Dir表示(Mail日時↓)" ).add_Click({ ssDirCmp !DGet 10 $szMailDir });
  (ssDMnMSet "D: 容量表示ON<>OFF").add_Click({ $dd=$szDGetVol; if($dd-eq 1){$dd=0}else{$dd=1}; $global:szDGetVol=$dd; ssDirCmp !DGet $szDGetMod $szMaDirGet });
  (ssDMnMSet "D: Dir表示(逆順)"  ).add_Click({ ssDirCmp !DGet 2 $szMaDirGet });
  (ssDMnMSet "D: Dir表示(月日順)").add_Click({ ssDirCmp !DGet 3 $szMaDirGet });
  (ssDMnMSetSb "D: Dir表示(子展開)").add_Click({ ssDirCmpBtCls !DGet 5 $szMaDirGet });
     (ssDMnMSet "Tree表示").add_Click({ ssDirCmp !DTre }); (ssDMnMSet "(Dirのみ)").add_Click({ ssDirCmp !DTre 1 });
  (ssDMnMSetAa "D: Dir(explorer表示)" ).add_Click({ explorer $szMaDirGet }); $aa=(ssDMnMSet "----"  );
  (ssDMnMSet "D: 選択行を[設定]し").add_Click({ ssDirCmp !DSet });
  (ssDMnMSet "D: [設定]を選択Dirへ移動").add_Click({ ssDirCmp !DMov 11 });
  (ssDMnMSet "D: [設定]を選択DirへCopy").add_Click({ ssDirCmp !DMov 12 });
  (ssDMnMSet "D: 新規ﾌｫﾙﾀﾞの作成(Dir)" ).add_Click({ ssDirCmp !DMak });
  (ssDMnMSet "D: 選択行を[ゴミ箱]へ" ).add_Click({ ssDirCmp !DDel }); $aa=(ssDMnMSet "----"  );
  (ssDMnMSet "Dirを入力し表示").add_Click({ if( ($cc=(ssVBKeyInp "入力[移動フォルダ]" "C:\XXXXXX" $szMailDir))-eq "" ){return};
      if(Test-Path $cc -PathType Container ){ ssDirCmp !DGet 1 $cc }else{ dbg "$ccが無い" };});
  (ssDMnMSet "Winﾌｫﾙﾀﾞから表示").add_Click({ if( $dFderBox.ShowDialog()-eq [DialogResult]::OK ){ ssDirCmp !DGet 1 $dFderBox.SelectedPath }; });
  (ssDMnMSet "[ゴミ箱]を表示" ).add_Click({ explorer shell:RecycleBinFolder }); 
##★[ﾂｰﾙ1]釦
$szMaMen[12]=$global:aa1=(ssDMnMenu "ﾂｰﾙ1");
  (ssDMnMSet "add機能説明(Web)").add_Click({ ssWebHelp "em12" });
  (ssDMnMSet "[検索窓]").add_Click({ ssMailAct2 !Find });
  (ssDMnMSetSb "[未読]周期ﾁｪｯｸ").add_Click({ ssMaTimerMido 1 });(ssDMnMSet "ﾁｪｯｸOFF" ).add_Click({ ssMaTimerMido 0 });
  (ssDMnMSetAa "ｸﾘｯﾌﾟ>Google翻訳").add_Click({ $cc=$szKKhon.replace("@@@@",(GCB)); start ("https://$cc"); });
  (ssDMnMSetSb "usr[編集]").add_Click({ if((ssVBKeyInp "[PSW入力]" "編集PSW" "")-eq "0000" ){ ssMaV2Box 3 $flusr } });
    (ssDMnMSet "再設定" ).add_Click({ . $flusr });
  (ssDMnMSetAa "usr機能説明(Web)").add_Click({ ssWebHelp "em13" });
  $aa=(ssDMnMSet "----"  );
##★[Web説明]釦
$global:szMnBas=$szMaMenu91; 
(ssDMnMSet "M:Mailﾓｰﾄﾞ").add_Click({ssWebHelp "Add"}); (ssDMnMSet "D:Dirﾓｰﾄﾞ" ).add_Click({ssWebHelp "Mdr"});
(ssDMnMSet "ｱﾄﾞﾚｽ変換" ).add_Click({ssWebHelp "em09"});(ssDMnMSet "機能一覧"  ).add_Click({ssWebHelp "em16"});
(ssDMnMSet "初級編"    ).add_Click({start "$szWebryu/2025/11/blog-post.html" })
(ssDMnMSet "逆引き110選").add_Click({start "$szWebryu/2025/11/blog-post.html#_szItGaku" })
(ssDMnMSet "中級編"    ).add_Click({start "$szWebryu/2025/11/blog-post_9.html" });
$global:szMnBas=$szMaMenu92; 
(ssDMnMSet "ｱﾄﾞﾚｽ"   ).add_Click({ssWebHelp "Adr"});(ssDMnMSet "ﾌｯﾀ"     ).add_Click({ssWebHelp "Fdr"});
(ssDMnMSet "送信注記").add_Click({ssWebHelp "Snd"});(ssDMnMSet "振分保存").add_Click({ssWebHelp "Dvd"});
(ssDMnMSet "Webﾏｸﾛ"  ).add_Click({ssWebHelp "Mac"});(ssDMnMSet "ｱﾌﾟﾘ更新").add_Click({ssWebHelp "Vup"});
$global:szMnBas=$szMaMenu93; 
  (ssDMnMSet "ｱﾄﾞﾚｽ" ).add_Click({ssMailAct !MPam "<MailAdr>"}); (ssDMnMSet "ﾌｯﾀ").add_Click({ssMailAct !MPam "<MailFudr>"});
  (ssDMnMSet "送信注").add_Click({ssMailAct !MPam "<SendNote>"});(ssDMnMSet "振分け").add_Click({ssMailAct !MPam "<MailDvide>"});
  (ssDMnMSet "Webﾏｸﾛ").add_Click({ssMailAct !MPam "<MailBxWeb>"});
$global:szMnBas=$szMaMenu95; 
  (ssDMnMSet "add[編集]").add_Click({ if((ssVBKeyInp "[PSW入力]" "編集PSW" "")-eq "999999" ){ & $szEditor $fladd } });
  (ssDMnMSet "acc[編集]").add_Click({ if((ssVBKeyInp "[PSW入力]" "編集PSW" "")-eq "909090" ){ & $szEditor $flacc } });
##(ssDMnMSet "man[編集]").add_Click({ if((ssVBKeyInp "[PSW入力]" "編集PSW" "")-eq "990099" ){ & $szEditor $fln   } });

##★m20:マウス右釦(起動表示窓)
function ssRbtMenu($cc){ ($global:zzSrp=$mm=New-Object ToolStripMenuItem).Text=$cc; $aa=$conMenu.Items.Add($mm); return $mm };
function ssRbtMSet($cc){ ($mm=New-Object ToolStripMenuItem).Text=$cc; $aa=$zzSrp.DropDownItems.Add($mm); return $mm };
$szMaBox.ContextMenuStrip =$global:conMenu=New-object ContextMenuStrip -Pro @{ Font="$szFont,$szMnSize" };
  (ssRbtMenu "D:選択行を[設定]し").add_Click({ ssDirCmpMaBtCls !DSet });
  (ssRbtMenu "D:　同上(確認_OFF)").add_Click({ ssDirCmp !DSet 1 });
  (ssRbtMenu "D:[設定]を選択Dirへ移動").add_Click({ ssDirCmp !DMov 11 });
  (ssRbtMenu "D:[設定]を選択DirへCopy").add_Click({ ssDirCmp !DMov 12 }); $global:szRbtMenu1=(ssRbtMenu "----"  );
  (ssRbtMenu "D:名称の変更"  ).add_Click({ ssDirCmp !DChg });
  (ssRbtMenu "D:新規ﾌｫﾙﾀﾞの作成(Dir)" ).add_Click({ ssDirCmp !DMak }); (ssRbtMSet "新規ﾌｧｲﾙ" ).add_Click({ ssDirCmp !DMak 1});
  (ssRbtMenu "D:選択行を[ゴミ箱]へ" ).add_Click({ ssDirCmp !DDel });
  (ssRbtMenu "D:Dir(explorer)" ).add_Click({ explorer $szMaDirGet });
  (ssRbtMenu "D:Winﾒﾓ張で[開く]").add_Click({ ssDirCmpMaBtCls !Wmem }); (ssRbtMSet "Editor").add_Click({ ssDirCmp !Wedt });
     (ssRbtMSet "行番号表示" ).add_Click({ ssDirCmp !Wnum }); (ssRbtMSet "文字化け変換(UTF)" ).add_Click({ ssDirCmp !DUTF });
  (ssRbtMenu "D:ﾌｧｲﾙの複製(cp)"  ).add_Click({ ssDirCmp !DCpp });
  (ssRbtMenu "D:[ﾌﾟﾛﾊﾟﾃｨ]"  ).add_Click({ ssDirCmp !DPro });  $global:szRbtMenu5=(ssRbtMenu "----"  )
  (ssRbtMenu "Dir表示(Mail)" ).add_Click({ ssDirCmp !DGet 1 $szMailDir });
  (ssRbtMenu "文字選択<>行選択").add_Click({ $mm=$szMaBox; if($mm.ReadOnly-eq $false){$fg=$true}else{$fg=$false}; $mm.ReadOnly=$fg });
  (ssRbtMenu "文字列の[コピー]").add_Click({ $szMaBox.Copy() });
##★D&Dropコピー
$mm=$szMaBox; $mm.Add_DragEnter({$_.Effect ="All";}); $mm.Add_DragDrop({  if($szMaDirGet-eq ""){return}; $zcc=@(([DataObject]$_.Data).GetData("FileDrop"));
    $zcm=$zcc.split("`n"); $zcm|%{ $zcc1=Split-Path $_ -Lea; $zcc10="$szMaDirGet\$zcc1"; (ssDFCopyMove $_ $zcc10); $szMaBox.Text+="$zcc1`r`n" }; });
function global:ssDFCopyMove($zcc1,$zcc2){ $zcc1=$zcc1.trim(); $zcc2=$zcc2.trim(); if( Test-Path $zcc1 ){;}else{return};
    if( Test-Path $zcc2 ){ if((MsgYesNo "★注意★" "重複してます。上書きＯＫですか？(Y/N)`r`n`r`n$zcc2")-ne "Yes"){return}; };
    $zcc="Copy `"$zcc1`" `"$zcc2`" -Recurse -Force"; Iex($zcc); ##dbc $zcc;
};
##★m22:文字検索DLG窓
$szSchFont="メイリオ,10"; $global:szfindPos=0; $global:szSchWnd=$tBox;
$global:fmSch=New-Object Form -Pro @{ Text="【検索Box】"; Size="530,108"; MaximizeBox=$False; MinimizeBox=$false; AutoSizeMode="GrowAndShrink"; Topmost=$True;}; 
    $fmSch.Add_Closing({ $_.Cancel=$True; $this.Visible=$false; if( $szSchWnd-eq $tBox){ $tBox.ReadOnly=$true}; });
##★入力BOX生成   ##★釦2[Get]  ##★釦0[Top] ##★釦1[検索]
$global:szSchBox1=New-Object TextBox -Pro @{ Font=$szSchFont; Location="10,2" ; Size="500,16" }; 
function ssSchBtn($pm0,$pm1,$pm2){ $zob=New-Object Button -Pro @{ Text=$pm0; Location=$pm1; Size=$pm2; Font=$szSchFont }; return $zob };
( $szSchBtn2 =ssSchBtn "【Get】"   "10,34"  "80,30" ).Add_Click({ $szSchBox1.Text=$szSchWnd.SelectedText }); 
( $szSchBtn0 =ssSchBtn "【Top】"  "330,34"  "80,30" ).Add_Click({ $aa=ssSchFind 0 $szSchWnd }); 
( $szSchBtn1 =ssSchBtn "【検索】" "420,34"  "80,30" ).Add_Click({ $aa=ssSchFind 1 $szSchWnd });
$fmSch.Controls.AddRange(@($szSchBox1, $szSchBtn0, $szSchBtn1, $szSchBtn2));
$fmSch.Add_Click({ $szSchWnd.Focus() });
##★検索go処理  cmd=/0:Top /1:継続 wbx:Wnd/ zcc:Cha/
function global:ssSchFind($zcmd,$wbx,$zcc){ if($wbx-eq $null){$wbx=$tBox}; if($zcmd -eq 0){ $global:szfindPos=0 };
    if($zcc-eq $null){ $global:szSetChaText=$zcc=$szSchBox1.Text };
    $zPos =($wbx.Text).indexof($zcc,$szfindPos); if($zPos -ge 0 ){;}else{ $wbx.Focus(); return 1 };
    $wbx.Select($zPos, $zcc.length); $wbx.ScrollToCaret(); $wbx.Focus(); $global:szfindPos=$zPos+1; return 0;
};
##★m30:add_Mail処理
function global:ssRbtmm($zmm){ if($zmm-eq $null){$zmm=$this }else{$zmm=$this.ownerItem }; $ii=($zmm.Text).substring(0,1); return $maBoxs[$ii] }
function global:ssMaVBoxAdd($zcmd,$zpam,$zpm2){ return (ssMaVBoxCom $zcmd $zpam $zpm2) };
function global:ssMaVBoxCom($zcmd,$zpam,$zpm2){ switch($zcmd){ 
##★[選択行削除]釦:Dirゴミ箱処理  ★[フォルダ]釦:explorer
 !MDel{ if($szMaDirGet-eq ""){return};  ssDirCmp !DDel ; return 1 }##_★
 !MExp{ if($szMaDirGet-eq ""){return};  explorer $szMaDirGet; return 1 }##_★
##★[ソート]釦:Dirソート(1:名称/2:題名/0:日時↑/10:日時↓)
 !MSrt{ if($szMaDirGet-eq ""){return}; $zcm=$szMaBox.Text.replace("`r","").split("`n"); $cc0=$cc1="";
     $zcm|%{ if( $_.contains("_") ){ $cc1+="$_`n" }else{ $cc0+="$_`r`n" }; }; $zcm=(" "+$cc1.trim()).split("`n");
     switch($zpam){
      1{ $zcm=( $zcm|Sort -Pro{ $_.split("_")[0], $_.split("_")[1], $_.split("_")[2] } ) }
      2{ $zcm=( $zcm|Sort -Pro{ $_.split("_")[3] } ) }
      0{ $zcm=( $zcm|Sort -Pro{ $_.split("_")[1], $_.split("_")[2] } ) }
     10{ $zcm=( $zcm|Sort -Pro{ $_.split("_")[1], $_.split("_")[2] } -D ) }
     }; $szMaBox.Text= $cc0.trim()+"`r`n "+ ( $zcm-join "`r`n").trim()+"`r`n"; return 1}##_★

##★[Help]釦(メール表示窓)
 !MaMu{ if($zpam-ne "Mail"){return}; $global:szMnBas=$global:aa1=$szMaBoxMenu9;
     (ssDMnMSet "検索窓").add_Click({ $global:szSchWnd=(ssBoximm !M2); $szSchBox1.Text=$szSetChaText;
          $global:szfindPos=$szMaBox.SelectionStart; $fmSch.Show() });
     (ssDMnMSet "行番号表示").add_Click({ ssDirCmp !Wnum !M2});
     (ssDMnMSet "行番号へ移動").add_Click({ $cc=(ssVBKeyInp "入力" "行番号" 1); $mm=(ssBoximm !M2); ssDirCmp !MovL $cc $mm })
     (ssDMnMSetSb "Winﾒﾓ帳で開く").add_Click({ ssDirCmp !Wmem !M2 }); (ssDMnMSet "Editor").add_Click({ ssDirCmp !Wedt !M3 });
     (ssDMnMSetAa "文字化け変換" ).add_Click({ ssDirCmp !DUTF !M2 }); 
     (ssDMnMSet "新しい窓Dir表示(Mail)").add_Click({ Start -Non cmd -Arg "/c `"$fln`" /Dir" });
     (ssDMnMSet "Webﾏｸﾛ一覧").add_Click({ ssWebMacList 1 });
     (ssDMnMSetSb "行設定>Google翻訳").add_Click({ $cc=$szKKhon.replace("@@@@",((ssBoximm !M2).SelectedText)); start ("https://$cc"); });
        (ssDMnMSet "ｸﾘｯﾌﾟ>翻訳").add_Click({ $cc=$szKKhon.replace("@@@@",(GCB)); start ("https://$cc"); }); $global:szMnBas=$aa1;

##★マウス右釦(メール表示窓)
     $mBox.ContextMenuStrip =$global:conMenu=New-object ContextMenuStrip -Pro @{ Font="$szFont,$szMnSize" };
     (ssRbtMenu "$zpm2 元に戻す").add_Click({ (ssRbtmm).Undo() });
     (ssRbtMenu "$zpm2 切り取り").add_Click({ (ssRbtmm).Cut() });
     (ssRbtMenu "$zpm2 コピー"  ).add_Click({ (ssRbtmm).Copy() });
     (ssRbtMenu "$zpm2 貼付け"  ).add_Click({ (ssRbtmm).Paste() });
     (ssRbtMenu "$zpm2 [##---]" ).add_Click({ SCB ("##"+("-"*80)); (ssRbtmm).Paste() });(ssRbtMSet "##★").add_Click({ SCB "##★"; (ssRbtmm 1).Paste()});
     (ssRbtMenu "$zpm2 すべて選択").add_Click({ (ssRbtmm).SelectAll() });
       (ssRbtMSet "折返しON<>Off" ).add_Click({ $mm=ssRbtmm 1; if(($mm.WordWrap)-eq $true){$fg=$false}else{$fg=$true}; $mm.WordWrap=$fg; $mm.ScrollBars="Both";});
     (ssRbtMenu "$zpm2 D:[設定]fileを添付にｾｯﾄ").add_Click({ ssDirCmp !MTmp "" (ssRbtmm) });
     $aa=(ssRbtMenu "$zpm2 ｸﾘｯﾌﾟ取得");  (ssRbtMSet "年月日" ).add_Click({ SCB (Get-date -F "yyyy/MM/dd(ddd)" ); (ssRbtmm 1).Paste() });
      (ssRbtMSet "Dir(PWD)" ).add_Click({ SCB ($PWD); (ssRbtmm 1).Paste()});
      (ssRbtMSet "ﾌｧｲﾙ名" ).add_Click({ $mm=ssRbtmm 1; SCB ssDirCmp !CPst ((($mm.parent.Text).split("["))[2].trim()); $mm.Paste() });
     ssMaVBoxAddMenu $zpm2; return}##_★
}; }; function global:ssMaVBoxAddMenu($zpm2){};

$global:szToolDir=(Split-Path $fln -Par); $global:szRtfMemo="$szToolDir\wPshRtfMemo501.ps1";
##★[WClk]追加処理 ★Dir:移動 ★txt:開く ★他:Win設定起動
$szMaBox.Add_DoubleClick({ if( $szMaDirGet-eq "" ){return}; $zcc=( (ssWCAct $this 1)-split("##") )[0].trim(); 
    if( $zcc.contains(":\")){ $zcc0=$zcc }else{ $zcc0="$szMaDirGet\$zcc" };
    if( Test-Path $zcc0 -PathType Container ){ ssDirCmp !DGet 1 $zcc0 ; return};
    if( Test-Path $zcc0 ){ if( $zcc0.contains(".txt") ){ ssMaV2Box 3 $zcc0; return};
        if( $zcc0.contains(".rtf")-and (Test-Path $szRtfMemo) ){ Start -NoN powershell -Arg "$szRtfMemo $zcc0 "; return};
        $zcc=$zcc0.trim(); Start -Non cmd -Arg "/c `"`"$zcc`"`" "; }; ##_★
});

##★mail複数行の選択処理
function global:ssMailAct2($zcmd,$zpam){ switch($zcmd){
##★MViw:Mail表示 ★MaSv:Mail保存 ★MaSD:振分保存
 {$_ -in "!MViw","!MaSv","!MaSD"}{   if( ($zpam.length-lt 15)-or ($zpam.substring(17,1)-ne "|") ){return}; 
    $zii=$zpam.substring(0,17); $ccc=$szMaItem[$zii]; $zcc=(ssMailAct !MNme $zpam); $zcm=$zcc.split("|"); $cc0=$zcm[0].substring(0,11);
    $cc1=$zcm[1].substring(0,16).replace("_","-"); $zcc5=$cc1+"_"+$cc0 +"@_"; $zzfl=$cc1+"_"+$cc0 +"!_"+$zcm[2];  ##file名利用
    $zcc4="";$fg=0; if( $ccc.Attachments.Count-gt 0 ){ $fg=1; $zcc4="[添付]`n"; foreach($att in $ccc.Attachments){ $zcc4 +=$zcc5 +$att.FileName+"`n" }; $zcc4+="`n" };
    $zcc01=ssSndrAdr($ccc); $zcc00="$zii  From: $zcc01`nCc: "+$ccc.CC+"`n`nTT: " +$ccc.Subject + "`n`n" +$zcc4 +$ccc.body; $ccc.UnRead=$false;
##★振分けDir設定
    $zDir=$szMailDir; if( $zcmd-eq "!MaSD" ){ $zcmd="!MaSv"; $zcc0="##" +$zcc01 +"##" +$ccc.Subject;
        for( $ii=0; $ii-lt $szDvdPam.length; $ii++ ){ if( $szDvdPam[$ii] -eq "&&Dv" ){}else{continue};
            $zcc1= $szDvdPam[$ii+1]; $zcc2= $szDvdPam[$ii+2]; $zcc3= $szDvdPam[$ii+3];
            if( $zcc0.contains($zcc1)-and  $zcc0.contains($zcc2) ){ $zDir+="\$zcc3" ; break};
        }; if( Test-Path $zDir -PathType Container ){}else{ dbg "$zDirが無い" };
    };
    switch($zcmd){ ##★Viw:表示 ##MaSv:保存
      !MViw{  ssMaV2Box 3 "$zzfl.txt" $zii $fg $zcc00; return}##_★
      !MaSv{  $zfl="$zDir\$zzfl.txt"; dbc $zfl;
          if( Test-Path $zfl ){ if( (MsgYesNo "【注意】重複しています。上書き保存しますか？" "$zzfl.txt")-ne "Yes" ){return}; };
          (ssMaFilSave $zfl $zcc00); if($fg-eq 1){ $zcc=($zzfl.split("!"))[0]; $zcc1="$zDir\$zcc"+"@_";
             foreach($att in $ccc.Attachments){ $att.SaveAsFile( $zcc1 +$att.FileName) }; }; return}##_★
    }; return}##_★

##★MCmp:選択行処理（0:表示 1:削除  2:保存  3:保存削除  4:振分保存  5:振分保存削除  11:未読に戻す 12:読み済み
 !MCmp{   $zcc0=$szMaBox.SelectedText; $zfg=0;
    foreach($cc in $zcc0.split("`n") ){ $cc=$cc.trim(); if( ($cc.length-lt 12)-or($cc-eq $cc0) ){continue}; $ii=$cc.substring(0,17);
       switch($zpam){
       0{ ssMailAct2 !MViw $cc }  1{ $zfg=1; $szMaItem[$ii].Delete() }
       2{ ssMailAct2 !MaSv $cc }  3{ ssMailAct2 !MaSv $cc; $zfg=1; $szMaItem[$ii].Delete() }
       4{ ssMailAct2 !MaSD $cc }  5{ ssMailAct2 !MaSD $cc; $zfg=1; $szMaItem[$ii].Delete() }
       11{$szMaItem[$ii].UnRead=$true} 12{$szMaItem[$ii].UnRead=$false}
       }; $cc0=$cc;
    }; if($zfg-eq 1){ $mm=$szMaBox; $mm.ReadOnly=$false; $mm.cut(); $mm.ReadOnly=$true }; dbg "終了"; return}##_★

##★PDvd:振分処理のパラメ取得( &&Dv; メールアドレス; 題名内の文字; Dir名)
 !PDvd{   $zfl="$szMailDir\$szMailPamSet"; $zcm=(Cat $zfl).replace(" ",""); $global:szDvdPam=@(); $st=0;
    foreach( $cc in $zcm ){ if( $st-eq 0 ){ if( $cc.startsWith("<MailDvide") ){$st=1}; continue}; 
        if( $cc.startsWith("&&Dv")){}else{ if( $cc.startsWith("<Mail") ){$st=0}; continue}; 
        $zcm=$cc.split(";"); $global:szDvdPam+=$zcm; $zDir="$szMailDir\"+$zcm[3];
        if( Test-Path $zDir -PathType Container ){}else{ mkdir "$zDir"; dbg "Dir作成`r`n$zDir" }; }; return}##_★
##★検索窓
 !Find{   $global:szSchWnd=$szMaBox; $szMaBox.ReadOnly=$false; $szSchBox1.Text=$szSetChaText; $global:szfindPos=$szMaBox.SelectionStart;
    $fmSch.Show(); return}##_★
};};

##★m40:Dirの操作.ownerItem.owner
function global:ssMaSetText($znum){ $zcc00=$szMaBox.SelectedText; if($znum-ne $null){ $zcc00=($zcc00.split("`n"))[$znum] };
    $zcc=""; $zcc00.split("`n")|%{ $cc=$_; $zcc+=(($cc-split("##"))[0].trim())+"`r`n" }; return ($zcc.trim()) };
function global:ssDirCmpMaBtCls($zcmd,$zpam,$zDir){ $szMaBox.ContextMenuStrip.close(); ssDirCmp $zcmd $zpam $zDir };
function global:ssDirCmpBtCls($zcmd,$zpam,$zDir){ $this.ownerItem.HideDropDown(); ssDirCmp $zcmd $zpam $zDir };
function global:ssDirFileGet($cc){ if($cc-eq $null){ return("$szMaDirGet\"+(ssMaSetText 0))};
    $mm=(ssBoximm $cc); $cc=$szVbfile; if($cc.contains(":\")){return $cc}; return("$szVbDir\$cc") };
##★
$global:szDGetMod=1; $global:szDGetVol=0;
function global:ssDirCmp($zcmd,$zpam,$zDir){ switch($zcmd){
##★DGet:DirList表示 1: 2: 3: 4: 5: (6): 10:/
 !DGet{  $global:szDGetMod=$zpam; if( $zDir-eq "" ){ $zDir=$szMailDir }; $global:szMaDirGet=Convert-Path $zDir;
    $zcc=$zcc1=$zpm0=$zpm1=$ln=""; if($zpam-eq 5 -and $szDGetVol-ne 1){$zpam=6};
    switch($zpam){ 2{ $zpm1="|Sort -Pro Name -D"} 3{ $zpm1="|Sort -Pro{ `$_.name.split(`"_`")[1] } -D"} 5{ $zpm1="-rec |Sort -Pro Name"}
        6{ $zpm1="-name -rec |Sort "} };
    Iex("dir `"$zdir`" $zpm1")|%{ if($zpam-eq 6){ $cc=$_ }else{ $ln=[int]($_.Length/1000); $cc=$_.name }; 
      $nn=[System.Text.Encoding]::GetEncoding("shift_jis").GetByteCount($cc.trim());
      if( $nn -gt 36 ){ $zsp="  " }else{ $nn=36+2-$nn; $zsp=(" "*($nn))+"`t"; };
      if( $cc.Contains(".") ){ if( $szDGetVol-eq 1 ){ $zsp=$zsp+"##$ln"+"k" }else{$zsp=""}; $zcc1+=" $cc$zsp`r`n" }
      else{ $zcc+=" $cc$zsp"+"##[D]`r`n" }; 
    };  $mm=$szMaBox; $mm.Text=" $szMaDirGet`r`n ..\`r`n$zcc$zcc1"; if( $zpam-eq 10){ ssMaVBoxCom !MSrt 10 };
    $mm.ReadOnly=$true; $mm.SelectionStart=0; $mm.BackColor=$szMaBakClr2; return}##_★
##★DNew;新窓作成  ★DTre:Tree表示 ★CkAd:add_Sum値チェック
 !DNew{ Start -Non cmd -Arg "/c `"$fln`" $zpam"; return}##_★
 !DTre{ $fg="/f"; $pm="920,760"; if($zpam-eq 1){$fg=""; $pm="780,460"}; $zcc=$szMaDirGet; if($zcc-eq ""){ $zcc=$szMailDir };
    MsgBox ((Tree "$zcc" $fg)-join "`n") $pm "[Tree 表示]" 10 ; return}##_★
 !CkAd{ Start "$szWebryuMail#_szItem1154"; dbg "Web addｻﾑ値の[Copy]押下";
    if( ( (Get-FileHash $fladd).Hash )-eq (GCB) ){ dbg "add_Sum OK"}else{ dbg "add_Sum NG"}; return}##_★
##★Dir:設定行をメール窓へ添付
 !MTmp{  $mm=$zDir; $zcc0=$mm.text; $nn=$zcc0.indexof("[添付]"); if($nn-gt 10){}else{ dbg "D&Drop[添付] 行を追加ください"; return};
    $zcm=(GCB).replace("`r","").split("`n"); $zdir=$zcm[0]; if(Test-Path $zdir -PathType Container){}else{ dbg "再設定ください"; return};
    for($ii=1; $ii-lt $zcm.length; $ii++){ $cc=$zcm[$ii].trim(); $zcc="$zdir\$cc";
        if( Test-Path $zcc ){}else{continue}; if( Test-Path $zcc -PathType Container ){ continue};
        $mm.SelectionStart=$nn+6; $mm.SelectedText="AT: $zcc`r`n"; }; return}##_★
##★Line指定で移動
 !MovL{  $mm=$zDir; $zcc=$mm.Text; $mm.SelectionStart=$zcc.length; $mm.ScrollToCaret();
    foreach($ii in (1..$zpam)){ $pp0=$pp; $pp=$zcc.IndexOf("`n",$pt); if($pp-lt 0){$pp=$pp0; break}; $pt=$pp+1 };
    $mm.SelectionStart=$pp0; $mm.ScrollToCaret(); $mm.Select($pp0,$pp-$pp0); return}##_★
##★Wmem:Winメモ帳 ★Wnum:行番号表示 ★DPro:プロパティ ★DUTF:文字化け
 {$_ -in "!Wmem","!Wedt","!Wnum","!DPro","!DUTF"}{ $zfl=(ssDirFileGet $zpam); if(Test-Path $zfl){}else{ dbg "No File"; return}; }##_★
 !Wmem{  notepad $zfl;return} !Wedt{ & $szEditor $zfl; return}##_★
 !Wnum{  $ii=1; $zcc=( cat $zfl |%{ ("{0:0000}" -F $ii++)+"| $_`r`n" } );
     MsgBox (" "+$zcc) "560,680" "行番号表示" 9 "#E8E8E8"; $mBox.WordWrap=$false; return}##_★
 !DPro{  [MyMsgDlg]::SHObjectProperties( 0, 0x2, $zfl, ""); return}##_★
 !DUTF{  $zfl1=$zfl.replace(".txt","_u.txt"); ssMaV2Box 3 $zfl1 00 0 (Cat "$zfl" -enc utf8 -Raw); return}##_★
 };
##★Dirモード(D:)処理
 if( $szMaDirGet-eq "" ){return}; switch($zcmd){
##★Dir:選択行の設定
 !DSet{ $zcc="$szMaDirGet`r`n"+(ssMaSetText); (SCB $zcc); $global:szMaFileSet=$zcc;
    if($zpam-ne 1){ dbg "完了=>移動先を選択`r`n`r`n$zcc"}; return}##_★
##★Dir:設定行を選択Dirへ[11]移動/[12]Copy
 !DMov{  $zcc0=(ssMaSetText 0); if($zcc0.contains(":\")){}else{ $zcc0="$szMaDirGet\$zcc0" };
    if(Test-Path $zcc0 -PathType Container ){}else{ dbg "Dirを選択ください"; return};
    ##$zcm=$szMaFileSet.replace("`r","").split("`n"); $zdir=$zcm[0];
    $zcm=(GCB).replace("`r","").split("`n"); $zdir=$zcm[0]; if(Test-Path $zdir -PathType Container){}else{ dbg "再設定ください"; return};
    for($ii=1; $ii-lt $zcm.length; $ii++){ $cc=$zcm[$ii].trim(); $zcc2="$zcc0\$cc";  ##dbg "$ii  $zcc2";
        if( Test-Path $zcc2 ){ if((MsgYesNo "★[注意]★" "重複してます。上書きＯＫですか？(Y/N)`r`n`r`n$zcc2")-ne "Yes"){continue}; };
        if($zpam-eq 11){ $zcc="Move-Item `"$zdir\$cc`" -Des `"$zcc0`" -Force" }else{ $zcc="Copy-Item `"$zdir\$cc`" -Des `"$zcc0`" -Rec -Force" };
        Iex ($zcc); }; break}##_★
##★Dir:名称変更
 !DChg{ $zcc0=(ssMaSetText 0); $zcc1=(ssVBKeyInp "[入力]" "$szMaDirGet`r`n`r`n変更名称の入力" $zcc0);
    if($zcc1-eq ""){return}; Rename-Item "$szMaDirGet\$zcc0" "$szMaDirGet\$zcc1"; break}##_★
##★Dir:複製(cp)
 !DCpp{ $zcc0=(ssMaSetText 0); if( $zcc0.contains(".txt") ){}else{ return};
    if( $zcc0.contains("_u.txt") ){ $zcc="_u.txt" }else{ $zcc=".txt" }; $zcc1=$zcc0.replace($zcc,"(cp)$zcc");
    copy "$szMaDirGet\$zcc0" "$szMaDirGet\$zcc1"; break}##_★
##★Dir:新規Dir作成
 !DMak{ if($zpam-eq 1){ $zcc=(ssVBKeyInp "[入力]" "新ファイル名(txt)" ""); if($zcc-eq ""){return};
      $zcc="$szMaDirGet\$zcc.txt"; if(Test-Path $zcc){dbg "重複`r`n $zcc";return}; New-Item $zcc; break}##_★
    else{
      $zcc=(ssVBKeyInp "[入力]" "新フォルダ名(Dir)" ""); if($zcc-eq ""){return};
      $zcc="$szMaDirGet\$zcc"; if( Test-Path $zcc -PathType Container ){dbg "重複`r`n $zcc";return}; mkdir $zcc; break};}##_★
##★Dir:選択行をゴミ箱へ
 !DDel{ $zcc00=(ssMaSetText);
    if( ($szWSobj.popup( $zcc00, 0,"ゴミ箱へ移動",1)) -eq 1 ){;}else{return};
    foreach($cc in $zcc00.split("`n")){ if($cc.length-le 2){continue}; $zcc=("$szMaDirGet\"+($cc.trim())).replace("\\","\");
        $trash =$shellAppl.NameSpace(10); $trash.MoveHere($zcc); }; break}##_★ 
##★Dir:break後の処理
  }; ssDirCmp !DGet $szDGetMod $szMaDirGet;
};

##★m50:スーバWeb検索初期登録( &KXXX; WebAdr ; &KXXX利用例   ##注釈 )
$global:szKKhon ="translate.google.ac/?hl=ja&sl=auto&tl=ja&text=@@@@&op=translate";
$global:szKKhonJ="translate.google.ac/?hl=ja&sl=auto&tl=zh-CN&text=@@@@&op=translate";
$global:szWebA="
  &KKK  ; www.bing.com/search?q=@@@@       ; &KKK コピペ パワー    ## MSN検索
  &KKA  ; www.amazon.co.jp/s?k=@@@@        ; &KKA ノートパソコン   ## Amazon検索
  &KKY2 ; transit.yahoo.co.jp/search/result/@@@@ ; &KKY2 大阪-京都       ## yahoo乗車時間検索
  &KKCHI; www.google.co.jp/maps/place/@@@@ ; &KKCHI  京都           ## 地図検索
  &KKDEN; www.google.co.jp/search?q=電卓   ; &KKDEN                 ## 電卓
  &KKHON; $szKKhon                         ; &KKHON         ## 翻訳([KKHON]以下行;)
";
##★List表示 ★[WClk]追加処理(メール表示窓:すーぱWeb検索)
function global:ssWebMacList($zfg){ ($szWebA+$szWebB).trim().split("`n")|%{ $cc+=(($_.split(";"))[2])+"`r`n`r`n" }; if($zfg-eq $null){return $cc};
    MsgBox $cc "450,520" "Webﾏｸﾛ(Wclk)" 10 ; $mBox.Add_DoubleClick({ssWCAct $this});
    $mBox.Add_KeyDown({ if($_.Control){ switch($_.KeyCode){ {$_ -in "n","Return"}{ssWCAct $this} }; }; }); };##_★
function global:ssWClkCmd($lnn,$zcc){ $cc0=($zcc.split(" "))[0]; $cc1=$zcc.substring($cc0.length).trim();
  if( $cc0.startsWith("&ttps:") ){ $cc0=$cc0.replace("&ttps:","https:"); start "$cc0"; return};
  if( $cc0.startsWith("&K") ){ if($zcc.contains(";")){ $cc=((($zcc.split(";"))[2])-split("##"))[0].trim(); ssWClkCmd 0 $cc; return};
    if($cc0-eq "&KKHON"){ foreach($ii in (1..500)){ $cc=$this.Lines[$lnn+$ii]; if($cc.length-eq 0){break}; $cc1+="`n"+$cc.trim() }; };
    foreach( $cc in ($szWebA+$szWebB).split("`n") ){ $cm=$cc.split(";"); $cc00=$cm[0].trim();
    if( $cc0-eq $cc00 ){ $ccc= ($cm[1]-split("##"))[0].trim(); $cc2=$ccc.replace("@@@@",$cc1); start "https://$cc2"; return}; };##_★
  }; ssWClkCmdUsr $lnn $zcc; };  function global:ssWClkCmdUsr{};##_★(dmmy)

##★m52:メニュ釦へのWebAdr/WinCmd登録/SUBメニュメモ登録/Act処理登録(&Dir/https/cmd)
$global:szDMnSetAct=@{}; $global:webView="C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe";
function ssDMnActSet($zcc){ foreach( $cc in $zcc.split("`n") ){ if( $cc.contains(";") ){}else{continue};
  $zcm=$cc.split(";"); $cc=$zcm[0].trim(); $cc1=$zcm[1].trim(); if( $cc.length-lt 2 ){continue};
  if( $cc-eq "&&" ){ $szDMnSetAct[$cc0]+=";$cc1" ; continue}; $cc0=$cc; $szDMnSetAct[$cc0]=$cc1;
  ( ssDMnMSet $cc0 ).add_Click({ $zcc0=$this.Text; $zcc=$szDMnSetAct[$zcc0];
      if( $zcc.startsWith("&Dir ") ){ $cc="$szMailDir\"+($zcc.substring(4).trim()); if(Test-Path $cc){ ssMaV2Box 3 "$cc\$zcc0.txt" };return};
      foreach( $cc in $zcc.split(";") ){ if( $cc.startsWith("https:")){ Start $webView -arg "--new-window" , $cc; Start-Sleep -Milliseconds 500; continue};
          if( $zcc.contains(".ps1") ){ Start powershell -NoN -Arg "-noe $zcc ";}else{ Start -Non cmd -Arg "/c $zcc" };}; });
};};##_★

##★m54:その他(雑記帳) ★Web検索メモ
function global:MenuSet($zcmd,$zpam){ $nn=$szMaMen[$zcmd]; $global:szMnBas=$nn; if($zpam-eq $null){return}; 
  $cc=($zpam-split("::"))[0]; $zsub=$zpam.substring(6); switch($cc){
   !Set{ $global:dmMenu=$mMain.MainMenuStrip; $szMaMen[$zcmd]=$global:szMnBas=(ssDMnMenu $zsub); if($nn-ne 0){ $nn.Dispose()}; return}##_★
   !Sub{ $global:szMnBas=(ssDMnMSet $zsub); return}##_★
   !Act{ $global:szMnBas=(ssDMnMSet (($zsub.split("`n"))[0]).trim()); ssDMnActSet($zsub);return}##_★
  };(ssDMnMSet $zpam).add_Click({ $zcc=$this.Text; ssMaV2Box 3 "$szMailDir\$zcc.txt" });
};
(MenuSet 8); (ssDMnMSetSb "Webﾏｸﾛ一覧").add_Click({ ssWebMacList 1 }); (ssDMnMSet "登録").add_Click({ ssMailAct !MPam "<MailBxWeb>" });
$zcc="!tmp\!Web検索メモ"; (MenuSet 8 $zcc); $zfn="$szMailDir\$zcc.txt"; if( Test-Path $zfn ){}else{ SC $zfn (ssWebMacList) };

##★m56:キー入力BOX窓(VB) ##★cmd:処理No  ch0:入力コメント  ch1:初期値
function global:ssVBKeyInp( $zcmd, $zch0, $zch1){ ##Add-Type -Assembly Microsoft.VisualBasic;
    $zcc=[Microsoft.VisualBasic.Interaction]::InputBox($zch0,$zcmd,$zch1); return $zcc}; ##_★

##★m58:Wscript.shell、組込み
if($szWSobj-eq $null){ Add-Type -Assembly Microsoft.VisualBasic; 
  $global:szWSobj=New-object -Comobject Wscript.shell; $global:shellAppl=New-Object -ComObject Shell.Application;
  Add-Type 'using System; using System.Runtime.InteropServices;
  public class MyMsgDlg{ [DllImport("shell32.dll",CharSet=CharSet.Unicode)]
      public static extern bool SHObjectProperties(IntPtr hwnd, uint shopObjectType,
      [MarshalAs(UnmanagedType.LPWStr)] string pszObjectName,[MarshalAs(UnmanagedType.LPWStr)] string pszPropertyPage); }'
};
##★m60:新しい窓Dir表示(mail)
if( $arg.startsWith("/Dir") ){ $pt=[Cursor]::Position; $fm=$mMain; $fm.Location=""+($pt.X-600) +","+$pt.Y;
     $fm.StartPosition="Manual"; $dd=1; if($arg-eq "/Dir1"){$dd=10}; ssDirCmp !DGet $dd $szMailDir };

##★m62:未読チェック(10秒周期)$scActBox.Parent.Opacity=
function global:ssMaTimerMido($cc){ $tm=$szMaTimer3; if($tm-ne $null){ if($cc-eq 0){ $tm.Stop() }else{ $tm.Start() }; return};
    $global:szMaTimer3 =$tm=New-Object Timer -Pro @{Interval=10000}; $tm.Start();
    MsgBox "未読MSG取得" "640,70" "【未読メールチェック(10秒周期)】" 10 "#D1FFFE"; $global:szMailBoxMido=$mBox; $fm=$fmMbox;
    $fm.Location="0,0"; $fm.Add_Closing({ $_.Cancel=$True; $this.Visible=$false });
    $tm.Add_Tick({ $ii=ssMailAct !MGet "6;1;1" ; ssMailCheckMido $szMailBoxMido $szMailDtGet });
}; function global:ssMailCheckMido($mm,$zcc){ $fm=$mm.Parent; $dd=0.2; $mm.Text=$zcc; if($zcc.length-ge 5){$fm.Visible=$true; $dd=1}; $fm.Opacity=$dd };

214C781893716663B6A615C018DAD589C3C1E7BD9EBBE9F7AB5476B9A3367B9E