---
title: "Mailbroblem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92042-mailbroblem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dahlgren"
published: "2003-12-07T10:45:57.000Z"
updated: "2003-12-07T11:38:04.000Z"
replies: 5
views: 342
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92042-mailbroblem"
---

# Mailbroblem

## #1 — dahlgren, 2003-12-07T10:45Z

```
<%
   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?

Permalänk: https://www.webforum.nu/p/92042

## #2 — @nders, 2003-12-07T10:53Z

> 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?

Permalänk: https://www.webforum.nu/p/1221793

## #3 — dahlgren, 2003-12-07T11:16Z

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)

Permalänk: https://www.webforum.nu/p/1221804

## #4 — @nders, 2003-12-07T11:18Z

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.

Permalänk: https://www.webforum.nu/p/1221807

## #5 — dahlgren, 2003-12-07T11:36Z

Tack det som hände var att det började fungera.

Permalänk: https://www.webforum.nu/p/1221813

## #6 — @nders, 2003-12-07T11:38Z

> **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

Permalänk: https://www.webforum.nu/p/1221815

---

Tråden på webben: https://www.webforum.nu/amne/asp/92042-mailbroblem