Kan ngn se varför det blir fel?? Jojox kanske kan??

5 svar · 346 visningar · startad av wb100angela 7 juni 2001

wb100angelaMedlem sedan jan. 200116 inlägg

Frågan7 juni 2001 13:55#1

Den stannar på raden from och to men skickar mailet men plockar inte mer än den första i databasen och det går inte skicka bilden.??

<%
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open DRIVERN skriver jag ej ut

Sql="Select \* From epost;"
Set rs = conn.Execute(sql)

Do Until rs.EOF
	till = rs("epost")
	
'en variabel, sida, som tilldelas innehållet i en hel HTML-sida
sida = "\<HTML\>\<HEAD\>\<TITLE\>Street Bourbon News\</TITLE\>\</HEAD\>\<BODY BGCOLOR=black\>"
sida = sida & "\<FONT FACE=verdana,arial COLOR=#ffffff\>Hej\</FONT\>\<br\>"
sida = sida & "\<img src=bild.jpg\>"
sida = sida & "\</BODY\>\</HTML\>"

ObjMail.from = "Mailen"
ObjMail.to = till
ObjMail.subject = "Ett brev från SBB"

'två rader som genererar innehållet till HTML
ObjMail.MailFormat = cdoMailFormatMIME
ObjMail.BodyFormat = cdoBodyFormatHTML
ObjMail.Body = sida
ObjMail.Send

rs.MoveNext
loop

Set ObjMail = Nothing
Conn.Close
Set conn = Nothing

------------------
Webbutvecklare

CoolDudeMedlem sedan aug. 2000304 inlägg

7 juni 2001 14:12#2

Har du provat att converterat bilden till en variabel???

Sen vet jag inte hur det e med CDONTS men Jmail tycker inte om att man kör andra databas annrop innuti dess egen "prossess"...

Prova att flytta RS loopen utanför mail komponenten.

Typ:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open DRIVERN skriver jag ej ut

Sql="Select * From epost;"
Set rs = conn.Execute(sql)

[b]Set ObjMail = Server.CreateObject("CDONTS.NewMail")[/b]

Do Until rs.EOF
till = rs("epost")
bild = bild.jpg

'en variabel, sida, som tilldelas innehållet i en hel HTML-sida
sida = "<HTML><HEAD><TITLE>Street Bourbon News</TITLE></HEAD><BODY BGCOLOR=black>" & VbCrLf
sida = sida & "<FONT FACE=verdana,arial COLOR=#ffffff>Hej</FONT><br>" & VbCrLf
sida = sida & "<img src=bild>" & VbCrLf
sida = sida & "</BODY></HTML>"

ObjMail.from = "Mailen"
ObjMail.to = till
ObjMail.subject = "Ett brev från SBB"

'två rader som genererar innehållet till HTML
ObjMail.MailFormat = cdoMailFormatMIME
ObjMail.BodyFormat = cdoBodyFormatHTML
ObjMail.Body = sida
ObjMail.Send

rs.MoveNext
loop

Set ObjMail = Nothing
Conn.Close
Set conn = Nothing
%>

------------------
/CoolDude

PatrikBMedlem sedan mars 20002 836 inlägg

7 juni 2001 14:38#3

e ingen expert på CDONTS men kan det inte vara så att objMail.From = ... inte innehåller en mailadress från den "lokala mailservern"? utan en mailadress från ngn annanstans.

Då kan mailservern protestera eftersom den inte vill relaya en annan servers mailadresser, det är en inställning man gör för att försvåra att mailservern används för spamming och BÖR vara standard för säkerhetens skull :o

cya,
PatrikB

------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*

icaaqMedlem sedan okt. 20005 273 inlägg

7 juni 2001 19:29#4

om du vill inkludera bilder testa det här:

with ObjMail
   
   .ContentBase = "http://www.dinsite.com/"
   .Contentlocation = "bildkatalog/"

------------------
ibland tror jag att jag kan lite för lite än vad jag kan ....

wb100angelaMedlem sedan jan. 200116 inlägg

8 juni 2001 07:46#5

Tack det funkade Icaaq med bilderna!

Nu är det bara att hämta från databas helst SQL 7 som är kvar jag vill hämta 4000 mail / gång och skicka med olika intervall???

------------------
Webbutvecklare

PatrikBMedlem sedan mars 20002 836 inlägg

8 juni 2001 11:08#6

Nu är det bara att hämta från databas helst SQL 7 som är kvar jag vill hämta 4000 mail / gång

Då e det inte så lämligt att köra med CDONTS eller ngn annan komponent.
Ska du ha SQL 7 så fixa detta med SQL Mail istället.

Att använda en mailkomponent är inte att rekommender vid stora volymer, vill säga att gränsen går vid ett par hundra mail.

cya,
PatrikB

------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*