出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3501] メールアドレス重複防止
投稿者：タカナガさん 2003/07/11 16:34:19
はじめまして。
ＡＳＰ初心者のタカナガと申します。
本日ご質問させていただきたいのは、ＡＳＰとＢＡＳＰ２１を
利用してメールを送信したいのですが、ＤＢにあるメールアドレスで
重複しているものには１回しかメールを送らないようにしたいのでがこのようなことは可能でしょうか？
以下に書いたソースではメールを送ることは出来るのですが、メールアドレスが重複してしまいます。（対策をおこなっていない）
もし何かわかる方がいましたらよろしくお願いします。

<% Response.AddHeader "Pragma","No-Cache" %>
<% Response.AddHeader "Cache-Control","no-cache" %>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=shift_jis">
<TITLE>メール送信</TITLE>
</HEAD>
<BODY>
<%
Dim objFile,obj_Mail,obj_db,obj_rec
Dim sSql
Dim smtp,sFilename,sSubject,strIn,sMailServer,sTo,sFrom,sFiles,sBody,rc

Server.ScriptTimeout = 36000

Set objFile = Server.CreateObject("Scripting.FileSystemObject")

sFilename = Server.MapPath("htmlmail/" & Request.Form("filename"))
sSubject = Request.Form("subject")
Set strIn = objFile.OpenTextFile(sFilename, 1, False)
sBody = strIn.ReadAll
Set objMail = Server.CreateObject("Basp21")
smtp = "*/*"
sMailServer = "*.*.*.*8"
sFiles = "" '<-- 添付ファイル
sFrom = "*<*@*.*.*>"
Set obj_db = Server.CreateObject("ADODB.Connection")
Set obj_rec = Server.CreateObject("ADODB.RecordSet")
obj_db.Open "Server=SVR***;UID=**;PWD=;DATABASE=DCDB;Driver=SQL Server"
sSql = "SELECT MAIL FROM DCDB..TDC110_TEST(NOLOCK) WHERE Q6 = 0 "
obj_rec.Open sSql,obj_db,3,3

'@@@@@@@@@@[LOOP-START]@@@@@@@@@@
Do While Not obj_rec.EOF

sTo = obj_rec.Fields("MAIL")
rc = objMail.SendMail(sMailServer, sTo, sFrom, sSubject, sBody, sFiles)
obj_rec.MoveNext
Loop
'@@@@@@@@@@[LOOP-END ]@@@@@@@@@@
obj_rec.Close
Set obj_rec = Nothing
Set obj_db = Nothing



%>
<HR>
To <% =sTo %><BR>
From <% =sFrom %><BR>
file name<%=sFilename%><br>
件名 <% =sSubject %><BR>
<HR>
<PRE><% =sBody %></PRE>
<HR>
<%
' If rc = "" Then
' Response.Write "送信 OK" '<---NGですよ
' Else
' Response.Write "送信 NG " & rc '<---OKですよ
' End if
%>
</BODY>
</HTML>
メールアドレス重複防止 　 タカナガさん [2003/07/11 16:34:19] [3501]
　 Re:メールアドレス重複防止 　 暇人さん [2003/07/11 19:31:20] [3504]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ