Outlook Express

[Sam Rowlands <sam at scriptsoftware dot com>]

Does anyone know how I can instruct Outlook Express on Windows to 
create a new e-mail and add an attachment.
I have been looking at VB code, and I have found this method

Private Sub Command1_Click()
Dim zip_file As String, Ret As Long

    ' Start Outlook Express email.
    zip_file = App.Path & "\test.zip"
    ShellExecute Me.hWnd, "Open", _
        "mailto:Anyone at anywhere dot com?subject=" & zip_file & _
        "&body=Zip File Attached", vbNullString, _
        vbNullString, vbNormalFocus

    ' Wait until Outlook Express is ready.
    While Ret = 0
        DoEvents
        Ret = FindWindow(vbNullString, zip_file)
    Wend

    ' Send keys Alt-I-A, the zip file name,
    ' two TABs, and Enter.
    SendKeys "%ia" & zip_file & "{TAB}{TAB}{ENTER}"
End Sub

but I suspect its not gonna work because I have never seen a 
'FindWindow' function or a SendKeys command in RB.
Mahalo & Aloha,

Sam Rowlands

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>