ASPmail og Attachment
HejJeg har en kontaktformular som skal sende en mail som kvittering med et vedhæftet word dokument tilbage hvis der er krydset af i checkboxen. Dette kan jeg ikke rigtig få til at virke. Håber i kan hjælpe mig !
Koden er venligst lavet af eagleeye til mig tidligere.
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
navn = Request.Form("navn")
firma = Request.Form("firma")
adresse = Request.Form("adresse")
postnummer = Request.Form("postnummer")
by = Request.Form("by")
telefon = Request.Form("telefon")
mobil = Request.Form("mobil")
email = Request.Form("email")
besked = Request.Form("besked")
modtag = Request.Form("modtag")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Dit navn"
Mailer.FromAddress= "dinemail@site.dk"
Mailer.RemoteHost = "mailhost.localisp.net" 'samme som den du bruger i JMail
' Mailer.AddRecipient skal hvade to paramater og vil man kun bruger email skal det være:
' Mailer.AddRecipient "", "email@site.dk"
Mailer.AddRecipient "Dit navn", "email@site.dk"
Mailer.Subject = "En mail fra siden"
body = "Hej en ny mail " & vbCrLf & vbCrLf
body = body & "Data fra formen:" & vbCrLF
body = body & "Navn : " & navn & vbCrLf
body = body & "Firma : " & firma & vbCrLf
body = body & "Adresse : " & adresse & vbCrLf
body = body & "Postnummer : " & postnummer & vbCrLf
body = body & "By : " & by & vbCrLf
body = body & "Telefon : " & telefon & vbCrLf
body = body & "Mobil : " & mobil & vbCrLf
body = body & "E-mail : " & email & vbCrLf
body = body & "Besked : " & server.HTMLEncode(besked) & vbCrLf
body = body & vbCrLf & "Med venlig hilsen" & vbCrLf
body = body & "Min side"
Mailer.BodyText = body
if Mailer.SendMail then
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
Set Mailer = Nothing
'Tjek om checkboxen er sat og send email
if modtag <> "" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "info@mitfirma.com "
Mailer.FromAddress= "info@mitfirma.com "
Mailer.RemoteHost = "mailhost.localisp.net" 'samme som den du bruger i JMail
' Mailer.AddRecipient skal hvade to paramater og vil man kun bruger email skal det være:
' Mailer.AddRecipient "", "email@site.dk"
Mailer.AddRecipient navn, email
Mailer.Subject = "En mail fra siden"
'Tilføje filen her:
Mailer.AddAttachment Sever.Mappath("dinfil.doc")
body = "Hej" & vbCrLf & vbCrLf
body = body & "Her et word doc." & vbCrLf
body = body & vbCrLf & "Med venlig hilsen" & vbCrLf
body = body & "Min side"
Mailer.BodyText = body
if Mailer.SendMail then
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
Set Mailer = Nothing
end if
Response.Redirect (Request.ServerVariables("SCRIPT_NAME")&"?mode=tak")
end if
if Request.Querystring("mode")="tak" then
Response.Write "Tak for din henvendelse"
Response.End
end if
%>
<html>
<body>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
<table>
<tr><td>Navn</td><td><input type="text" name="navn"></td></tr>
<tr><td>Firma</td><td><input type="text" name="firma"></td></tr>
<tr><td>Adresse</td><td><input type="text" name="adresse"></td></tr>
<tr><td>Postnummer</td><td><input type="text" name="postnummer"></td></tr>
<tr><td>By</td><td><input type="text" name="by"></td></tr>
<tr><td>Telefon</td><td><input type="text" name="telefon"></td></tr>
<tr><td>Mobil</td><td><input type="text" name="mobil"></td></tr>
<tr><td>Email</td><td><input type="text" name="email"></td></tr>
<tr><td>Besked</td><td><textarea name="besked" cols="30" rows="10"></textarea></td></tr>
<tr><td>Modtag DOC.</td><td><input type="checkbox" name="modtag"></td></tr>
<tr><td> </td><td><input type="submit" name="Send" value="Send"></td></tr>
</table>
</form>
</body>
</html>
