Subversion-Projekte lars-tiefland.content-management

Revision

Blame | Letzte Änderung | Log anzeigen | RSS feed 

<html>
<head>
<title>Unbenanntes Dokument</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<script language="VBScript" type="text/VBScript">
Const olByValue = 1
Const olMailItem = 0

Dim oOApp 
Dim oOMail

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
.To = "mapitest@ihremaildomain.tld"
.Subject = "Dies ist der Betreff"
.Body = "Testnachricht "
.Attachments.Add "c:\boot.ini", olByValue, 1
.Send
End With

</script>
<form name="form1" method="post" action="">
  <input type="submit" name="Submit" value="Abschicken">
</form>
</body>
</html>