VBScriptでメールを送信する

Windows クライアントからVBScriptでメールを送信する場合は

難しく考えず、CDO.Messageの設定をすれば送信できます。

Windows 2kだとこれだけで送信できます。

XPの時はなにか設定を変えたような気がするなぁ。

思い出したら書きます。
追記：Home エディションだとSMTP出来ないそうです。

普通のプロバイダだと「Outbound Port25 Blocking」 に弾かれて結局送信できないとかオチもあるでしょう :p

あと、WindowsServerの場合はメールサーバ機能を有効にしないとエラーになりますよ。

外部サーバを利用したメールの送信はまた次回にでも。

Sub SendMail(strFrom, strTo, strCC, strSubject, strTextBody, strAttachFile)     If Len(strTextBody) > 0 Then         Dim objMessage         Set objMessage = CreateObject("CDO.Message")         With objMessage             .From = strFrom             .To = strTo             If strCC <> "" Then                 .CC = strCC             End If             .Subject = strSubject             .TextBody = strTextBody             If strAttachFile <> "" Then                 .AddAttachment strAttachFile             End If             .Send         End With     End If End Sub