このプロジェクトは現在、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