メーラーに添付ファイルをつける方法

昔、VBScriptで↓を作成したことあるので
(OutlookExpressオンリー　＆　無理やり）
VBでも可能でしょう。

SendToフォルダへ置きます。

---この下から
'Windows98以上 + Script Host5.6以上 + Internet Explorer5.5以上
Option Explicit
dim objArgs
dim WshShell
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")

if WScript.Version < "5.6" then
WScript.Echo "Windows Script Host 5.6 をインストールしてください"
WScript.Quit
end if

Dim targetfile
dim stra,prog,BtnCode

dim Address , titleName
Address = "itto1@ittochan.co.jp;itto2@ittochan.co.jp"
titleName = "件名"

prog = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msimn.exe\")

prog = chr(34) + prog + chr(34)
wshShell.Run(prog+" /mailurl:mailto:"+Address +"?subject="+titleName)

dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application")

IE.Visible = false
IE.Navigate "about:blank"

Do While IE.Busy
Wscript.Sleep 10
Loop
dim j
stra = IE.Document.parentWindow.clipboardData.getdata("text")
For Each targetfile In objArgs
IE.Document.parentWindow.clipboardData.setdata "text",targetfile

for j=0 to 600
WScript.Sleep(100)
if wshShell.AppActivate( titleName ) then
exit for
elseif j=599 then
fin()
end if
next

wshShell.SendKeys("%IA")

for j=0 to 600
WScript.Sleep(100)
if wshShell.AppActivate("添付ファイルの挿入") then
exit for
elseif j=599 then
fin()
end if
next
WScript.Sleep(500)
wshShell.SendKeys("%N^V%A")
next
if objArgs.Count<1 then
BtnCode = WshShell.Popup("添付ファイルがないよ",2,,16)
else
BtnCode = WshShell.Popup("添付完了！！",2,,64)
end if
fin()
sub fin()
if stra <> Null then
IE.Document.parentWindow.clipboardData.setdata "text",stra
end if
IE.Quit
WScript.Quit
end sub

投稿日時 - 2003-04-11 00:05:49