5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

HTMLメールの設定を強制解除するスクリプト

1 :愛ゆえにひとり:2000/05/03(水) 13:03
'------------------------ キリトリセン ------------------------
' ●OutLook Express のHTMLメールの設定を
' 自動で解除するスクリプト
' ※このスクリプトの著作権は放棄します。

Dim FS@` WS@` pos

' "Outlook Express" がなければそのまま終了
Set FS = CreateObject("Scripting.FileSystemObject")
pos = FS.GetSpecialFolder( WindowsFolder )
pos = FS.GetDriveName(pos) & "\Program Files\Outlook Express\msimn.exe"
if FS.FileExists(pos) = false Then Wscript.Quit

' "Outlook Express"を起動。しばし待つ。
Set WS = WScript.CreateObject("WScript.Shell")
WS.Run "msimn.exe"@`@`blWait
WScript.Sleep(3600)

' キーイベントを送信
WS.AppActivate("Outlook") '"Outlook"をアクティブに
WS.Sendkeys("%TO+{TAB}{RIGHT}{RIGHT}{RIGHT}") ' 「オプション」の「送信」を開く。
WS.Sendkeys("%P%X{ENTER}") ' メールとニュースのHTML設定を解除するして閉じる。
WS.Sendkeys("%FX") ' "Outlook"を終了する。

' Λ_Λ
'( ´∀`)y-゚゚ < 凶悪だなぁ、オイ
' === end of script ===
'------------------------ キリトリセン ------------------------


2 :説明書:2000/05/03(水) 13:04
●使用方法
「キリトリセン」のあいだをテキストファイルに保存して、
名称を"suckhtml.vbs"というふうに拡張子を"*.vbs"にして保存します。
("suckhtml"のところはなんでも構いません)
あとはそれを実行するだけでOutlookが起動してメールとニュースの
HTML送信設定が解除され、ウィンドウを閉じて終了します。

InternetExplorer 4 以降から実行可能なはずです。

ちなみに動作確認を行った環境は、
メーラー:Outlook Express 5
ブラウザ:InternetExplorer 5.01
OS:WIndows95 (OSR1)
…です。

●使用例
何度言ってもHTMLメールの設定をはずそうとしない初心者に、
ナニゲに「これをちょっと実行しといてよ」と言って送りつけたり
するというような使い方を想定しています。(悪


3 :名無しさん:2000/05/03(水) 15:14
これホント?

4 :名無しさん:2000/05/07(日) 01:03
これはあげなければ!

5 :名無しさん:2000/05/07(日) 01:09

今なら「I LOVE YOU」のタイトルで添付すればよし。

6 :>5:2000/05/07(日) 05:05
“I HATE YOU”の方が良いかもしれない ;-)

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)