Outlook Express - sending e-mail from the command line

; Send a mail vía outlook "automation"

$sRcpt = "[email protected]"
$sSubj = "Test subject"
$sBody = "This is a test"
$sAttach = "g:AutoItAnHoras.PRG"

If Not WinActivate ("[REGEXPTITLE:.*- Outlook Express]") Then
    RunWait ("d:Archivos de programaOutlook Expressmsimn.exe")   ; Set your path to the Outlook .exe
Endif

Send ("!anm")   ; Archivo->Nuevo->Mensaje (in spanish, sorry, I suppose that in english it will be File->New->Message)
Send ($sRcpt & "{Tab 3}")
Send ($sSubj & "{Tab}")
Send ($sBody)

If $sAttach <> "" Then
    Send ("!i{Enter}" & $sAttach & "{Enter}")      ; Insertar adjunto (Insert->Attachment)
EndIf

Send ("!a{Down}{Enter}")        ; Archivo->Enviar mensaje (File->Send message)