【VBScript】CDO.Messageでメール送信 文字化け
VBScriptでメール送信のプログラムを作ってみたら
日本語が文字化けになってしまった。
↓文字化けしてしまったソース。
Dim oMsg Set oMsg = CreateObject("CDO.Message") 'メール送信方法 oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTPサーバーのアドレス oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.co.jp" 'SMTPサーバーのポート oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMsg.Configuration.Fields.Update '差出人メールアドレス oMsg.From = "差出人<xxx@xxxx.co.jp>" 'あて先メールアドレス oMsg.To = "受取人<yyy@yyyy.co.jp.>" '件名 oMsg.Subject = "メール件名" '本文 oMsg.TextBody = "メール本文" oMsg.Send
しかも、すごい限定的に。
Windows8.1
Windows7
Windows Vista
Windows Storage Server 2008
では文字化けせずに問題なかったのに、
Windows Storage Server 2008 R2
だけなぜか。。。
ですが、解決しました。上記のソースに
「oMsg.TextBodyPart.Charset = “ISO-2022-JP”」
を加えることで、文字化けせずに送信できました。
↓Windows Storage Server 2008 R2でも文字化けしないソース
Dim oMsg Set oMsg = CreateObject("CDO.Message") 'メール送信方法 oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTPサーバーのアドレス oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.co.jp" 'SMTPサーバーのポート oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMsg.Configuration.Fields.Update '送信文字コード oMsg.TextBodyPart.Charset = "ISO-2022-JP" '差出人メールアドレス oMsg.From = "差出人<xxx@xxxx.co.jp>" 'あて先メールアドレス oMsg.To = "受取人<yyy@yyyy.co.jp.>" '件名 oMsg.Subject = "メール件名" '本文 oMsg.TextBody = "メール本文" oMsg.Send
無印の Windows Storage Server 2008 では大丈夫なのに、なぜ!!!!
Adsense
関連記事
-
-
【Windows】ユーザーのプロファイル削除方法
仕事のPCは、使いまわしたりするからユーザープロファイルがたまって、あまり使っていないのにCドライブ
-
-
【Windows 2012】Windows Server バックアップ スナップインが作成できませんでした。
職場のWindows Server 2012のWindows Server バックアップが突如起動し
-
-
【Windows】ドメインに接続できません。と表示され、ログオンできない
ドメインに接続できません。ドメイン コントローラがダウンしているか利用できない状態になっている、
-
-
【Active Directory のグループ ポリシー】Windows VISTAでスクリーンセーバーが動かない。
会社でハマッたことを記録として残しておこうと思います。 うちの職場では Windows2003 s
-
-
【共有フォルダ】アクセス権の新発見
本日、仕事で依頼があってファイルサーバー(Windows2008)のアクセス権を新たに設定していまし
-
-
【Management Studio】Microsoft SQL Server 2012 ExpressにManagement Studio のインストール方法。
前回、Windows Server 2012にSQL Server 2012 Expressをインス
-
-
【Internet Explorer】Windows7のデスクトップのIEがダブルクリックをしても起動しない。
「デスクトップにあるIEをダブルクリックしても起動しない。」 とヘルプデスクで依頼がありました。
-
-
【Windows Server 2008】共有フォルダ
仕事でのお話。 会社で新システムをリリースするための準備としてNASの領域縮小を行ったのですが…
-
-
【共有フォルダ】上位フォルダからの継承アクセス権の個別削除
またまた共有フォルダのアクセス権で新しい発見をしたので、書きとめておこうと思います。 今まで必要な
-
-
【Windows インストーラー】動作を停止し、インストールできない。
Windows8.1で何かプログラムをインストールしようとして、setup.exe等を実行すると
Comment
[…] http://itdiary.info/windows/vbscript_mail/ […]