Returnmail med vedhæftet fil?

Du skal bruge JMailkomponenten. Vil du se et eksempel?

Ja tak, meget gerne. Men jeg har ikke Jmailkomponenten. Er den gratis at installere på serveren, og i så fald hvor kan jeg få den?

Her er JMailkomponenten
http://www.dimac.net/

Eksempel

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress =
JMail.Sender =
JMail.SenderName =
JMail.Subject =
JMail.AddRecipient \"til\"
JMail.AddRecipientCC(\"til\")
JMail.AddCustomAttachment filnavn, filen i html
JMail.Priority = 3

JMail.ISOEncodeHeaders = false
JMail.ContentTransferEncoding = \"8bit\"
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")

JMail.Execute

spørg hvis noget skal være mere detaljeret

OK, lad mig gøre det helt klart, Jeg kan INTET asp, så hvordan selve formen skal ta sig ud kan jeg ikke overskue. Kan du give mig et komplet eksempel er det kanon :o)

<%
if request.querystring(\"test\") then

file=\"<!DOCTYPE HTML PUBLIC \'-//W3C//DTD HTML 4.0 Transitional//EN\'><HTML><HEAD><title></title></head><body><table><tr><td>Test</td></tr></table></body></html>\"

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"emailaccount\"
JMail.Sender = \"afsenderadresse\"
JMail.SenderName = \"Test\"
JMail.Subject = \"test\"
JMail.AddRecipient request.form(\"email\")
JMail.AddCustomAttachment \"test.html\", file
JMail.Priority = 3
JMail.ISOEncodeHeaders = false
JMail.ContentTransferEncoding = \"8bit\"
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
end if
%>
<body>
<form action=\"test2.asp?test=true\" method=\"post\">
<input type=\"text\" name=\"email\"  value=\"<%=request.form(\"email\")%>\"></td>
<input type=\"submit\" value=\"send\">
</form>

OK, nu begynder det at ligne noget, men hvor meget skal jeg rette i det script og skal der sættes nogen mailpræferender op et sted så den ved hvor de mails skal sende hen?

du skal bruge det hele, mailpræferencerne er alt der starter med JMail., der hvor jeg skriver fx. emailaccount, der udfylder du med din mailaccount, osv.

Jeg har rettet det til nu men får denne fejl :

jmail.SMTPMail error \'8000ffff\'

The message was undeliverable. All servers failed to receive the message
Ved du hvad det betyder?

må jeg se koden?

fejlen kan være fordi:
-beskeder er ikke leveret
-mailserveren er ikke sat op til at modtage emails fra webserveren
-mailserveren er ikke gyldigt(navnet), det skal være et fuldt navn eller ipadresse

Det er ingen mailserver på den IIS. Skal der ikke være det, for det lyder jo mærkeligt at der ikke skal være det!

Jeg mener ikke at mailserver og IIS køre på den samme maskine, men jeg er ikke ekspert!
Har du ikke en systemadministrator du kan spørge, eller en udbyder. Om hvilken mailserver du har?

OK, nu kører maildelen. Men jeg har problemer med det vedhæftede doc. Eneten er det helt tomt eller også står der \"FALSE\" inden i det ?!!? Hvad sker der??

har du skrevet det som jeg har, for det har jeg testet, og det virker.

må jeg se kode.

Jeg har lavet lidt om på det. Jeg har lavet en seperat send.asp fil som jeg kalder fra min form, istedet for at have det hele i samme fil. Men det skulle jo give det samme. Her er koden til min send.asp :
<%
Dim strEmail
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

  strEmail = Trim(Request.Form(\"email\"))
   
  JMail.ServerAddress = \"mailhub.registeredhost.com\"
  JMail.sender = \"mr.is@of.kk.dk\"
  JMail.subject = \"Automatisk mail\"
  JMail.AddRecipient strEmail
  JMail.AddCustomAttachment \"test.doc\", file
  JMail.Priority = 3
    JMail.ISOEncodeHeaders = false
    JMail.ContentTransferEncoding = \"8bit\"
    JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
 
  JMail.Body = \"Mail fra KOR2 \" & VbCrLf
   
  JMail.Execute
    %>

Som sagt kommer mailen godt nok frem. Men mit test.doc er helt tomt!!

JMail.AddCustomAttachment \"test.doc\", server.MapPath(\".\" ) & \"\\test.doc\"

prøv at skriv stien til dokumentet

Skal det være hele den fysiske sti eller www.eksempel.dk/test.doc ???

Det næmmeste er at ligge dokumentet i samme mappe som alle siderne, det har jeg gjort i mit eksempel. Men du kan opså ligge i en undermappe.
server.MapPath(\".\" ) & \"\\Doc\\test.doc\"

Hmmm, nu komemr der til at stå den fysiske sti inde i dokumentet. Den opretter altså et nyt! Det er da noget mystisk!

Jeg har nu prøvet præcis som du har beskrevet det øverts, med at attche et test.html-doc. Men det giver samme resultat. Et blankt doc. ØV!

hvad mener du med test.thml-doc, Hvis det er et test.html, så er det det første jeg viste, hvor du bruger variablen file, og oven over laver dit htmldokument.
ellers er det test.doc, hvor du bruger en sti til dit dokument, der ligge samme sted som de andre aspfiler. Eller så vil jeg gerne se koden omkring html/doc.

Jeg prøvede at oprette et html-dokument for at se om det hjalp på sitiationen, eftersom det var det du havde skrevet til at starte med :\"JMail.AddCustomAttachment filnavn, filen i html\". SÅ det var det jeg mente med det. Men det ultimative er stadig at få vedhæftet et Word-doc.

ok, glem det med htmlfilen.
Har du lagt dit worddokument ned i samme mappe som dine aspsider og kaldt det test.doc, Så brug:
JMail.AddCustomAttachment \"test.doc\", server.MapPath(\".\" ) & \"\\test.doc\"

Det første er navnet på attachment og det andet er selvedokumentet.

forresten grunden til den fysiske sti i dokumentet, er at den ikke kan finde dokumentet.

Hmm, det kan den så åbenbart stadig ikke!! Jeg får samme resultat : En sti til dokumentet!
Kan der være noget med opsætning af selve Jmail-komponenten eller noget i den stil?

jeg er ret sikker på at der er stien til dokumentet at den er gal med. må jeg se kode.
Da jeg lavede mit eksempel fik jeg samme felj, indtil jeg fandt den rigtigt mappe med dokumentet i.

Alle filer ligger præcis samme sted på serveren. Ikke noget med under mapper eller noget. Helt simpelt. Her er koden :
<%
Dim strEmail
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

  strEmail = Trim(Request.Form(\"email\"))
   
  JMail.ServerAddress = \"mailgate.kk.dk\"
  \'\"mailhub.registeredhost.com\"
  JMail.sender = \"mr.is@of.kk.dk\"
  JMail.subject = \"Automatisk mail\"
  JMail.AddRecipient strEmail
  JMail.AddCustomAttachment \"test.doc\", server.MapPath(\".\" ) & \"\\test.doc\"
  JMail.Priority = 3
    JMail.ISOEncodeHeaders = false
    JMail.ContentTransferEncoding = \"8bit\"
    JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
 
  JMail.Body = \"Mail fra KOR2 \" & VbCrLf
   
  JMail.Execute
    %>

JMail.AddAttachment server.MapPath(\".\" ) & \"\\test.doc\"

Prøv dette istedet for

Jamen, man tror jo ikke sine egne øjne! Nu kører det bare derud af.
Tusind tak for din store og ihærdige hjælp ;o)

Michael.