Hej,
Jag har ett medlemsregister i en Access-bas, där en av kolumnerna heter "VILLHAMAIL", som kan vara true eller false.
Alla som valt detta(satt true) skall få ett mail, som ett nyhetsbrev.

Problemet är att inga mail skickas....

Här är koden:(alla varibler kommer ifrån ett formulär utan "sender"

<code>

Set connect = Server.CreateObject("ADODB.connection")
connect.open("kyrkangen")

'Skicka email till de som valt detta.
sql = "select * from MEDLEMMAR where VILLHAMAIL = true;"
set rs = connect.Execute(sql)

if not rs.EOF then
sender = "´Joachim Feldt"

do until rs.EOF
Set JMail = Server.CreateObject ("JMail.SMTPMail")

JMail.ServerAddress = "www.huthut.nu"
JMail.Sender = sender
JMail.Subject = "Nytt anslag på löpsedeln!"
JMail.AddRecipient rs("EPOST")
JMail.Body = "Hej," & vbCrlf & "Du har valt att få ett email varje gång löpsedeln uppdaterats." & vbCrlf & "Det har kommit ett nytt nu med rubriken """ & titel & """." & vbCrlf & "För att se det gå till hemsidan"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.Execute

rs.MoveNext
Loop

JMail.close
Set JMail = Nothing
end if

connect.close
Set connect = Nothing
Set rs = Nothing

</code>

Kan någon se vad felet är? Jag använder alltså JMail(Dimac´s)

Jocke

tja.. alla kan vi ju sy ihop egna lösningar, men jag tyckte några saker fattades.. så här ser bl.a. min kod ut

sub SendMail(sTo, sSubject, sBody)

sMailServer = "smtp.mail.com"
sMailSender = "mail@mail.com"
sMailSenderName = "Avsändarnam"

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = sMailServer
JMail.Sender = sMailSender
JMail.Sendername = sMailSenderName
JMail.Subject = sSubject
JMail.AddRecipient sTo
JMail.Body = sBody
JMail.Execute
end sub
sen kommer själva det som ska skickas..
men såhär snabbt.. så ser det ut som det är SMTP server du inte har.. utan där har du www. adressen.. testa och byt ut den mot SMTP så ska det nog funka

Hej,

Nej, det hjälpte inte att byta till SMTP.

Jag använder samma kod på ett annat ställe fast utan loop. Det skickas alltså bara till en email adress och då funkar det.

Då borde det ju vara loopen som är fel, men om jag skriver ut alla epost adresser som mailet borde skickats till så blir det rätt. Så loopen är korrekt.

Vad kan det vara då tro...?!

Any ideas?

Jocke