スーの道具箱/
気まぐれ日記/2003-06-20
の編集
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
Top
>
気まぐれ日記
> 2003-06-20
***メール送信フォーム [[メール送信フォーム>メール]]を作ってみました。~ これでWeb上にメールアドレス書かなくて済むかも :)~ 2000+IIS5なので、CDOを使えばメール送信はとっても簡単。~ #code(vb){{ 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 }} こんな感じ。~ あとは、入力値不正の時の再入力機能,プレビュー,2重送信防止機能は欲しいなぁ。~
タイムスタンプを変更しない
***メール送信フォーム [[メール送信フォーム>メール]]を作ってみました。~ これでWeb上にメールアドレス書かなくて済むかも :)~ 2000+IIS5なので、CDOを使えばメール送信はとっても簡単。~ #code(vb){{ 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 }} こんな感じ。~ あとは、入力値不正の時の再入力機能,プレビュー,2重送信防止機能は欲しいなぁ。~
テキスト整形のルールを表示する