ASPemail og AddAttachment

Jeg tror du er nød til at upload filen til serveren og så sende den med..

Ved du hvordan den kode ser ud for jeg prøvet dem men det vil ikke lykkes.

Set Upload = Server.CreateObject("Persits.Upload")
'Gemmer filen i c:\upload folderen, det skal så rette til en folde du har
'rettigheder til at gemme filer i.
Upload.Save "c:\upload"

conn.execute("INSERT INTO smaop SET overskrift= '"& Upload.Form("titel") &"', beskriv= '"& Upload.Form("beskriv") &"', tilnavn= '"& Upload.Form("regnavn") &"', tilemail= '"& Upload.Form("regemail") &"', matri= '"& Upload.Form("matfor") &"', kat= '"& Upload.Form("kat") &"', sogord= '"& Upload.Form("sog") &"'")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.mail.dk"
Mail.From = "test@mail.dk"
Mail.FromName = "Test"
Mail.AddAddress "test@mail.dk", "Test"

For Each File in Upload.Files
  Mail.AddAttachment File.Path

  'Måske skal det være sådan hvis filnavnet ikke er med i Path
  'Mail.AddAttachment File.Path & "\" & File.Name
Next
Mail.Subject = "Billede"
Mail.Body = "Her er et billde"

On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write "<h2>Fejl</h2>"
  Response.Write "Error encountered: " & Err.Description
else
  Response.Write "<h2>Tak for det</h2>"
End If

Lige et sidste spørgsmål ved du hvordan man får den til at slette filen på serveren igen når den er sendt.

du kan skrive:  File.Delete

Det skal nok være efter Mail.Send:

Mail.Send
File.Delete

Lige et mere jeg vil gøre så den kun sendt en mail når der var en fil jeg har prøvet med denne if sætning 'if not Upload.Form("file1") = "" then' men så sender den heller ikke en mail når der er en fil med.

Jeg indsat sætning lige over ’Set Mail = Server.CreateObject("Persits.MailSender")’

Jeg fat dette eks hos dem som har lavet ASPUpload og emal kompunent:


<!-- This example uses the Persits Software AspEmail component
to send SMTP email with an optional file attachment.-->

<HTML>
<BODY BGCOLOR="#FFFFFF">

<%
    ' Capture an uploaded file
    Set Upload = Server.CreateObject("Persits.Upload")
    Upload.IgnoreNoPost = True ' suppress "Nothing has been posted" error
    Count = Upload.Save("c:\upload")

    ' Send mail
    If Upload.Form("Send") <> "" Then
        Set Mail = Server.CreateObject("Persits.MailSender")
        Mail.Host = "mail.atlantech.net" ' replace that with your own host
        Mail.From = Upload.Form("From")
        Mail.AddAddress Upload.Form("To")
        Mail.Subject = Upload.Form("Subject")
        Mail.Body = Upload.Form("Body")

        If Count > 0 Then Mail.AddAttachment Upload.Files(1).Path
       
        On Error Resume Next
        Mail.Send
        If Err <> 0 Then
            Response.Write "Error occurred when trying to send mail: <B>" & Err.Description & "</B>"
        Else
            Response.Write "Success! Message was sent."
        End If
    End If
%>

<h2>Sending Mail with an Attachment using AspEmail</h2>

    <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="SendMailWithAttachment.asp">
    <TABLE>
        <TR><TD>Mail From (enter address): </TD><TD><INPUT TYPE="TEXT" NAME="From"></TD></TR>
        <TR><TD>Mail To (enter address): </TD><TD><INPUT TYPE="TEXT" NAME="To"></TD></TR>
        <TR><TD>Subject: </TD><TD><INPUT TYPE="TEXT" NAME="Subject"></TD></TR>
        <TR><TD>Body: </TD><TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR>
        <TR><TD>Attachment:</TD><TD><INPUT TYPE=FILE NAME="ATTACHMENT"></TD></TR>
        <TR><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE="Send Mail"></TD></TR>
    </TABLE>
    <INPUT TYPE=HIDDEN NAME="Send" VALUE="Send">
    </FORM>

</BODY>
</HTML>

Du kan ændre:

Upload.Save("c:\upload")

Til:
Count = Upload.Save("c:\upload")

og så tjekke på om Count > 0 i if'en:

if Count > 0 then

Når jeg har gjort det kommer denne fejl når jeg vedhæfter en fil, så det er en fejl under afsendelsen af mailen.

Error encountered: Object required

Prøv at ændre File.Delete til:

Upload.Files(1).Delete

Så takker jeg mange gang nu virker det som det skal

vil du ikke lige komme med et svar så jeg kan godkende

Ja det vil da :)