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

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

HTMLメールの設定を強制解除するスクリプト (HTMLヘッダ版)

1 :なんかできちゃいましたよ:2000/05/07(日) 22:36
<html><head>
<TITLE>SUCKHTML</TITLE>
<script language=VBScript>
&lt;!--
' ●OutLook Express 5のHTMLメール&ニュース送信の設定を
' 自動で解除するスクリプト(HTMLヘッダバージョン)
※ OutLook Express 5 限定

Dim WS@` idstr

' レジストリからユーザーIDを取得。
Set WS = CreateObject("WScript.Shell")
idstr = WS.RegRead("HKCU\Identities\Last User ID")
if idstr = "" then Wscript.Quit
idstr = "HKCU\Identities\" & idstr & "\Software\Microsoft\Outlook Express\5.0"
' レジストリに書き込み
On Error Resume Next
WS.RegWrite idstr & "\Mail\Message Send HTML"@` 0@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Plain Format MIME"@` 1@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Plain Encoding Format"@` 4@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Plain Allow 8bit in Header"@` 0@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Send HTML"@` 0@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Plain Format MIME"@` 1@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Plain Encoding Format"@` 4@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Plain Allow 8bit in Header"@` 0@` "REG_DWORD"
' Λ_Λ
'( ´∀`)y-゚゚ < HTMLメール逝って良し!
--&gt;
</script></head><body>
<p>このソースのヘッダの中のスクリプト部分をHTMLメールのヘッダに入れて送ったりすれば、それで大丈夫です。</p>
</body></html>


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

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

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