Just nu i M3-nätverket
Jump to content

Skicka mail


Jimizola1

Recommended Posts

HAr följande två filer

 

form.asp

 

<form method="post" action="skickat.asp">

<table border="0">

<tr><td>Företag:</td><td><input type="text" name="Foretag"></td>

<tr><td>Förnamn:</td><td><input type="text" name="Fornamn"></td>

<tr><td>Efternamn:</td><td><input type="text" name="Efternamn"></td>

<tr><td>Adress:</td><td><input type="text" name="Adress"></td>

<tr><td>Postnr:</td><td><input type="text" name="Postnr" size="10"></td>

<tr><td>Ort:</td><td><input type="text" name="Ort"></td>

<tr><td>Telefon:</td><td><input type="text" name="Telefon"></td>

<tr><td>Fax:</td><td><input type="text" name="Fax"></td>

<tr><td>E-post:</td><td><input type="text" name="Epost"></td>

<tr><td colspan="2" align="center"><input type="submit" value="Skicka">

<input type="reset" value="Rensa"></td>

</table>

</form>

 

skickat.asp

 

 

<%

 

Dim Foretag, Fornamn, Efternamn, Adress, Postnr, Ort, Telefon, Fax, Epost

 

Foretag = Request.Form("Foretag")

Fornamn = Request.Form("Fornamn")

Efternamn = Request.Form("Efternamn")

Adress = Request.Form("Adress")

Postnr = Request.Form("Postnr")

Ort = Request.Form("Ort")

Telefon = Request.Form("Telefon")

Fax = Request.Form("Fax")

Epost = Request.Form("Epost")

 

Response.Write (Foretag) & "<br>"

Response.Write (Fornamn) & "&nbsp;"

Response.Write (Efternamn) & "<br>"

Response.Write (Adress) & "<br>"

Response.Write (Postnr)

Response.Write (Ort) & "<br>"

Response.Write (Telefon) & "<br>"

Response.Write (Fax) & "<br>"

Response.Write (Epost) & "<br>"

 

%>

 

 

Undrar hur jag samtidigt som bekräftelsen kommer upp på vad jag skickat samtidigt skickas som ett mail till tex info@doman.com

Link to comment
Share on other sites

Använd gärna samma tråd om du vill fortsätta en fråga....

 

//eforum.idg.se/viewmsg.asp?EntriesId=270542#270556

 

Där har du fått svaret på din fråga.

 

 

 

 

____Robbac_____________________________________

The Truth Is Out there

 

Link to comment
Share on other sites

förstod inte svaret riktigt så därför skrev jag en fråga till med en bättre beskrivning av mitt problem

 

Link to comment
Share on other sites

<%

 

Dim Foretag, Fornamn, Efternamn, Adress, Postnr, Ort, Telefon, Fax, Epost

 

Foretag = Request.Form("Foretag")

Fornamn = Request.Form("Fornamn")

Efternamn = Request.Form("Efternamn")

Adress = Request.Form("Adress")

Postnr = Request.Form("Postnr")

Ort = Request.Form("Ort")

Telefon = Request.Form("Telefon")

Fax = Request.Form("Fax")

Epost = Request.Form("Epost")

 

Dim strBody

strBody = "Foretag: " & Foretag & Chr(10)

strBody = strBody + "Fornamn: " & Fornamn & Chr(10)

strBody = strBody + "Efternamn: " & Efternamn & Chr(10)

strBody = strBody + "Adress: " & Adress & Chr(10)

strBody = strBody + "Postnr: " & Postnr & Chr(10)

strBody = strBody + "Ort: " & Ort & Chr(10)

strBody = strBody + "Telefon: " & Telefon & Chr(10)

strBody = strBody + "Fax: " & Fax & Chr(10)

strBody = strBody + "Epost: " & Epost

 

Dim send_Mail

SET send_Mail = Server.CreateObject("CDONTS.NewMail")

send_Mail.To = "info@doman.com"

send_Mail.Subject = "Bekräftelse på formulär"

send_Mail.Body = strBody

send_Mail.Send

SET send_Mail = Nothing

 

Response.Write (Foretag) & "<br>"

Response.Write (Fornamn) & "&nbsp;"

Response.Write (Efternamn) & "<br>"

Response.Write (Adress) & "<br>"

Response.Write (Postnr)

Response.Write (Ort) & "<br>"

Response.Write (Telefon) & "<br>"

Response.Write (Fax) & "<br>"

Response.Write (Epost) & "<br>"

 

%>

 

 

____Robbac_____________________________________

The Truth Is Out there

 

Link to comment
Share on other sites

Måste jag installera nåt så att det ska fungera? Kör just nu en Win 98 med PWS för att testa. får felmeddelandet

 

Serverobjekt fel 'ASP 0177 : 800401f3'

 

Server.CreateObject misslyckades

 

/chs/swe_bekr_register.asp, rad 36

 

800401f3

 

Tack på förhand

 

Link to comment
Share on other sites

finns det inte något sätt så att jag kan testa om det fungerar, det ska ju ligga på en riktig webbserver sen, men har inte tillgång till den just nu

 

 

 

 

Link to comment
Share on other sites

Nja, det enda jag kan tänka mig är att skapa en egen komponent som som "simulerar" CDONTS.

 

Gjorde själv en sådan för länge sedan när jag satt på PWS:en.

 

Gjorde helt enkelt en Java klass som skrev en text fil av mailet, klass filen stoppar man sedan i windows\java\trustlib och reggar med javareg så namnet blir CDONTS.Newmail

 

Kanske lite omständigt denna gång men något att tänka på om du ofta sitter med PWS:en och vill använda dig av CDONTS i koden.

 

Link to comment
Share on other sites

sitter oftast med Xp och IIS och där fungerar det väl? Lyckades få en mapp på webbservern så det löste sig.

 

Tack ändå

 

 

 

 

Link to comment
Share on other sites

Jo, det är ju lösningen att köra med XP eller W2k, detta var för länge sedan när man satt med Win98 och PWS:en och jobbade hemma på sidorna.

 

 

Link to comment
Share on other sites

Mailet kommer inte fram, får bekräftelse genom response.Write men mailet går inte till den adress jag angett, någon som vill ta en titt på koden ovan och se om där är något fel.

 

 

Link to comment
Share on other sites

jo den är installerad kollade under lägg till windowskomponenter i kontrollpanelen och den var ikryssad, SMTP services

 

 

Link to comment
Share on other sites

För att CDONTS ska funka måste smtp tjänsten till IIS vara installerad.

 

CDONTS kan inte funka med någon annan smtp server utan då får du använda en annan komponent.

 

Om detta är ett webhotell kolla om de verkligen stödjer skicka mail med cdonts eller om de har en annan komponent installerad.

 

 

Link to comment
Share on other sites

ja dom ligger i en mapp som heter badmail, nu kör jag inte asp-sidorna genom wwwroot utan jag kör via en annan partion och mapp men mailfilerna läggs ändå i c:\inetpub\wwwroot\mailroot\badmail

 

 

Link to comment
Share on other sites

En jättedum fråga, men har du bytt ut:

 

send_Mail.To = "info@doman.com"

 

till den adressen du vill ha mailen till?

 

 

____Robbac_____________________________________

The Truth Is Out there

 

Link to comment
Share on other sites

lät kanske lite otacksam, jag är tacksam för all hjälp jag kan få, men mailadressen är utbytt

 

 

 

 

Link to comment
Share on other sites

Rätt tyket/otacksamt svar ja.... Med rätt attityd kommer du nog lite längre.

 

 

___irriterad_Robbac_____________________________________

The Truth Is Out there

 

Link to comment
Share on other sites

det var inte meningen, skrev lite för fort, fan jag får inte rätt på det den skickar den till c:\inetpub\mailroot\badmails men där har vi inte rot-katalogen på webservern i Inetpub det har vi i d:\webb

 

 

 

 

Link to comment
Share on other sites

"ursäkt" godtagen.

 

Lycka till med dina mail

 

 

____Robbac_____________________________________

The Truth Is Out there

 

Link to comment
Share on other sites

Mailroten ligger alltid i default katalogen, vet inte ens om det går att ändra i default smtp tjänsten.

 

Det enda jag kan tänka mig nu är att antingen har ni någon annan smtp server på samma dator, isåfall ändra default tjänsten till port 26, eller så blockeras den av någon firewall.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...