Søg
Avatar billede ccfischer Nybegynder
30. november 2003 - 18:26 Der er 14 kommentarer og
1 løsning

Videre sende email i form

Hejsa !


Jeg har denne email form, og ville gerne have en email sendt til den, der udfylder formen. Mit spørgsmål er om ikke at denne mail er lavet rigtigt.

-------------------------------------------------------
<%
    body = body & "Fra.:" &" "& request("navn") & vbCrlf 
    body = body & "E-mail.:" &" "& request("email") & vbCrlf & vbCrlf
    body = body & "Besked.:" &" "& request("besked") & vbCrlf & vbCrlf
    body = body & "Afsenders IP.:" &" "& Request.ServerVariables("REMOTE_ADDR")
   
   


'dennne bruger jeg

Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "mail.web2go.dk"
    JMail.Priority = 0
    JMail.Sender = Request("Email")
    JMail.AddRecipient "kenneth@web2go.dk"
    JMail.AddRecipient = Request("Email")
    JMail.Subject = "Kontakt fra Web2go.dk"
    JMail.Body = body
    JMail.Priority = 3
    JMail.Execute
    Set JMail = Nothing
   
%>
-------------------------------------------------------
Jeg får denne fejl på siden:
------------------------------------------------------

jmail.SMTPMail error '8000ffff'

Error: 550 The following recipients could not be sent to: ken.k@mail.dk; 550 relaying mail to ken.k@mail.dk is not allowed

/mail/tak.asp, line 113
--------------------------------------------------------


Håber i kan hjælpe
Avatar billede thesurfer Nybegynder
30. november 2003 - 18:44 #1
prøv med:
JMail.AddRecipient "kenneth@web2go.dk," & Request("Email")

jeg plejer altid at bruge request.form("Email") i stedet for bare request("Email")..
Avatar billede ccfischer Nybegynder
30. november 2003 - 18:46 #2
skal der komma med "kenneth@web2go.dk," & Request("Email")
Avatar billede ccfischer Nybegynder
30. november 2003 - 18:48 #3
Jeg får stadigvæk denne fejl (og kommaet er væk) jeg tror det er en fejl på Cliche´s server..

jmail.SMTPMail error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/mail/tak.asp, line 112
Avatar billede thesurfer Nybegynder
30. november 2003 - 18:49 #4
Der skal komma mellem email adresserne.
Avatar billede thesurfer Nybegynder
30. november 2003 - 18:50 #5
jeg går ud fra at indholdet af Request("Email") er i formatet: brugernavn@udbyder.dk
Ellers er det ikke email format.
Avatar billede ccfischer Nybegynder
30. november 2003 - 18:52 #6
det skulle det være, det virker fint hos azero, men ikke her ???
Avatar billede thesurfer Nybegynder
30. november 2003 - 18:58 #7
Cliche skriver ( http://www.cliche.dk/?wid=2000&mid=2&id=6 ):
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.

Betyder det at det ikke har nogen mail komponent installeret?
Men det ser ud til at JMail er installeret..
Avatar billede ccfischer Nybegynder
30. november 2003 - 19:00 #8
de understøtter dette.

Hvilke komponenter kan jeg benytte mig af i min ASP kode?
Til ASP er tilknyttet flg. komponenter ASPmail, ASPemail, Jmail, ASPsmartupload, ASPhttp, ASPping, W3 sockets, Guid maker og Wait for.
Avatar billede ccfischer Nybegynder
30. november 2003 - 19:03 #9
Jeg har sendt dem en mail, så må de jo kike lidt på det. Kan du ikke skrive et svar så du kan få dine point.
Avatar billede thesurfer Nybegynder
30. november 2003 - 19:08 #10
Jeg venter lige med et svar :)

Kan du overhovedet sende mail, eller er det kun hvis det er til mere end 1 person?

Ellers prøv at oprette en asp fil med denne kode:

<%
'//////////////////////////////////////////////////////////////////////
' © yurtseven.com. All rights reserved.                               
' The entire contents of this document is copyrighted and may not     
' be reproduced for any purpose without prior written permission.     
' For questions or comments, please contact: cenk@yurtseven.com       
'//////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////
' Please upload this file into any directory on your webserver and browse it.
' Inform your Site Administrator about the installed                       
' components on your server.                                               
'////////////////////////////////////////////////////////////////////////////
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<TITLE>Detecting System Components</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0"><TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="25%" BGCOLOR="#465697">&nbsp;</TD>
<TD WIDTH="100%" BGCOLOR="#465697"><FONT FACE="Verdana" SIZE="2" COLOR="#FFFFFF"><B>Detecting Email Components...</B>
</FONT>
</TD>
<TD WIDTH="25%" BGCOLOR="#465697">&nbsp;</TD>
</TR>
<TR><TD COLSPAN="3" WIDTH="100%">&nbsp;</TD>
</TR>
<TR><TD WIDTH="25%">&nbsp;</TD>
<TD WIDTH="50%"><FONT FACE="Verdana" SIZE="2"><%
Dim sql_control
Dim sql_con_trol
sql_con_trol = 0
On Error Resume Next
Set sql_control = CreateObject("VSEmail.SMTPSendMail")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">VSEmail</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = CreateObject("Persits.MailSender")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">ASPEmail</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = server.CreateObject("CDONTS.NewMail")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">CDONTS</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = Server.CreateObject("SMTPsvg.Mailer")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">ASPMail</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = Server.CreateObject("JMail.SMTPMail")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">JMail 3.7</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = Server.CreateObject("JMail.Message")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">JMail 4.1</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = Server.CreateObject("Dynu.Email")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">Dynu Mail</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
Set sql_control = Server.CreateObject("ADISCON.SimpleMail.1")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">Simple Mail</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
set sql_control = Server.CreateObject("ASPMail.ASPMailCtrl.1")
If Err then
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">OCXMail</FONT></B><BR>" & vbcrlf
    sql_con_trol = sql_con_trol + 1
End if
Err.Clear
If sql_con_trol > 0 then
    Response.Write "<BR><BR>Found <B>" & sql_con_trol & "</B> components." & vbcrlf
    Response.Write "<BR>" & vbcrlf
    Response.Write "<BR><B><A HREF=""mailto:cenk@yurtseven.com"">cenk@yurtseven.com</A></B>" & vbcrlf
Else
    Response.Write "<BR>" & vbcrlf
    Response.Write "<BR>Your sever has not installed any of the email components spidered by this program." & vbcrlf
    Response.Write "<BR>" & vbcrlf
    Response.Write "<BR>Please contact your web server administrator to be informed" & vbcrlf
    Response.Write "<BR>about the installed <B>email components</B> on your server." & vbcrlf
End if
%></FONT>
</TD>
<TD WIDTH="25%">&nbsp;</TD>
</TR>
</TABLE>
<BR>
<BR>
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="25%" BGCOLOR="#465697">&nbsp;</TD>
<TD WIDTH="100%" BGCOLOR="#465697"><FONT FACE="Verdana" SIZE="2" COLOR="#FFFFFF"><B>Detecting FileSystem Components...</B>
</FONT>
</TD>
<TD WIDTH="25%" BGCOLOR="#465697">&nbsp;</TD>
</TR>
<TR><TD COLSPAN="3" WIDTH="100%">&nbsp;</TD>
</TR>
<TR><TD WIDTH="25%">&nbsp;</TD>
<TD WIDTH="50%"><FONT FACE="Verdana" SIZE="2"><%
On Error Resume Next
OutHTML = ""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set act = FSO.CreateTextFile(Server.MapPath("testfile.txt"), True)
act.WriteLine("TestLine")
act.Close
Set act = Nothing
If Err = 0 Then
    OutHTML = OutHTML & "<BR>Creating of files supported..." & vbcrlf
Else
    OutHTML = OutHTML & "<BR>Creating of files <B>not</B> supported..." & vbcrlf
End If
fso.DeleteFile(Server.MapPath("testfile.txt"))
If Err = 0 Then
    OutHTML = OutHTML & "<BR>Deleting and Modifying of files supported..." & vbcrlf
Else
    OutHTML = OutHTML & "<BR>Deleting and Modifying of files <B>not</B> supported..." & vbcrlf
End If
Set FSO = Nothing
If Err > 0 then
    Response.Write "<B>Scripting.FileSystemObject not full supported.</B>" & vbcrlf
Else
    Response.Write "Detected:&nbsp;&nbsp;&nbsp; <B><FONT COLOR=""#009900"">Scripting.FileSystemObject</FONT></B><BR><BR>" & vbcrlf
    c1 = c1 + 1
End if
Err.Clear
Response.Write OutHTML
If c1 > 0 then
    Response.Write "<BR>Found <B>" & c1 & "</B> components." & vbcrlf
    Response.Write "<BR>" & vbcrlf
    Response.Write "<BR><B><A HREF=""mailto:cenk@yurtseven.com"">cenk@yurtseven.com</A></B>" & vbcrlf
Else
    Response.Write "<BR>" & vbcrlf
    Response.Write "<BR>Please contact your web server administrator to be informed" & vbcrlf
    Response.Write "<BR>about the installed <B>FileSystemObjects</B> on your server." & vbcrlf
End if
%></FONT>
</TD>
<TD WIDTH="25%">&nbsp;</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Avatar billede ccfischer Nybegynder
30. november 2003 - 19:12 #11
jeg kan godt sende en e-mail som så lander i min postkasse, men skal den sendes til flere, er det der opstår problemer.
Avatar billede thesurfer Nybegynder
30. november 2003 - 19:14 #12
ahh.. ok.. så er det nok Cliche du skal have fat i..
Så lægger du bare selv et svar og accepterer det.. helt ok med mig.
Avatar billede ccfischer Nybegynder
30. november 2003 - 19:16 #13
du skal have lidt for din tid
Avatar billede thesurfer Nybegynder
30. november 2003 - 19:20 #14
OK. Jeg lægger et svar. :)
Takker.
Avatar billede ccfischer Nybegynder
30. november 2003 - 19:23 #15
Takker for din hjælp
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
I går 20:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
White papers
Flere white papers »