OutlookExpressスキルアップ講座

作成日の入った署名
VB Scriptを使って、メール作成日の日付が入った署名を作る方法を説明しています。
以下の内容を拡張子VBSで保存し、スタートアップに入れておくと、ＰＣの起動日が書かれた署名ファイルがc:\shomei.txtに作られます。OEの署名を「ツール」−「オプション」−「署名」タブでファイルから入力するよう変更しておくことで、日付入りの署名ができあがりです。

------- ここから -------

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("c:\shomei.txt", True)
strText = Date()
strweek = WeekdayName(Weekday(Date()),True)
objFile.WriteLine "【発信】---" & strText & "(" & strweek & ")" & "---"
objFile.WriteLine "by 獅子王ペパ"
objFile.Close

------- ここまで -------