VBScript
Option Explicit Const useRemoteSMTPService = 2 Dim objMsg Dim mailServer Dim mailPort Dim message Dim fromAddress Dim toAddress Dim mailBody mailServer = "111.222.333.444" ' メールサーバ（IPアドレス） mailPort = 25 fromAddress = "admin@tes…
Option Explicit Dim Fso Dim Shell Dim folder Dim file Dim DateNow Dim ZipFileName Dim ZipFilePath Dim fldrName Dim fileCount Dim EmptyData Dim ZipFolder Dim CompressItem Dim Date400 Dim i 'オブジェクト作成 Set Fso = CreateObject("Scripting…
