5 svar · 211 visningar · startad av PatrikB
Hello,
ngn som kan det?
Det är så att jag vill hämta en massa mailadreser från en databas och sedan lägga dem som BCC.
Problemet är att jag inte kan rada upp dem eftervarandra och separera dem med ; som det går i tex ett mailprg.
Ngn som har en smart lösning och är villig att dela med sig.
//PatrikB
Med AddRecipientBCC slipper du ju just detta...
Jo, med AddRecipientBCC så lägger man ju till adresser i BCC-headern, en oc en, och du slipper kladda ihop dem med semikolon.
Hello,
jo jag vet.
Den vill ju ha det så här:
oMail.AddREcipientBCC one@mail.com
oMail.AddREcipientBCC two@mail.com
etc.
Det har inte funkat att loopa igenom ett recordset och tilldela AddRecipientBCC
Har du ngt kodexempel??
//PatrikB
Hello,
tackar för hjälpen.
Fick det att funka nu ... med denna kod:
' Send Newsletter
'----------------
Private Sub myJmail(mySMTPserver, myMail, mySubject, myBody)
Dim rs ' as adodb.recordset
Dim strSQL ' as string
Dim toMail ' as string
' sql query to grab all emails from database
'-------------------------------------------
strSQL = "SELECT * FROM table WHERE field2 = True"
OpenDB()
Set oMail = Server.CreateObject("Jmail.SMTPMail")
oMail.ServerAddress = mySMTPServer
oMail.Sender = myMail
oMail.Subject = mySubject
oMail.AddRecipient myMail
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = myConn
rs.Source = strSQL
rs.CursorLocation = adUseClient
rs.CursorType = adLockOptimistic
rs.Open
If Not rs.EOF or rs.BOF Then
Do Until rs.EOF or rs.BOf
toMail = " " & rs("mail_field")
oMail.AddRecipientBCC toMail
rs.MoveNext
Loop
End If
Set rs = nothing
oMail.Body = myBody
oMail.AddHeader "Originating-IP: ", Request.ServerVariables("REMOTE_ADDR")
oMail.Execute
Set oMail = nothing
CloseDB()
End Sub
För alla andra som åker på samma problem ngn ggn.
cu
PatrikB