23. juli 2009 - 14:58
Der er
2 kommentarer og 1 løsning
mail send funktion
<% Dim objCDOMail Dim strFrom, strTo, strSubject, strBody strSubject = Trim(Request.Form("Sub")) strFrom = Trim(Request.Form("Email")) strNavn = Trim(Request.Form("Navn")) strBody = "Navn: " & Trim(Request.Form("Navn"))&"<br>Adresse: " & Trim(Request.Form("Adresse"))&"<br>Postnr: "& Trim(Request.Form("Postnr"))&"<br>By: " & Trim(Request.Form("By"))&"<br>Telefon: "& Trim(Request.Form("Telefon"))&"<br>Fax: "& Trim(Request.Form("Fax"))& "<br><br>***Bestilling***<br><br>Titel: "& Trim(Request.Form("Titel"))&"<br>Antal: " & Trim(Request.Form("Antal"))&"<br>Besked: " & Trim(Request.Form("Besked")) Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strFrom objCDOMail.To = "mail@profeti.dk" objCDOMail.Subject = strSubject objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 objCDOMail.Body = strBody objCDOMail.send Set objCDOMail = Nothing %>
Annonceindlæg tema
Cloud & AI
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Send ikke nogen mail hvorfor??
Okay har nu prøvet dette script her i stedt for. Men får denne fejl besked: Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /bestil_resp.asp, line 20 800401f3 Mit email script: <% set msg = Server.CreateOBject("JMail.Message") ' Angiv din afsender-adresse ' - den skal være oprettet på webhotellet msg.From = Trim(Request.Form("Email")) msg.FromName = "Rosenkransen.dk" ' Tilføj email-adresse og navn på modtageren msg.AddRecipient "mail@profeti.dk", "Annette Høyrup" ' Angiv et emne for emailen msg.Subject = "Besked fra Rosenkransen.dk" ' Selve teksten (body) msg.Body = "Navn: " & Trim(Request.Form("Navn"))&"<br>Adresse: " & Trim(Request.Form("Adresse"))&"<br>Postnr: "& Trim(Request.Form("Postnr"))&"<br>By: " & Trim(Request.Form("By"))&"<br>Telefon: "& Trim(Request.Form("Telefon"))&"<br>Fax: "& Trim(Request.Form("Fax"))& "<br><br>***Bestilling***<br><br>Titel: "& Trim(Request.Form("Titel"))&"<br>Antal: " & Trim(Request.Form("Antal"))&"<br>Besked: " & Trim(Request.Form("Besked")) ' Send mailen - ved at angive navnet på mail-serveren if (not msg.Send("mailout1.surf-town.net")) then Response.write "<pre>" & msg.log & "</pre>" else Response.write "Mailen er blevet sendt!" end if %>
12. oktober 2010 - 10:45
#3
lukker
Kurser inden for grundlæggende programmering