5 svar · 324 visningar · startad av dahlgren
<%
Dim mySmartUpload
Dim sendername,subject,body, fil, file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
MySmartUpload.Save("E:\\bilaga")
sendername=mySmartUpload.Form("sendername")
subject=mySmartUpload.Form("subject")
body=mySmartUpload.Form("body")
skolan=mySmartUpload.Form("skola")
For each file In mySmartUpload.Files
fil=file.FileName
Next
On error resume next
Server.ScriptTimeOut = 180
Dim strSQL
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
' Mail Server
' ***********
mySmartMail.Server = "****"
' From
' ****
mySmartMail.SenderName = SenderName
mySmartMail.SenderAddress = "*******"
' Message
' *******
mySmartMail.Subject = Subject
mySmartMail.Body = Body
if not fil="" then
mySmartMail.Attachments.Add Server.MapPath("\bilaga\"&fil&""),, false
end if
'sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\*******"
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open sConn
if Err.Number <> 0 then
Response.Write "Can't connect to the DataBase, Please check value of Data Source in the HTML form."
end if
' Create the RecordSet
' ********************
strSQL = "SELECT MAIL FROM mail where skola=" & skolan
Set Rs = Server.CreateObject("ADODB.recordset")
Set Rs.ActiveConnection = Conn
Rs.Source = strSQL
Rs.Open
Do while not Rs.EOF
' To
' **
if Rs("NAMN")<>"" Then
mySmartMail.Recipients.Add Rs("MAIL")
else
mySmartMail.Recipients.Add Rs("MAIL")
end if
' Send the message
' ****************
mySmartMail.SendMail
if err.number <> 0 then
response.write("<br>Error n°: " & err.number - vbobjecterror & "=" & err.description & "<br>")
else
Response.Write "<br>aspSmartMail has sent your message to " & mySmartMail.Recipients.Item(1).Address
end if
mySmartMail.Recipients.Clear
Rs.MoveNext
Loop
' Destruction
' ***********
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "****\bilaga\"&fil&"", False
Set objFSO = Nothing
response.redirect "../default.asp?kat=nyhetsbrev&sida=skriv.asp&status=ok"
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
set mySmartMail = nothing
%>
När jag kör koden så tuggar den jättelänge och sen så skriver den att det inte finns några mottagare. I databasen ligger adresserna i tabellen mail och fältet mail. finns även ett fält som heter skola som kan vara samma bakom många mailadresser. Vad har jag gjort för fel?
När jag kör koden så tuggar den jättelänge och sen så skriver den att det inte finns några mottagare.
Var menar du att det meddelandet kommer ifrån? Visa gärna i koden.
Har du testat att hårdkoda mailadress, eller testa med en SQL-fråga som bara returnerar en mailadress?
Felmedelandet kommer från. Mailkomponenten och pekar inte på någon rad.
Ser ut så här:
SELECT * FROM mail where skola=Samskolan
Error n°: 80=There is no Recipient. (verify the address list)
Okej, om det är skolans namn du skickar med i SQL-frågan så är den felaktig. Du skall ha apostrofer runt.
strSQL = "SELECT MAIL FROM mail where skola='" & skolan & "'"
Börja där, så får vi se vad som händer härnäst.
Tack det som hände var att det började fungera.
dahlgren skrev:
Tack det som hände var att det började fungera.
Häftigt. ;)
Var försiktig med hur du använder on error resume next, då det blir extremt svårt att felsöka när man inte får några felmeddelanden.
Mvh