30 lines
675 B
Plaintext
30 lines
675 B
Plaintext
' -------------------------------------
|
|
' Description: e-Mail sender
|
|
' Creator: Paolo Iocco, EF-620
|
|
' Version: 0.01
|
|
' History: 06.05.2010 Paolo Iocco - creation
|
|
' ---------------------------------------
|
|
|
|
'**** Constants
|
|
|
|
'**** Global Variables
|
|
dim oApp
|
|
dim oMail
|
|
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Popup "Script started...",1,"HiL Spy",64
|
|
|
|
Set oApp = CreateObject("Outlook.Application")
|
|
Set oMail = oApp.CreateItem(olMailItem)
|
|
|
|
With oMail
|
|
'.to="torsten.breitel@partner.bmw.de"
|
|
.to="paolo.iocco@bmw.de"
|
|
.Subject="Automatic generated E-Mail"
|
|
.Body="Test: http:\\www.google.de <-- Link "
|
|
.Send
|
|
end With
|
|
|
|
'oApp.Quit
|
|
|