rothen ecotronics Bern: ASP-Skript "ASP Diverses: Mail verschicken mit CDONTS-Mail"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

'Kein Resultat
'Achtung: Dieses Beispiel funktioniert nur auf Windows NT Server,
'da nur dort ein SMTP-Server vorhanden ist!

'*****************************************************************
'Variablendeklarationen
Dim objmailclient
Const CdoEncodingBase64 = 1
Const CdoMailFormatMime = 0

'*****************************************************************
'Variableninitialisierung
set objmailclient = CreateObject("CDONTS.NewMail")

'*****************************************************************
'Lokale Prozeduren und Funktionen

'*****************************************************************
'Anfang Code

'*****************************************************************
'Anfang <html>
%>

<html>
  <head>
    <title>ASP Diverses: Mail verschicken mit CDONTS-Mail</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />

  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
objmailclient.MailFormat = cdoMailFormatMIME   'Mime-Format
objmailclient.to = "empfaengerin@provider.ch"
objmailclient.from = "senderin@provider.ch"
objmailclient.subject = "Das ist der Mail-Titel"
objmailclient.Body = "Hier kommt der Mail-Text"
objmailclient.AttachFile server.MapPath("/asppages/silvi/uebungen/sprueche.txt"), _
  "sprueche.txt", cdoEncodingBase64
objmailclient.Send

Response.Write ("Das Mail wurde verschickt!<br />" & vbCrLf)
%>

</body>
</html>

Letzter Update: 26.12.2021 17:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch