Jeg har prøvet at sætte min egen adresse ind 80 gange, og får 80 emails tilsendt. Det har den åbenbart ingen problemer med.
Men når den skal sende til forskellige adresser opstår fejlen.
Men det er jo lidt svært at tjekke om den dender mails ud. Folk bliver nok lidt trætte af det hvis de bliver ved med at få tilsendt test mails.
Jeg uploader først og sender mails ud bagefter.
Her er mit dokument:
<%
Dim mySmartUpload
Dim intCount
Dim file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set Image = Server.CreateObject("AspImage.Image")
call openDBAdmin
call sendMails
call closeDB
call reply("Nyhedsbrevet er udsendt til disse adresser")
function sendMails
Dim mailbody1, mailbody2, mailbody3, mailbody, msg, msgServerAddress
mySmartUpload.Upload
intCount = mySmartUpload.Save("../upload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.Mappath("../upload"))
Set objFiles = objFolder.Files
For Each File in objFiles
strSQL = "INSERT INTO tbl_billed_Id (billed_Id) VALUES ('q')"
set RS = objConn.execute(strSQL)
strSQL = "SELECT @@IDENTITY as newID"
set RS = objConn.execute(strSQL)
Dim id
id = RS("newID")
Image.LoadImage(File.path)
If (image.MaxX > 320) then
resizeX(320)
end if
Image.FileName = server.mappath("../upload/news") & "/" & id & ".jpg"
Image.SaveImage
File.delete
strSQL = "DELETE * FROM tbl_billed_Id WHERE Id = " & id
set RS = objConn.execute(strSQL)
Next
strSQL = "SELECT * FROM tbl_emails ORDER BY adresse"
set RS = objConn.execute(strSQL)
mailbody1 = "<html><head><title>Moderndrums</title><style>A:LINK{font-family: Arial, Helvetica, sans-serif; font-size: 8pt; color: #9D0000; font-weight:normal; text-decoration:none;}A:VISITED{font-family: Arial, Helvetica, sans-serif; font-size: 8pt; color: #9D0000; font-weight:normal; text-decoration:none;}A:HOVER{font-family: Arial, Helvetica, sans-serif; font-size: 8pt; color:#000000; font-weight:normal; text-decoration: underline + overline;}TD{font-family: Arial, Helvetica, sans-serif; font-size: 8pt; color: Black;}.head1{font-family: Arial, Helvetica, sans-serif; font-size: 10pt; color: Black; font-weight:bold;}.adresse{font-family: Arial, Helvetica, sans-serif;font-size: 7pt;color: Black;}</style></head><body leftmargin=""0"" rightmargin=""0"" bottommargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0""><table height=""100%"" width=""800"" cellpadding=""0"" cellspacing=""0"" border=""0""><tr><td width=""50"" rowspan=""5"" background=""
http://www.moderndrums.dk/img/bg.gif""> </td><td rowspan=""5"" background=""
http://www.moderndrums.dk/img/black.gif"" width=""1""><img src=""
http://www.moderndrums.dk/img/black.gif""></td><td width=""700"" height=""1"" background=""
http://www.moderndrums.dk/img/black.gif""><img src=""
http://www.moderndrums.dk/img/black.gif"" height=""1""></td><td rowspan=""5"" background=""
http://www.moderndrums.dk/img/black.gif"" width=""1""><img src=""
http://www.moderndrums.dk/img/black.gif""></td><td width=""50"" rowspan=""5"" background=""
http://www.moderndrums.dk/img/bg.gif""> </td></tr><tr><td width=""700"" valign=""top"" height=""70""><img src=""
http://www.moderndrums.dk/img/md-banner.gif""></td></tr><tr><td width=""700"" valign=""top"" height=""1"" background=""
http://www.moderndrums.dk/img/black.gif""><img src=""
http://www.moderndrums.dk/img/black.gif"" height=""1""></td></tr><tr><td valign=""top""><table width=""700"" cellpadding=""5"" cellspacing=""0"" border=""0""height=""100%""><tr><td valign=""top""><span class=""head1"">Modern drums nyhedsbrev</span><br>"
mailbody2 = "</td><td valign=""top"" align=""right""><img src=""
http://www.moderndrums.dk/upload/news/" & id & ".jpg"" border=""1""></td></tr><tr><td colspan=""2"" valign=""bottom"">Venlig hilsen<br>Modern drums<br>Frejasvej 23<br>8230 Åbyhøj<br>Tlf. 8768 0166<br><a href=""
http://www.moderndrums.dk"" target=""_blank"">
www.moderndrums.dk</a><br><a href=""mailto:mail@moderndrums.dk"">mail@moderndrums.dk</a><br><span class=""adresse"">_____________________________________</span><br><span class=""adresse"">Du modtager denne e-mail fordi din mail-adresse er blevet tilmeldt nyhedsbrevet på
www.moderndrums.dk</span><br><span class=""adresse"">Hvis du ikke ønsker at modtage flere nyhedsbreve bedes du klikke på det nedenstående link:</span><br><a href=""
http://www.moderndrums.dk/newsletter/afmeld_newsletter.asp?id="mailbody3 = """>Afmeld nyhedsbrev</a></td></tr></table></td></tr><tr><td width=""700"" valign=""bottom"" height=""1"" background=""
http://www.moderndrums.dk/img/black.gif""><img src=""
http://www.moderndrums.dk/img/black.gif"" height=""1""></td></tr></table></body></html>"
Do while Not RS.EOF
mailbody = mailbody1 & ParseBR(mySmartUpload.form("frmText")) & VbCrLf
mailbody = mailbody & mailbody2 & RS("id")
mailbody = mailbody & mailbody3
Set msg = Server.CreateOBject("JMail.SMTPMail")
msg.ContentType = "text/html"
msg.Sender = "mail@moderndrums.dk"
msg.SenderName = "Modern drums"
msg.Charset = "iso-8859-1"
msg.AddRecipient RS("adresse")
msg.Subject = mySmartUpload.form("frmSubject")
msg.Body = mailBody
msg.ServerAddress = "mail.moderndrums.dk"
msg.Execute()
Set msg = nothing
response.write(RS("adresse") & "<br>")
RS.movenext
loop
end function
'--------------------------------------------------------------------------------------------
Sub ResizeX (intXSize)
Dim intYSize
intYSize = (intXSize / Image.MaxX) * Image.MaxY
Image.ResizeR intXSize, intYSize
end sub
'--------------------------------------------------------------------------------------------
Sub ResizeY (intYSize)
Dim intXSize
intXSize = (intYSize / Image.MaxY) * Image.MaxX
Image.ResizeR intXSize, intYSize
end sub
Set objFiles = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
Det er det jeg gør, her er mit dokument