I had to create a .VBS script to create an automated E-Mail message. The hardest part was to set the importance of the mail, I've found the solution here: http://www.lewisroberts.com/?p=64

Here come's the script:


Dim  iMsg
Dim  iConf
Dim  Flds
Dim  strHTML
Dim  strSmartHost

StrSmartHost = 
"MAIL SERVER"
set  iMsg = CreateObject( "CDO.Message" )
set  iConf = CreateObject( "CDO.Configuration" )

Set  Flds = iConf.Fields  ' IConfiguration.Fields Property Link

With  Flds    
   
'1=Send message using the local SMTP service pickup directory.
   '2=Send the message using the network (SMTP over the network), 
   
.Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 

   
.Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = strSmartHost
   .Item(
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) =  10
    
   
' 2 for NTLM, 1 for basic, 0 for none (the default)
   '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

   'Use SSL for the connection (True or False):
   '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
   '.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = USER
   '.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = PASS    
   
.update
End With

With 
iMsg
        
Set  .Configuration = iConf
        
'set mail importance
    ' For Outlook 2003:
        
.Fields.Item( "urn:schemas:mailheader:X-MSMail-Priority" ) =  "High"     
    
' For Outlook 2003 also:
        
.Fields.Item( "urn:schemas:mailheader:X-Priority" ) = 
    
' For Outlook Express:
        
.Fields.Item( "urn:schemas:httpmail:importance" ) = 
        
.Fields.Update
        .
To       "YOUR_MAIL_ADDRESS"
        
'.Cc    = varMail_Cc
        '.Bcc    = varMail_Bcc 
        
.From     =  "FROM_MAIL_ADDRESS"
        
.Subject =  "se topic"
'        if varMail_HTML = True then
'            .HTMLBody = varMail_Text                 'html mail
'        else
            
.Textbody =  "hier kommt der mailbody"      'text mail
'        end if
        'uncomment the next line and alter file path as required
        'Set iBP = iMsg.AddAttachment(App.Path & "\file1.txt")
        
.Send
  
End With

  
' cleanup of variables
  
Set  iMsg =  Nothing
  Set 
iConf =  Nothing
  Set 
Flds =  Nothing