Bifoga fil med aspsmartmail

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

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

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

%>

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

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

Ah, jag ser nu.

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

Mvh

Nu gick det lite bättre. Tackar