---
title: "Bifoga fil med aspsmartmail"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/86543-bifoga-fil-med-aspsmartmail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dahlgren"
published: "2003-09-21T10:03:13.000Z"
updated: "2003-09-21T14:34:02.000Z"
replies: 7
views: 409
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/86543-bifoga-fil-med-aspsmartmail"
---

# Bifoga fil med aspsmartmail

## #1 — dahlgren, 2003-09-21T10:03Z

Jag använder följande kod för att skicka ut ett nyhetsbrev med aspsmartmail, så långt fungerar allt. Nu vill jag lägga till en funktion så att det går att bifoga en fil. Har kikat i dokumentationen utan framgång. Hur ska jag gå till väga? Vilken fil väljs på samma sida som skriver brevet på. Filen ligger inte på servern utan på datorn som det skicaks från. Måste man använda sig av en upload komponent då?  

```
<%

	On error resume next
	Server.ScriptTimeOut = 180

	Dim strSQL
	Dim mySmartMail
	Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

'	Mail Server
'	***********
	mySmartMail.Server = "****"

'	From
'	****
	mySmartMail.SenderName = Request.form("SenderName")
	mySmartMail.SenderAddress = "noreplay@"

'	Message
'	*******
	mySmartMail.Subject = Request.form("Subject")
	mySmartMail.Body = Request.form("Body")

'sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  
'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 EMAIL, NAMN "
		strSQL = strSQL & "FROM MEDLEMMAR"
	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("EMAIL"), Rs("NAMN")
		else
			mySmartMail.Recipients.Add Rs("EMAIL")
		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
'	***********
response.redirect "../default.asp?kat=nyhetsbrev&sida=skriv.asp&status=ok"
Rs.Close
Conn.Close
	Set Rs = Nothing 
	Set Conn = Nothing 
	set mySmartMail = nothing

%>
```

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

## #2 — @nders, 2003-09-21T10:05Z

> Måste man använda sig av en upload komponent då?

Jepp. Ta emot filen med uploadkomponenten, spara den på serverns disk, använd mailkomponentens funktion för att attacha filer. Det borde inte vara några större problem.

**r:** om inte aspSmartMail har någon uppladdningsfunktion, men det har jag svårt att tänka mig, eftersom det finns en egen aspSmart-uppladdningskomponent.

Mvh

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

## #3 — dahlgren, 2003-09-21T10:09Z

Ok, då blir det ju lite krångligare men det ska nog gå att pula ihop. Tack för det snabba svaret.

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

## #4 — dahlgren, 2003-09-21T14:11Z

Har nu börjat pilla lite med uploadkomponenten, tyvärr fungerar det inte som jag vill. Mailen går iväg, fast helt tomt. Går inte att skriva ut det som kommer med formuläret på föregående sida. Nån som har någon idé?

```
<!--#include file="../koppla.asp" -->
<!--#include file="../user.asp" -->
<%
   Dim mySmartUpload
   Dim sendername,subject,body, fil, file
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  sendername=mySmartUpload.Form("sendername")
subject=mySmartUpload.Form("subject")
body=mySmartUpload.Form("body")     
For each file In mySmartUpload.Files 
fil=file.FileName  
 Next 
mySmartUpload.Upload
MySmartUpload.Save("\bilaga")

	On error resume next
	Server.ScriptTimeOut = 180

	Dim strSQL
	Dim mySmartMail
	Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

'	Mail Server
'	***********
	mySmartMail.Server = "mail.aleborg.com"

'	From
'	****
	mySmartMail.SenderName = SenderName
	mySmartMail.SenderAddress = "info90"

'	Message
'	*******
	mySmartMail.Subject = Subject
	mySmartMail.Body = Body
	mySmartMail.Attachments.Add Server.MapPath("\bilaga\fil"),, false 'Vad ska man skriva här?

'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 EMAIL, NAMN "
		strSQL = strSQL & "FROM MEDLEMMAR"
	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("EMAIL"), Rs("NAMN")
		else
			mySmartMail.Recipients.Add Rs("EMAIL")
		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
'	***********
response.redirect "../default.asp?kat=nyhetsbrev&sida=skriv.asp&status=ok"
Rs.Close
Conn.Close
	Set Rs = Nothing 
	Set Conn = Nothing 
	set mySmartMail = nothing

%>
```

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

## #5 — @nders, 2003-09-21T14:13Z

> **dahlgren skrev:**
>
> Mailen går iväg, fast helt tomt. Går inte att skriva ut det som kommer med formuläret på föregående sida.

Och du använder inte Request.Form någonstans, utan bara uploadkomponentens egen .form-metod?

Mvh

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

## #6 — dahlgren, 2003-09-21T14:15Z

Endast de som hör till kompnonten. De är de som jag inte lyckas skriva ut någonting från.

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

## #7 — @nders, 2003-09-21T14:16Z

Ah, jag ser nu.

Du måste köra metoden .Upload först, sedan kan du komma åt fältinnehållen med .Form.

Mvh

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

## #8 — dahlgren, 2003-09-21T14:34Z

Nu gick det lite bättre. Tackar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/86543-bifoga-fil-med-aspsmartmail