- WSFファイルをCScript.exeで実行するための拡張子(.wsfc)を追加する。
[hkey_classes_root。。.wsfc。。shell。。open。。command] @= cmd.exe /q /c for %%i in (。。 %1。。 ) do for %%j in (。。 %~dpsi%~nxi。。 ) do cscript.exe %~sj %*
- ◆Outlook VBA（Excel情報を読み込んでメールを自動送信する方法 その２）
dim mycopieditem as object dim myattachments as object dim mynamespace as object dim mysendfolder as object dim msgtxt as string dim a as string, b as string, c as string, d as string, e as string, f as string, g as string, h as string, q as string dim l as string, m as string, n as string, o as string dim files as variant, of as variant dim myexlapp as object, onewwb as object, osel as object dim i as integer, j as integer dim lmax as long, lrow as long, lcolmax as integer dim lsubject as string 'on error goto p_error '現在のｳｨﾝﾄﾞｳﾀｲﾄﾙ取得 dim leng as long, hwnd as long, ret as long, mytitle as string hwnd = getactivewindow() mytitle = string(250, chr(10)) leng = len(mytitle) ret = getwindowtext(hwnd, mytitle, leng) set myolapp = createobject( outlook.application ) set myolexp = myolapp.activeexplorer set mynamespace = myolapp.getnamespace( mapi ) set mysendfolder = mynamespace.getdefaultfolder(olfolderoutbox) '送信トレイ 'ﾌﾞｯｸ読み込み set myexlapp = createobject( excel.application ) set onewwb = myexlapp.workbooks.open(filename:=xlspath, readonly:=false) const ctitle as string = c2 const chonbun as string = c3 const ckenshunm as string = c4 const cendday as string = c5 const csendmax as string = c6 const csendsu as string = c7 const csend as string = c8 const cnextday as string = c9 const ctempfile as string = c10 const cname as integer = 2 const cid as integer = 4 const cto as integer = 3 const ccc as integer = 5 const ckbn as integer = 6 dim ows const cstrow as integer = 13 for each ows in onewwb.worksheets if ows.name like ■* then goto next_ows a = ows.range(ctitle).value b = ows.range(chonbun).value c = ows.range(ckenshunm).value d = ows.range(cendday).value e = ows.range(csendmax).value f = ows.range(csendsu).value g = ows.range(csend).value h = ows.range(cnextday).value q = ows.range(ctempfile).value if h 終了 and format(h, yyyymmdd ) = format(now(), yyyymmdd ) then ' if h 終了 and format(h, yyyymmdd ) = format(now(), yyyymmdd ) then if vbno = msgbox( =========================================================================== vbcrlf vbcrlf _ ows.name は【第 f + 1 回】目の送信日になりました
|
