現在、ユーザー メッセージを開発しています。1 つのコピーはデータベースに保存され、もう 1 つのコピーはサーバーがサポートしているかどうかわかりませんが、メッセージ情報が送信されます。メールに。まず、On Error Resume Next というステートメントが必要です。
次に、jmail の例を再開してみます。
ディム・ジェイメール
JMail=Server.CreateObject(JMail.Message) を設定します。
インスタンスを判断します。コンポーネントが正常にインストールされなかった場合、インスタンスは作成されません。
JMail が何もない場合
Response.Write はサポートされていません
それ以外
応答.書き込みサポート
終了の場合
他のコンポーネントも同様に処理され、非常に簡単です。
使用時に気にする必要がないように、グローバル ファイルで処理するのが最善です。
最善の方法は、電子メールの生成を表にまとめてから、その送信について話し合うことです。
次のようにコードをコピーします。
関数 IsObjInstalled(strClassString)
エラー時は次へ再開
IsObjInstalled = False
エラー = 0
DimxTestObj
xTestObj = Server.CreateObject(strClassString) を設定します
0 = エラーの場合、IsObjInstalled = True
xTestObj = なしを設定します
エラー = 0
終了機能
判定コード：
if IsObjInstalled(JMail.Message)=True then{
IsObjInstalled(JMail.Message) =True の場合
SendStat = Jmail(***@vevb.com、インターネットからの顧客メッセージ、<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>ウェブサイト ユーザー メッセージ</title></head><body>メッセージ担当者: &txtname&<br>性別: &xingbie&<br>コンサルティング Web サイト: &txtweb&<br>連絡先情報: &txttel&<br>メッセージの内容:&続きent&<br>IP アドレス:&ipaddress&<br>メッセージ時刻:&now()&<br><br>このメールはシステムによって自動的に送信されます。返信は必要ありません<!--Script Home www.vevb.com-- ><br ><br></body></html>,GB2312,text/html)
終了する場合
}
jmail送信機能
次のようにコードをコピーします。
' ===========================================
' jmail がメールを送信します
' ===========================================
関数 Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'エントリパラメータ:
' mailTo 受信者の電子メール アドレス
'mailTopic メールトピック
' mailBody メール本文（内容）
' mailCharset メール文字セット (GB2312 や US-ASCII など)
' mailContentType 電子メール本文の形式 (text/plain または text/html など)
'戻り値:
' 文字列。送信が成功すると OK が返され、失敗した場合はエラー メッセージが返されます。
'使用法：
' 1) 定数、つまりConstで始まる変数を設定します。
'2) 次のようなコードを使用してメッセージを送信します
'ディム SendStat
'SendStat = Jmail([email protected], テスト Jmail、これはテストレターです!, GB2312, text/html)
'Response.SendStat の書き込み
'******************開始に必要な定数を設定******************
Dim ConstFromNameCn、ConstFromNameEn、ConstFrom、ConstMailDomain、ConstMailServerUserName、ConstMailServerPassword
ConstFromNameCn = Lottory Network の送信者の中国語名 (中国語の電子メールを送信するときに使用) (「Zhang San」など)
ConstFromNameEn = bc5'送信者の英語名 (英語の電子メールを送信する場合に使用されます)、たとえば「zhangsan」
ConstFrom = [email protected]' 送信者の電子メール アドレス ('[email protected]' など)
ConstMailDomain = smtp.163.com の smtp サーバー アドレス (smtp.163.com など)
ConstMailServerUserName = [email protected] の SMTP サーバーのメールボックス ログイン名 (「zhangsan」など)。送信者の電子メール アドレスが必ず一致するようにしてください。
ConstMailServerPassword = www.vevb.com の SMTP サーバーのメールボックスのログイン パスワード
'******************必要に応じて定数を設定して終了****************
'--------------------------------以下の内容は変更する必要はありません---------- -------- ---------------
エラー時は次へ再開
私のJmailを暗くする
myJmail = Server.CreateObject(JMail.Message) を設定します。
myJmail.Logging = False'ロギング
myJmail.ISOEncodeHeaders = False'メールヘッダーは ISO-8859-1 エンコーディングを使用しません
myJmail.ContentTransferEncoding =base64'メールのエンコードはbase64に設定されます
myJmail.AddHeader Priority,3' メール ヘッダーを追加します。変更しないでください。
myJmail.AddHeader MSMail-Priority,Normal'メール ヘッダーを追加します。変更しないでください。
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'メール ヘッダーを追加します。変更しないでください。
myJmail.AddHeader MimeOLE,Produced By Microsoft MimeOLE V6.00.2800.1441'メール ヘッダーを追加します。変更しないでください。
myJmail.Charset = mailCharset
myJmail.ContentType = mailContentType
UCase(mailCharset) = GB2312 の場合
myJmail.FromName = ConstFromNameCn
それ以外
myJmail.FromName = ConstFromNameEn
終了の場合
myJmail.From = ConstFrom
myJmail.Subject = mailTopic
myJmail.Body = メール本文
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
myJmail.Close
myJmail=nothing を設定します
エラーの場合はその後
Jmail=エラーの説明
エラークリア
それ以外
Jメール=OK
終了の場合
エラー時は0に移動
終了機能