Avatar billede dk-andersson Nybegynder
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
%>
Avatar billede dk-andersson Nybegynder
23. juli 2009 - 14:58 #1
Send ikke nogen mail hvorfor??
Avatar billede dk-andersson Nybegynder
23. juli 2009 - 15:13 #2
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
%>
Avatar billede dk-andersson Nybegynder
12. oktober 2010 - 10:45 #3
lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester