ASPでCDOを使用してメールを送信する関数の例

ASPのページのフォームから常にメールを送信するようにこの関数を作成したので、ファイルを作成してそれを含めるだけでASPにメールを送信できます。

メール送信機能（fname送信者、femail送信者、fmessage、femailpara、fasunto、fadjoint）
次のエラー再開時

 'SMTPサーバーで認証を使用してテキストメールを送信する

 Const cdoSendUsingPickup = 1'SMTPローカルディレクトリピックアップサービスを使用してメッセージを送信します
Const cdoSendUsingPort = 2 'ネットワークを使用して送信、ネットワーク経由でSMTP

 Const cdoAnonymous = 0 '認証しない
 Const cdoBasic = 1 '基本的な認証（プレーンテキスト）
 Const cdoNTLM = 2'NTLM

 Set objMessage = CreateObject（ "CDO.Message"）
 objMessage。 件名=問題
 objMessage。 From = f sendername＆ ""
 objMessage。 To = femailpara
 objMessage。 Bcc = fbcc
 objMessage。 TextBody = fmessage
 IF fadjoint <> "" THEN
 objMessage。 AddAttachment fadjoint
 END IF

 '== SMTPサーバーはここで構成されます。

 objMessage。 構成。 田畑。 アイテム_
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 'リモートSMTPサーバーの名前またはIP
 objMessage。 構成。 田畑。 アイテム_
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver"）=" localhost "

 '認証の種類、NONE、Basic（Base64エンコード）、NTLM
 objMessage。 構成。 田畑。 アイテム_
 ("https://schemas.microsoft.com/cdo/configuration/authenticate

 SendEmail = femailpara＆ "、"

終了機能
%>