I want to send a number of emails using ASP. The email addresses are held in a mySQL table.
I would like to send the first email direct ,with BCCs to the remaining ones in the table (or rather generated by a query of the table).
My present coding just sends emails without BCCs:
Dim Mail
Dim objCDOSYSCon , objCDOSYSMail, BodyString, ResponseString, myRS, db, strSQL, strSQL2
Dim mySQLWhere, MonthString, Connection, FullLoginName, Prompt, UserID, myCmd, myCmd2, RecordID, EmailTextID
Dim EmailText, strFinalMsg, NumberSent, NumberNotSent, strHeader, BodyText, NumberRemaining
EmailTextID = CCGetParam("ID", Empty)
strSQL="ID = " & EmailTextID
Set Connection = New clsDBConnection1
Connection.Open
UserID = Connection.ToSQL(CCGetUser
ID(), ccsInteger)
EmailText = CCDLookup("fldtext", "tblemailtext", strSQL, Connection)
FullLoginName = CCDLookup("fldFullName", "tblpasswords", "fldID = " & UserID , Connection)
'response.Write EmailText
'response.end
'This prevents the form from being Cached.
Response.Expires = 0
Response.Expiresabsolute = Now-1
'Create the MailSender Object
Set Mail = Server.CreateObject("Persi
ts.MailSen
der")
Set myCmd = Server.CreateObject("ADODB
.Command")
Set myCmd2 = Server.CreateObject("ADODB
.Command")
Set myRS = Server.CreateObject("ADODB
.Recordset
")
'Specify your SMTP Mail Server
Mail.Host = "mailA28.webcontrolcenter.
com"
'Specify the From Address and Name
Mail.From = "brianog@DomainID54847.com
"
'Mail.From = "matthewo'gorman@lifechari
ty.org.uk"
'Mail.FromName = FullLoginName
Mail.FromName = "Matthew O'Gorman, LIFE London"
Mail.Subject = "LIFE talks"
strHeader = "<HTML><BODY BGCOLOR=#FFFFFF TEXT=#000000> " & _
"<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
'EmailText & "</BODY></HTML>"
'Mail.Body = strFinalMsg
'Specify of the message is plain text or HTML
Mail.IsHTML = True
strSQL = "SELECT tblselectedschools.fldCont
act AS CONTACT, tblschools.fldNAME AS SCHOOLNAME, tblschools.fldTOWN AS SCHOOLTOWN, tblselectedschools.fldSalu
tation AS SALUTATION, tblselectedschools.fldemai
l, tblselectedschools.fldReco
rdID FROM tblschools RIGHT JOIN tblselectedschools ON tblschools.fldSCHOOL_ID = tblselectedschools.fldSCHO
OL_ID WHERE tblselectedschools.fldUser
ID = " & UserID & _
" AND tblselectedschools.fldSele
cted = 1 AND TRIM(tblselectedschools.fl
demail) <>''"
'response.Write strSQL
'response.end
Set myRS = Connection.Execute(strSQL)
NumberSent = 0
NumberNotSent = 0
Do While Not myRS.EOF
RecordID = myRS.Fields("fldRecordID")
'Mail.AddRecipient myRS.Fields("fldContact"),
myRS.Fields("fldemail")
'BodyText = strHeader & myRS.Fields("CONTACT") & "<br>" & myRS.Fields("SCHOOLNAME") & "<br>" & myRS.Fields("SCHOOLTOWN") & _
BodyText = "<br><br>" & myRS.Fields("SALUTATION") & "<br><br>" & EmailText & "</BODY></HTML>"
Mail.Body = BodyText
Mail.AddAddress myRS.Fields("fldemail"), FullLoginName
'Try to send the message
Mail.Send
'If there is an error, print it out, if the message sends ok, show success!
If Err <> 0 Then ' error occurred
'response.write("Message Error: " & Err.Description)
NumberSent=NumberNotSent+1
Emails.txtEmailsNotSent.Va
lue= NumberSent
else
'Label1.Value="Email sent to: " & myRS.Fields("fldemail")
'Label1.Value = "<font color=RED> " & Label1.Value & "</font>"
NumberSent=NumberSent+1
Emails.txtEmailsSent.Value
= NumberSent
'response.write("Your Message has been sent!")
End If
myRS.MoveNext()
Loop
strSQL = "DELETE FROM tblselectedschools WHERE tblselectedschools.fldUser
ID = " & UserID & _
" AND tblselectedschools.fldSele
cted = 1 AND TRIM(tblselectedschools.fl
demail) <>''"
Connection.Execute strSQL
strSQL = "SELECT COUNT(*) AS REMAINING FROM tblselectedschools WHERE tblselectedschools.fldUser
ID = " & UserID & _
" AND tblselectedschools.fldSele
cted = 1"
Set myRS=Connection.Execute(st
rSQL)
NumberRemaining=myRS("REMA
INING")
Connection.Close
Set Connection = Nothing
On Error Goto 0
'response.Write NumberRemaining
'response.end
If CInt(NumberRemaining)>0 Then
response.Redirect "SchoolsMailMerge.asp"
Else
response.Redirect "Home.asp"
End If
How can I adapt this so that each recipient only sees their own email address
Start Free Trial
