遊園地

娘が水疱瘡になってたんだけど、すぐ治ったみたいでｗｗ
予防接種受けてるから？か軽くすむ様です。
ってな訳で、当初の予定通り明日はひらパーに行ってきます。
案外、大人も楽しめたりしますｗｗ

CDOによるメール送信

イントラWebで、ajax+ASPのちょっとしたWebアプリを作ったんですが、
その際使ったメール送信処理。CDOはsampleもいっぱい転がってるので簡単にできます。

Dim objCDO
Set objCDO = CreateObject("CDO.Message")

With objCDO
    With .Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") _
            = 2 '送信方法、SMTPポートに接続して送信する
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
            = "smtp.hogehoge.com" 'SMTPサーバ名
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
            = 25 'SMTPポート番号
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") _
            = 1 '認証方法 1:BASIC認証 2:NTLM認証
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") _
            = "hogeaccount" 'アカウント
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") _
            = "hogepassword" 'パスワード
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") _
            = 60 '接続timeout秒数
        .Item("http://schemas.microsoft.com/cdo/configuration/languagecode") _
            = "shift-jis" '文字コード
        .Update
    End With
    .From      = "sender@hoeghoge.com"        '送信者メールアドレス
    .To        = "receiver@hoeghoge.com"      '受信者メールアドレス
    .Subject   = "CDOを使ったメールのtest"    '件名
    .TextBody  = "メールの本文です。ふがふが" '本文
    .TextBodyPart.Charset = "shift-jis"       '文字コード指定
    'htmlメールの時は、TextBodyの代わりに以下を活かす
    '.HTMLBody = "<p style=""background-color: pink;"">htmlメールにするなら本文部分をhtmlで書きます</p>"
    '.HTMLBodyPart.Charset = "shift-jis"
    .Send                                     '送信
End With

Set objCDO = Nothing