マイ コンピュータ\HKEY_CLASSES_ROOT\AllFileSystemObject\shell\Zip&Send\command

wscript c:\zip_send.vbs "%1"

 

 

Set objArgs = WScript.Arguments

For I = 0 To objArgs.Count - 1

    'WScript.Echo objArgs(I)

   

Next

 

para = objArgs(0)

 

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")

If fso.FileExists(para) Then

    'WScript.echo "file"

    'WScript.echo """C:\Program Files\WinRAR\WinRAR.exe"" a -ap -pbis2011 """ & fso.getParentFolderName(para) & "\" & fso.getBaseName(para) & ".zip"" """ & para & """"

    Return = WshShell.Run("""C:\Program Files\WinRAR\WinRAR.exe"" a -ep1 -pbis2011 """ & fso.getParentFolderName(para) & "\" & fso.getBaseName(para) & ".zip"" """ & para & """", 1, true)

 

Else

    If fso.FolderExists(para) Then

        Return = WshShell.Run("""C:\Program Files\WinRAR\WinRAR.exe"" a -ep1 -pbis2011 """ & para & ".zip"" """ & para & """", 1, true)

    End If

End If

 

Set myOlApp = WScript.CreateObject("Outlook.Application")

Set myOlExp = myOlApp.ActiveExplorer

Set myNameSpace = myOlApp.GetNamespace("MAPI")

Set mySendFolder = myNameSpace.GetDefaultFolder(4)     '送信トレイ

 

Set myCopiedItem = myOlApp.CreateItem(0)

myCopiedItem.Subject = fso.getBaseName(para) & "のご送付"

'myCopiedItem.Importance = olImportanceHigh

myCopiedItem.Body = "何　さん" & vbCrLf & "お疲れ様です。" & vbCrLf & "以上　よろしくお願いします。"

myCopiedItem.To = "XXX"

myCopiedItem.CC = "YYY"

'myCopiedItem.BCC = "bcc@hogehoge.co.jp"

 

'添付ファイルを貼り付ける

Set myAttachments = myCopiedItem.Attachments

'WScript.echo """" & fso.getParentFolderName(para) & "\" & fso.getBaseName(para) & ".zip"""

 

myAttachments.Add fso.getParentFolderName(para) & "\" & fso.getBaseName(para) & ".zip", olByValue, 9999, fso.getFileName(para)

 

'送信トレイに移動

myCopiedItem.Save

 

myCopiedItem.Display

'"C:\Program Files\WinRAR\WinRAR.exe" a -pbis2011 -d "%1"