Top > 気まぐれ日記 > 2007-01-25

メール送信 *

昔の日記の日記のヤツは、SMTP認証に対応してなかったので少し修正

Set objCDO = Server.CreateObject("CDO.Message")
With objCDO
    With .Configuration
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' 外部SMTPサーバ
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPサーバ
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' Basic
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ユーザ名
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = パスワード
        .Fields.Update
    End With
    .To = 送り先
    .From = 送り元
    .Subject = 件名
    .TextBody = 内容
    .Send
End With
Set objCDO = Nothing

パスワードをリテラルで書くと、コードが洩れたら危険。