Top > 気まぐれ日記 > 2003-06-20

メール送信フォーム

メール送信フォームを作ってみました。
これでWeb上にメールアドレス書かなくて済むかも :)

2000+IIS5なので、CDOを使えばメール送信はとっても簡単。

Set objCDO = Server.CreateObject("CDO.Message")
With objCDO
    With .Configuration
        .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/sendusing") = 2
        .Fields.Update
    End With
    .To = 送り先
    .From = 送り元
    .Subject = 件名
    .TextBody = 内容
    .Send
End With
Set objCDO = Nothing

こんな感じ。

あとは、入力値不正の時の再入力機能，プレビュー，２重送信防止機能は欲しいなぁ。