Avatar billede qksno Nybegynder
15. november 2005 - 18:47 Der er 2 kommentarer og
1 løsning

W3 Jmail4.4

God aften. jeg sidder og roder mad noget AspEmail. jeg har lavet følgene script til at sende email med, med komponenet "AspEmail", men nu har jeg købt domæne hos web10.dk. Jeg vil gerne have lavet det om så det kører på W3 Jmail4.4 i stedet, men aner ikke hvordan jeg gør.

<form action="AspEmail.asp?action=send" method="post">

Vælgprodukt : <br>
<select name="produkt">
<option value="">Vælgprodukt</option>
<option value="Biler">Biler</option>
<option value="Cykler">Cykler</option>
<option value="Motorcykler">Motorcykler</option>

</select>
<br><br>

Navn: <br>
<input type="text" name="navn"><br>
E-mail: <br>
<input type="text" name="email"><br>
Tekst: <br>
<textarea name="tekst" rows="3" cols="30"></textarea>
<br><br>
<input type="submit" value="Send">

</form>

<!-------------------------- Mail systemet ----------------------------------->

<%
If Request("action") = "send" Then

  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "test.test.dk"

  Mail.From = "test@test.dk"
  Mail.FromName = "Test test"
  Mail.AddAddress "test@test.dk"

  Mail.Subject = Request("Subject")
  Mail.Body = Request.Form("produkt") & vbCrLf & Request.Form("navn") & vbCrLf & Request.Form("email") & vbCrLf & Request.Form("tekst")
  strErr = ""

 
  On Error Resume Next
  Mail.Send
 
  If Err <> 0 Then
 
      response.Write "<b>Der opstod en fejl prøv igen senere!!!</b><br>"

  else
 
      response.Write "<b>Din bestilling er sendt</b><br>"

  End If
 
End If
%>

Håber der er nogle derude der kan hjælpe mig..forsat god aften..
Avatar billede nielle Nybegynder
15. november 2005 - 19:15 #1
Prøv dette:

Set Mail = Server.CreateObject("JMAIL.SMTPMail")
Mail.ServerAddress = "test.test.dk"

Mail.Sender = "test@test.dk"
Mail.SenderName = "Test test"

Mail.AddRecipient "test@test.dk"

Mail.Subject = Request("Subject")
Mail.Body = Request.Form("produkt") & vbCrLf & Request.Form("navn") & vbCrLf & Request.Form("email") & vbCrLf & Request.Form("tekst")
strErr = ""

On Error Resume Next
Mail.Execute
Avatar billede qksno Nybegynder
23. november 2005 - 08:40 #2
tak for hjælpen, hurtigt svar.

læg et svar =)
Avatar billede nielle Nybegynder
23. november 2005 - 17:16 #3
Scar :^)
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