Hjælp ASP FORMMAIL

set myMail            = server.createObject("SMTPsvg.Mailer")
myMail.FromName        = "Din navn"
myMail.FromAddress    = "din@email.dk"
myMail.RemoteHost    = "din udbyders remotehost"
myMail.AddRecipient "", "modtager@email.dk"                            ' her burde der være et rigtigt afsender navn
myMail.Subject        = "subject"
myMail.BodyText        = "Indhold"
if myMail.SendMail then

else
        Response.Write "Mail send failure. Error was " & myMail.Response
        response.end
end if

remoteHost kan være dit domæne: www.domaene.dk

Citat:

Hvordan sender jeg e-mails fra min hjemmeside?
Vi har ikke et formmail script liggende som nogle andre webhoteller har, da det har vist sig at være problematisk i forhold til misbrug og brug af serverressourcer. Til gengæld har vi mulighed for at du selv kan ligge et script op på vores servere som kan dette. Dette kan enten laves i ASP eller PHP, alt efter hvad dit webhotel og din servertype understøtter. Husk at vi ikke yder support på dine egne scripts.

Du skal i stedet bruge JMail... Læs mere på www.dimac.net....

Citat:

Til ASP er tilknyttet flg. komponenter ASPmail, ASPemail, Jmail, ASPsmartupload, ASPhttp, ASPping, W3 sockets, Guid maker og Wait for

Det ser da ud til at han kan vælge mellem ASPmail, ASPemail og Jmail
Det eksempel som jeg har givet er ASPmail

<%
objMailer = Server.CreateObject("JMail.SMTPMail")
objMailer.Silent = true
objMailer.Logging = true
objMailer.ContentType = "text/html"
objMailer.ServerAddress = "mail.domain.dk"
objMailer.Sender = "afsender@email.dk"
objMailer.SenderName = "Afsender Navn"
objMailer.Subject = "Emne"
objMailer.AddRecipient("modtager@email.dk")
objMailer.Body = "E-mail Tekst"
    if objMailer.Execute() then
        Response.Write("Mail sendt")
    else
        Response.Write("Mail sendt ikke sendt"&objMailer.ErrorCode&" "&objMailer.ErrorMessage)
    end if
%>

Dette eksempel giver brugeren mulighed for at indtaste navn, email og besked:
Sæt nedenstående ind på din "kontaktside":
---------------------------------------
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<form method="post" action="SendMail.asp">
<TD colspan="2"><H3>Kontakt mig:</H6><TD>
</TR>
<TR>
<TD><H6>Navn:</H6></TD>
<TD><H6><input type="text" name="navn" size="40"></H6></TD>
</TR>
<TR>
<TD><H6>Firma:</H6></TD>
<TD><H6><input type="text" name="firma" size="40"></H6></TD>
</TR>
<TR>
<TD><H6>Email:</H6></TD>
<TD><H6><input type="text" name="email" size="40"></H6></TD>
</TR>
<TR>
<TD><H6>Skriv din besked her:</H6></TD>
<TD><H6><textarea rows="5" name="body" cols="41"></textarea>
<TR>
<TD colspan="2"><input type="submit" value="send"></TD>
</TR>
</form>
</tr>
</table>
---------------------------------------------
lav herefter en asp-side, der hedder sendmail.asp og sæt følgende ind:
<%
' Henter informationerne
name        = Request.Form("name")
senderEmail = Request.Form("email")
subject    = "eks.: mail fra min hjemmeside"
recipient  = "DIN-EMAIL@DIT-DOMÆNE.dk"
body        = Request.Form("body")

' Laver Jmail-besked
set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = true
msg.silent = true

' Her indsættes kontaktform-dataene
msg.From = senderEmail
msg.FromName = name
msg.AddRecipient recipient
msg.Subject = subject
msg.body = body

' Her sendes mailen
if not msg.Send("mail.DIT-DOMÆNE.dk" ) then
    Response.write "Der opstod en fejl - prøv igen senere"
else
    Response.write "Tak for din besked"
end if   
%>
---------------------------------------------------------------

hov - stryg
<TR>
<TD><H6>Firma:</H6></TD>
<TD><H6><input type="text" name="firma" size="40"></H6></TD>
</TR>
- det sendes ikke med alligevel i dette tilfælde (gl. kodestump, jeg havde liggende)

i min skal denne linie lige rettes til:
  if objMailer.Execute() then
skal være
  if objMailer.Execute then

Til superior

Jeg har nu afprøvet dit eksempel på nettet men jeg for desværre denne fejl at der er opstået en fejl prøv igen senere kan du ikke lige kigge på det og sende mig den helt korrekte code anvisning tak.
Jeg har slettet denne del der omhandler:
<TR>
<TD><H6>Firma:</H6></TD>
<TD><H6><input type="text" name="firma" size="40"></H6></TD>
</TR>

Vh Søren

har du skiftet domæne og mailadresser ud med dine egne oplysninger ?
Jeg benytter den selv på mit site og det virker upåklageligt

recipient  = "DIN-EMAIL@DIT-DOMÆNE.dk"
                    /\ skal udskiftes med din mailadresse og i
if not msg.Send("mail.DIT-DOMÆNE.dk" ) then
                    /\  skal du indsætte dit domænenavn

Til superior

Det havde jeg lige fået forkert sat sammen nu virker det tak for hjælpen.

Vh Søren

no prob :)