【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 Server 2012】VMware Playerにインストールとエラーではまったこと。
Windows Server 2012の評価版が無料(試用期間180日)でtechnetからダウンロ
-
【Windows 8.1】文字(フォント)がギザギザ?カクつき?を解消する方法
上記のスクリーンショットを見てみると言われてみれば、文字がギザギザな感じがします。 と
-
【Active Directory のグループ ポリシー】Windows VISTAでスクリーンセーバーが動かない。
会社でハマッたことを記録として残しておこうと思います。 うちの職場では Windows2003 s
-
【Windows】仕事で使うキーボードのショートカット
ちょっと前の話。 いつも忙しい忙しいと言ってる建築関係の仕事をしている先輩から電話がかかってきた。
-
【Windows 2012】Windows Server バックアップ スナップインが作成できませんでした。
職場のWindows Server 2012のWindows Server バックアップが突如起動し
-
【共有フォルダ】アクセス権の新発見
本日、仕事で依頼があってファイルサーバー(Windows2008)のアクセス権を新たに設定していまし
-
【Management Studio】Microsoft SQL Server 2012 ExpressにManagement Studio のインストール方法。
前回、Windows Server 2012にSQL Server 2012 Expressをインス
-
【Windows VISTA/7の標準のZIPファイル】圧縮/解凍のアイコンがおかしい。
「ZIPファイルが開けない」 ファイルをダブルクリックすると、ワードが起動してエラーになる。 こ
-
【Windows7/VISTA】オーディオデバイスがインストールされていません。
「パソコンから音が出なくなった」 という問い合わせをうけました。 端末を確認すると… 「有
-
【Windows Server 2008】共有フォルダ
仕事でのお話。 会社で新システムをリリースするための準備としてNASの領域縮小を行ったのですが…
Comment
[…] http://itdiary.info/windows/vbscript_mail/ […]