Mailformulär

7 svar · 589 visningar · startad av HammerBoy 18 juli 2007

HammerBoyMedlem sedan feb. 2006144 inlägg

Frågan18 juli 2007 13:10#1

Jag behöver skicka ett mail från ett formulär. Mycket simpelt. Endast 1 mail innehållandes Avsändare, Rubrik och Meddelande.

Detta är inget nytt. Jag brukar vanligen använda ASPemail och det fungerar alledles utmärkt men... den här gången har jag inte samma tillgång till webbservern. För att använda t.ex. ASPemail så måste jag installera Persits komponent. Jag vetti sjutton om den ansvarige göken för webbservern är så intresserad av att jag installerar en mailkomponent. Utan att ha frågat så har jag förstått att det inte skulle vara populärt direkt...

Jag undrar om det finns något sätt som jag kan skicka ett enkelt mail utan att behöva installera en komponent? Kan jag fixa skäggbiffen med endast ASP (mailto räknas inte)? Om jag nu måste använda en komponent, är det möjligt att ta en komponent och bara kopiera in den utan att köra ett installationsprogram? Låter osannolikt men jag tar även med alla dumma frågor :)

Vad finns det för andra mailkomponenter för utom ASPemail, CDONTS och Jmail?

yohpopsMedlem sedan feb. 20011 198 inlägg

18 juli 2007 13:18#2

Du skulle kunna använda din andra server och skicka formuläret till en sida där som i sin tur skickar mailet.

SpookMedlem sedan dec. 20041 043 inlägg

18 juli 2007 13:33#3

Här har du en fungerande lösning, bara att lägga in dina egna värden, infoga formuläret, skicka upp allt på servern.

Parametrarna i formmail.asp borde vara enkla att se, dom ligger på rad 52 samt rad 55.
Formuläret är bara att kopiera, glöm inte att göra sidan "tack.asp"

sendmail.zip

HammerBoyMedlem sedan feb. 2006144 inlägg

18 juli 2007 13:34#4

Ja, det skulle jag förvisso men jag kan inte ta det ansvaret för då skapas ju ett beroende till mig och det är inte lyckat i det här fallet.

@ndersMedlem sedan juni 200032 967 inlägg

18 juli 2007 13:36#5

Spook - du måste ju ändå ha en mailkomponent installerad. I scriptet du bifogar används CDO.

PoffeMedlem sedan apr. 20022 743 inlägg

23 juli 2007 22:49#6

Nått liknande http://formfixer.com/ kanske kan vara lösningen?

emissionMedlem sedan dec. 19996 721 inlägg

23 juli 2007 23:55#7

Du kanske har tillgång till php på samma server. I så fall kan du nyttja php:s inbyggda mailfunktioner.

...eller fråga serverinnehavaren om de erbjuder någon mailkomponent.

HammerBoyMedlem sedan feb. 2006144 inlägg

25 juli 2007 15:32#8

Lösningen

Efter lite pillande hit och dit så har det hela till slut fått sin lösning. Jag bifogar koden nedan ifall det nu skulle finnas någon annan i behov av liknande lösning.

Tack alla för er hjälp! :)

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> 

<%
Dim ObjSendMail, avsandare, arende, meddelande
Set ObjSendMail = CreateObject("CDO.Message") 
avsandare = request.form("avsandare") 
arende = request.form("arende")
meddelande = request.form("meddelande")
       
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.domän.se"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Update
     
ObjSendMail.To = "dit_mailet_ska_skickas@domän.se"

ObjSendMail.From = avsandare
ObjSendMail.Subject = arende
ObjSendMail.TextBody = meddelande
     
ObjSendMail.Send     
Set ObjSendMail = Nothing 

response.redirect "En_tacksida_tex.asp"
%>