Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Set objMail = Server.CreateObject("CDONTS.Mail")
sText = "Bla bla!" 'Kann auch HTML sein
objMail.From = "absender@server.com"
objMail.To = "MailAdresse@mail.com"
objMail.Subject = "Dein Betreff"
objMail.BodyFormat = cdoBodyFormatHTML 'Wenn du HTML willst dann dieser Befehl! Sonst lässt dus einfach weg oder schreibst cdoBodyFormatTEXT!
objMail.Body = sText
objMail.Send
Set objMail = Nothing
Set objMail = Server.CreateObject("CDONTS.NewMail")
sText = "Bla bla!" 'Kann auch HTML sein
objMail.From = "absender@server.com"
objMail.To = "MailAdresse@mail.com"
objMail.Subject = "Dein Betreff"
objMail.BodyFormat = cdoBodyFormatHTML 'Wenn du HTML willst dann dieser Befehl! Sonst lässt dus einfach weg oder schreibst cdoBodyFormatTEXT!
objMail.Body = sText
objMail.Send
Set objMail = NOTHING
<%
If (cStr(Request("MM_insert")) <> "") Then
fname = request("txtName")
feintrag = request("txtEintrag")
nachricht = nachricht & chr(013) & chr(010)
nachricht = nachricht & "Name: " & fname & chr(013) & chr(010)
nachricht = nachricht & "Eintrag: " & feintrag & chr(013) & chr(010)
nachricht = nachricht & chr(013) & chr(010)
nachricht = nachricht & "--------------------------------------------------------" & chr(013) & chr(010)
nachricht = nachricht & "Diese Email von http://www.pixelexpect.com/ wurde erstellt am " & date & Chr(013) & Chr(010)
nachricht = nachricht & Chr(013) & Chr(010)
nachricht = nachricht & "Mit freundlichen Grüssen" & chr(013) & chr(010)
nachricht = nachricht & "Thimo Grauerholz" & chr(013) & chr(010)
nachricht = nachricht & chr(013) & chr(010)
nachricht = nachricht & "thimo@grauerholz.de" & chr(013) & chr(010)
nachricht = nachricht & "http://www.pixelexpect.com/" & chr(013) & chr(010)
nachricht = nachricht & chr(013) & chr(010)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Ihr Gaestebuch auf pixelexpect.com (Thimo Grauerholz)"
Mailer.FromAddress = "info@pixelexpect.com"
Mailer.Subject = "Es befindet sich ein neuer Eintrag im Gb von pixelexpect.com"
Mailer.BodyText = nachricht
Mailer.RemoteHost = "mailserver"
Mailer.AddRecipient "webmaster", "info@pixelexpect.com"
If Mailer.SendMail Then
response.write ("")
Else
response.write ("Die Mail wurde nicht gesendet ")
response.write ("Folgender Fehler trat auf: " & Mailer.Response)
End If
Set Mailer = nothing
End If
%>