このプロジェクトは現在、ASPを使用した時限電子メール配信を必要としており、多くの人々はASPにはそのような機能がないと言います。
実際、私は前の記事で詳細に説明しましたが、それは時限タスクであり、基本的なアイデアは同じです。
参照：ASPにタイミングタスクを実装する方法
ここでは、Jmailコンポーネントを使用してそれを行います。電子メールのコンテンツは単一のWebページで、自由にカスタマイズできます。
時限メールを送信するためのコードを見てみましょう：
コードコピーは次のとおりです。
関数gethttppage（url）
dim objxml
set objxml = createObject（ "msxml2.serverxmlhttp.3.0"） 'xmlhttpコンポーネントを呼び出して、スペースがxmlhttpをサポートするかどうかをテストします
objxml.open "get"、url、false 'false webコードを同期方法で取得することを意味し、同期とは何かを理解しますか？非同期とは何ですか？
objxml.send（） 'send
gethttppage = bbytestobstr（objxml.responsebody） '情報を返し、関数を使用してエンコードを定義します。
objxml = nothing'closeを設定します
エンド関数
関数bbytestobstr（body）
DIM OBJSTREAM
objstream = createObject（ "adodb.stream"） 'を設定します。/adodb.streamコンポーネントを呼び出します
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = "gb2312"
'元のデフォルトのUTF-8エンコードをGB2312エンコードに変換します。そうしないと、XMLHTTPを使用して漢字を使用してWebページを直接呼び出すことでCarled Codeを取得します。
bbytestobstr = objstream.readText
objstream.close
objstream = Nothingを設定します
エンド関数
サブセンドアクション（件名、MailAddress、Tomail、Sender、Content、Fromail、fromer、username、password）
set ojmail = createObject（ "jmail.message"）
ojmail.logging = false
ojmail.silent = true
ojmail.priority = 3
ojmail.fromname = fromer
ojmail.from = foremail
ojmail.charset = "gb2312"
ojmail.mailserverusername = username
ojmail.mailserverpassword =パスワード
ojmail.contenttransferencoding = "base64"
ojmail.htmlbody = content 'メールコンテンツ
ojmail.body = content '"私たちのメールはHTML形式ですが、あなたの電子メール視聴ソフトウェアはそれらをサポートしていないかもしれません」
ojmail.addrecipient tomailの受信者アドレス
ojmail.subject = subject 'title
ojmail.send（mailaddress）
End Sub
Dim Subject、MailAddress、Toemail、Sender、Fromail、Fromer、Password、ojmail、usernames、tomail