Jmail ..... och .AddRecipientBCC ....

ASP

5 svar · 196 visningar · startad av PatrikB 8 juli 2000

PatrikBMedlem sedan mars 20002 836 inlägg

Frågan8 juli 2000 18:56#1

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

------------------
=================================
** ZWGdesign **
=================================

emissionMedlem sedan dec. 19996 721 inlägg

8 juli 2000 19:33#2

Med AddRecipientBCC slipper du ju just detta...

------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB

PatrikBMedlem sedan mars 20002 836 inlägg

8 juli 2000 20:29#3

Hello,

vad menar du med att jag slipper just detta med BCC?

//PatrikB

------------------
=================================
** ZWGdesign **
=================================

emissionMedlem sedan dec. 19996 721 inlägg

8 juli 2000 21:05#4

Jo, med AddRecipientBCC så lägger man ju till adresser i BCC-headern, en oc en, och du slipper kladda ihop dem med semikolon.

------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB

[Redigerat av emission den 08 jul 2000]

PatrikBMedlem sedan mars 20002 836 inlägg

9 juli 2000 08:19#5

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

------------------
=================================
** ZWGdesign **
=================================

PatrikBMedlem sedan mars 20002 836 inlägg

9 juli 2000 10:12#6

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

------------------
=================================
** ZWGdesign **
=================================

[Redigerat av PatrikB den 09 jul 2000]