Jmail : tilføj flere modtager navne på mail sender..

du kan ex. adskille den med ; som i alm. mailprogram?

Min fejl... læste det som noget andet :D

du kan benytte denne kode som løbere alle mailadresserne som er skrevet i koden igennem:

emails = "mail1@adresse.dk, mail2@adresse.dk, mail3@adresse.dk"
arrEmail = Split(emails,",")
   
For i = LBound(arrEmail) to UBound(arrEmail)
  JMail.AddRecipient arrEmail(i)
Next

weis > nej desværre :-\ har også prøve med ,

og jeg har endnu en gang været for hurtig, i den kode jeg gav skal:

JMail.AddRecipient arrEmail(i)

Lige ændres til:

JMail.AddRecipientBCC arrEmail(i)

Så det bliver i BBC feltet ;)

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
 
  JMail.ServerAddress = "smtp.unoeuro.com"
  JMail.sender = "Street-crew.dk"
  JMail.subject = "Besked fra Street-crew.dk"
  JMail.AddRecipient "kontakt@media4.dk"
  JMail.AddRecipientCC ""
  JMail.AddRecipientBCC "web@media4.dk;izemate@hotmail.com"

  'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"
  JMail.Body = "Der er kommet ny besked i street-crew forummet! " & VbCrLf
  JMail.Body = JMail.Body & strCv
      JMail.Body = JMail.Body & strCv
 
  'Her bliver form-mailens prioritet bestemt
  ' 1 - højeste (Haster / Vigtigt)
  ' 3 - normal
  ' 5 - lavest
  JMail.Priority = 1

  JMail.Execute
 
%>


Her er hele den kode jeg benytter.. kan du ikke flette din kode ind i det?

Uden at have testet det vil jeg skrive det som:

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
 
  Set JMail= Server.CreateObject("JMail.SMTPMail")
  JMail.Priority = 1
  JMail.ServerAddress = "smtp.unoeuro.com"
  JMail.Sender        = "Street-crew.dk"
  JMail.Subject      = "Besked fra Street-crew.dk"
  JMail.AddRecipient "kontakt@media4.dk"
 
  ' Her tilføjere du alle dine mailadresser adskilt med , og et mellemrum
  emails = "mail1@adresse.dk, mail2@adresse.dk, mail3@adresse.dk"
    arrEmail = Split(emails,",")
   
    For i = LBound(arrEmail) to UBound(arrEmail)
      JMail.AddRecipientBCC arrEmail(i)
    Next
 
  JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  BodyText = "Der er kommet ny besked i street-crew forummet! " & VbCrLf
  BodyText = BodyText & strCv
  BodyText = BodyText & strCv
  JMail.Body = BodyText
  JMail.Silent = true
  JMail.Execute
  Set JMail = Nothing   
%>

Kom til at skrive Set JMail= Server.CreateObject("JMail.SMTPMail") to gange, så slet det sidste...!

tjah
Den melder ikke fejl men sender tilgængeld ingenting? hvad tror du der kan være galt?

er scriptet lavet så den sender mail når der klikkes på en knap eller er det bare noget der løbes igennem når man besøger en side?

ja den sender det når poster et indlæg i forummet!.. men jeg har testet det hvor der bare var 1 modtager og der virkede det fint.. jeg mangler bare at kunne tilføje flere modtager :\

Prøv at bruge dette kun:

<%
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.Priority = 1

JMail.ServerAddress = "smtp.unoeuro.com"
JMail.Sender        = "mailadresse@adresse.dk"
JMail.SenderName    = "Street-crew.dk"
JMail.Subject      = "Besked fra Street-crew.dk"
JMail.AddRecipient "kontakt@media4.dk"

emails = "adresse1@mail.dk, adresse2@mail.dk, adresse3@mail.dk"
arrEmail = Split(emails,",")

For i = LBound(arrEmail) to UBound(arrEmail)
JMail.AddRecipientBCC arrEmail(i)
Next   
                   
JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
BodyText = "Der er kommet ny besked i street-crew forummet! " & VbCrLf
JMail.Body = BodyText
JMail.Silent = true
JMail.Execute
Set JMail = Nothing 
%>

Bemærk at hvis det er den sammen mailadresse du prøver at sende til, kan det være den kun sender en mail i alt!

Men hvis Arrayen ikke virker så må man tage det "lange slæb" man kan også hvor hver mailadresse skrive en Add...Bcc så det kommer til at se sådan her ud:

JMail.AddRecipientBcc "mail1@mail.dk"
JMail.AddRecipientBcc "mail2@mail.dk"
JMail.AddRecipientBcc "mail3@mail.dk"
JMail.AddRecipientBcc "mail4@mail.dk"

... osv til alle mailadresserne er det

weis > jeg fandt endelig et gammelt script som kører over database.. det er lidt svært fordi alle mine www ting er slettet efter jeg har haft besøg af en hacker (under arla muhammed tegningerne) men nu virker det ihvertfald med det nye!

Ligger du ikke lige et svar så du kan få point for en kæmpe insats!

De får da et svar :)