【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】シャットダウンがフリーズ(固まる)してしまう。
シャットダウンするとそのまま固まってしまう。 結論から書くと、 ユーザープロファイルの削除
-
【Windows VISTA/7の標準のZIPファイル】圧縮/解凍のアイコンがおかしい。
「ZIPファイルが開けない」 ファイルをダブルクリックすると、ワードが起動してエラーになる。 こ
-
【Windows インストーラー】動作を停止し、インストールできない。
Windows8.1で何かプログラムをインストールしようとして、setup.exe等を実行すると
-
【Windows Server 2008】共有フォルダ
仕事でのお話。 会社で新システムをリリースするための準備としてNASの領域縮小を行ったのですが…
-
【Windows 2012】Windows Server バックアップ スナップインが作成できませんでした。
職場のWindows Server 2012のWindows Server バックアップが突如起動し
-
【SQL Server 2012】Management Studioでサンプルデータベース(mdfファイル)をアタッチ
以前、Windows Server 2012にMicrosoftR SQL ServerR 2012
-
【共有フォルダ】誰がアクセスしているかチェック
会社で仕事をしていると共有フォルダ上にファイルやフォルダを作成 またはファイル、フォルダのリネーム
-
【IE7】初期ページを設定しているのに、変更できない。
いまさらIE7(笑)と思う方も多いかもしれませんが… 職場なんかだと使ってるとこが意外に多いん
-
【Windows 8.1】文字(フォント)がギザギザ?カクつき?を解消する方法
上記のスクリーンショットを見てみると言われてみれば、文字がギザギザな感じがします。 と
-
【SQL Server 2012 Express】Windows Server 2012にインストールしてみる
Windows Server 2012にSQL Server 2012をインストールしてみる。 以
Comment
[…] http://itdiary.info/windows/vbscript_mail/ […]