Re: Formulareinträge via Email verschicken ?!
Hi....
Also.... ich kann Dir kein komplettes Dings schreiben, aber ich kann Dir den nötigen ASP-Code hier einfügen um es beispielsweise mit Win2k/IIS5 und einem Mailserver zu realisieren:
1. Webformular
Du musst dort einfach beim Form folgendes machen:
<FORM METHOD="POST" ACTION="sendmail.asp">
(oder so ähnlich...)
2. sendmail.asp
Hier musst Du etwa den folgenden Code einfügen:
<% ' Typeinformationen und CDOSYS Konstanten
' ueber das CDOSYS und das ADO 2.5 Objekt zugaenglich machen:
%>
<!--METADATA TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->
<%
' Auswerten des Formulares:
strTo = request.Form("MailTo") ' Mailadresse Empfänger
strFrom = request.Form("MailFrom") ' Mailadresse Sender
strSubject = request.Form("Subject")' Betreff
strSubject = request.Form("Text") ' Nachrichtentext
Dim objMessage, objConfig
Dim smtpServer, smtpPort,MailErr
smtpserver = "mail.server.com" ' Mailserver
smtpport = 25 ' Mailserverport
' Message und Configuration Objekte instanzieren
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
' Konfigurieren:
' Nachricht an externen Mailserver verschicken
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
' Emailserver: mail.domain.com
objConfig.Fields(cdoSMTPServer) = smtpserver
' Emailport: 25 (Standard bei SMTP Server)
objConfig.Fields(cdoSMTPServerPort) = smtpPort
' Authentifizierung am Emailserver: Keine
objConfig.Fields(cdoSMTPAuthenticate) = cdoAnonymous
' Configuration updaten
objConfig.Fields.Update
' CDO-Nachricht erstellen:
' Konfiguration an Nachricht binden
Set objMessage.Configuration = objConfig
objMessage.To = strTo ' Empfaenger
objMessage.From = strFrom ' Absender
objMessage.Subject = strSubject ' Betreff
objMessage.TextBody = strBody ' Nachricht
' Error Handling waehrend dem Versenden:
On Error Resume Next
' CDO-Nachricht senden
objMessage.Send
If Err.Number = 0 Then
' *** HIER DEN CODE WENN DAS MAIL VERSCHICKT WURDE
Else
' *** HIER DEN CODE WENN ES FEHLER GAB...
Err.Number = 0
End If
On Error Goto 0
%>
Das Skript muss natürlich noch angepasst werden.
Viel Spass
Christian
