スーの道具箱/
気まぐれ日記/2007-01-25
の編集
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
Top
>
気まぐれ日記
> 2007-01-25
**メール送信 [#v7755d95] [[昔の日記>../2003-06-20]]の日記のヤツは、SMTP認証に対応してなかったので少し修正 #code(vb){{ 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 }} パスワードをリテラルで書くと、コードが洩れたら危険。 //// #br #comment #br
タイムスタンプを変更しない
**メール送信 [#v7755d95] [[昔の日記>../2003-06-20]]の日記のヤツは、SMTP認証に対応してなかったので少し修正 #code(vb){{ 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 }} パスワードをリテラルで書くと、コードが洩れたら危険。 //// #br #comment #br
テキスト整形のルールを表示する