JMail-problem

5 svar · 263 visningar · startad av sundog 10 okt. 2001

sundogMedlem sedan aug. 200189 inlägg

Trådstart10 okt. 2001 13:09#1

Hej!
Håller på att skapa en "mailmotor". Den ska funka så här:
Man fyller i subject, frommail, och html-sidan som ska skickas med mailet i ett formulär. Därefter ska man kunna välja grupp man ska skicka mailet till. De här grupperna av mailadresser ligger samlade i -ett- fält i databasen. Problemet kommer när jag ska skriva ut och skicka mailet till alla.

Kan man lägga in flera mailadresser i en msg.AddRecipient på en gång? Hur i så fall? Vad ska man separera mailadresserna med?

tack

BrimbaMedlem sedan dec. 19995 874 inlägg

10 okt. 2001 13:42#2

msg.AddRecipient "blabla1@humor.com"
msg.AddRecipient "blabla2@humor.com"
msg.AddRecipient "blabla3@humor.com"

sundogMedlem sedan aug. 200189 inlägg

10 okt. 2001 13:56#3

Nja...kanske dåligt förklarat, men det ska ligga i samma msg.AddRecipient

Alltså

msg.AddRecipient "bla@blaha.com, bla@blaha.com, bla@blaha.com, bla@blaha.com"

Eftersom alla mailadresser ligger i samma post (under samma id) i databasen.

Vet bara inte vad jag ska separera mailadresserna med, eller om det ens går att göra så.

BrimbaMedlem sedan dec. 19995 874 inlägg

10 okt. 2001 14:06#4

prova med mellanslag eller ,-tecken.
Det brukar fungera.

Något av dessa bör fungera

msg.AddRecipient "blabla@humor.com", "blabla1@humor.com"

msg.AddRecipient "blabla@humor.com, blabla1@humor.com"

sundogMedlem sedan aug. 200189 inlägg

10 okt. 2001 14:38#5

Nope...funkar inte. Kanske inte ska gå att göra så *suck* .Jag som hade kommit på en så bra lösning. Får ge upp för dagen...tåg att passa.
Hoppas att jag får en trevlig överraskning imorgon när jag kommer till jobbet, då lösningen ligger här och väntar på mig

ArneMedlem sedan maj 2000267 inlägg

11 okt. 2001 21:06#6

Hämtar från en access databas e-postadresserna

Do until RS.EOF
Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.silent  = True

server.scripttimeout = 900	

message				= Request.Form("message")

msg.Subject			= "nyhetsmail"
msg.From			= "kalle@mail.com"
msg.FromName		= "kalle"
msg.ReplyTo			= "kalle@mail.com"
msg.AddRecipient	RS("epost")

msg.Body = message

If Not msg.Send ("smtp.mail.se") Then
notsend = (notsend + 1)

arr = Split(RS("epost"),", ")
tecken = "\<p\>"
For i = 0 To Ubound(arr)
var = var & arr(i) & tecken
Next

End If

RS.MoveNext
Loop

RS.Close
Set RS = Nothing

Conn.Close
Set Conn = Nothing