Subversion-Projekte lars-tiefland.content-management

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
<html>
2 
<head>
3 
<title>Unbenanntes Dokument</title>
4 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
5 
</head>
6 
 
7 
<body>
8 
<script language="VBScript" type="text/VBScript">
9 
Const olByValue = 1
10 
Const olMailItem = 0
11 
 
12 
Dim oOApp
13 
Dim oOMail
14 
 
15 
Set oOApp = CreateObject("Outlook.Application")
16 
Set oOMail = oOApp.CreateItem(olMailItem)
17 
 
18 
With oOMail
19 
.To = "mapitest@ihremaildomain.tld"
20 
.Subject = "Dies ist der Betreff"
21 
.Body = "Testnachricht "
22 
.Attachments.Add "c:\boot.ini", olByValue, 1
23 
.Send
24 
End With
25 
 
26 
</script>
27 
<form name="form1" method="post" action="">
28 
  <input type="submit" name="Submit" value="Abschicken">
29 
</form>
30 
</body>
31 
</html>