Avatar billede natsprinter Nybegynder
26. april 2004 - 09:34 Der er 1 kommentar og
1 løsning

Hvordan sender jeg mail til mange ved hjælp af JMAIL

Jeg har opsat JMAIL så jeg kan sende mail til én person via JAMIL, men når jeg så vil sende til flere personer så går der kage i det. Fra min form får jeg f.eks følgende streng når jeg vælger dem på en liste i min select-box.

1:  liste = 'jann@guldhammer.dk,per@devito.dk,lis@hansen.dk'

Den laver jeg et split på, for at få navnene ind i et array:

2:  sendTil = split(liste,",")

I min jmail programmering laver jeg så en løkke, som skulle udskrive dette array:

3:  set msg = Server.CreateOBject( "JMail.Message" )& vbCrLf
4:  msg.Logging = true
5:  msg.From = "annette@lhg-group.dk"
6:  msg.FromName = "LHG-GROUP"

7:  for i = 0 to ubound
8:  response.write "msg.AddRecipient"& sendTil(i)
9:  next

10: msg.Subject = overskrift
11: msg.Body = teksten & vbCrLf
12: msg.Send("mail.lhg-group.dk")

Hvis jeg i linie sletter linie 7 og 9, og blot i linie 8 skriver

8:  msg.AddRecipient "jann@guldhammer.dk"

Så er der ingen problemer. Har du nogen erfaring med JMAIL, så vil jeg meget gerne ha' en hjælpen de hånd ;-)
Avatar billede natsprinter Nybegynder
26. april 2004 - 09:38 #1
Lige en lille fejltastning i spørgsmålet, linie 3 og 8 skal være:

3:  set msg = Server.CreateOBject( "JMail.Message" )

8:  response.write "msg.AddRecipient"& sendTil(i)& vbCrLf
Avatar billede natsprinter Nybegynder
26. april 2004 - 09:48 #2
Hold da op - har lige selv løst problemet :-)))))

1:  ' Sæt samtlige valgte mailadresser i én variabel
2:  sendTil = request.form("mailSamling")
3:  sendTil = split(sendTil,",")
4:  teksten = request.form("besked")
5:  overskrift = request.form("overskrift")
   

6:  ' SEND MAIL TIL alle modtagere på listen
7:  set msg = Server.CreateOBject( "JMail.Message" )
8:  msg.Logging = true
9:  msg.From = "annette@lhg-group.dk"
10: msg.FromName = "LHG-GROUP"

11: for i = 0 to ubound(sendTil)
12: msg.AddRecipient  sendTil(i)
13: next

14: msg.Subject = overskrift
15: msg.Body = teksten & vbCrLf
16: msg.Send("mail.lhg-group.dk")

17: response.redirect("forsiden.asp")
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester