---
title: "Jmail ..... och .AddRecipientBCC ...."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6014-jmail-och-addrecipientbcc"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2000-07-08T18:56:00.000Z"
updated: "2000-07-09T10:12:00.000Z"
replies: 5
views: 211
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6014-jmail-och-addrecipientbcc"
---

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

## #1 — PatrikB, 2000-07-08T18:56Z

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

Permalänk: https://www.webforum.nu/p/6014

## #2 — emission, 2000-07-08T19:33Z

Med AddRecipientBCC slipper du ju just detta...

Permalänk: https://www.webforum.nu/p/244284

## #3 — PatrikB, 2000-07-08T20:29Z

Hello,

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

//PatrikB

Permalänk: https://www.webforum.nu/p/244285

## #4 — emission, 2000-07-08T21:05Z

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

Permalänk: https://www.webforum.nu/p/244286

## #5 — PatrikB, 2000-07-09T08:19Z

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

Permalänk: https://www.webforum.nu/p/244287

## #6 — PatrikB, 2000-07-09T10:12Z

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

Permalänk: https://www.webforum.nu/p/244288

---

Tråden på webben: https://www.webforum.nu/amne/asp/6014-jmail-och-addrecipientbcc