1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

VB Scripting for OUTLOOK 2003

Discussion in 'Visual Basic ( VB )' started by yugeshmkumar, Jan 14, 2012.

  1. yugeshmkumar

    yugeshmkumar New Member

    Joined:
    Jan 14, 2012
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0
    Hi,
    I need help in writing a script for outlook 2003.

    This is what i want the script to do for me..

    1.) I want the script to run outlook and select a mentioned profile,
    2.) Then the script should be able to minimize the outlook window,
    3.) After that I need to do send & receive,
    4.) And in the last, script should be able to close the outlook properly.

    Can anyone help..?

    Presently I am using a scripts to run outlook do send and recieve and then close it...
    Its working fine the only problem is I am using sendkey(F9) to do send and receive and it only works if outlook window is active.
    And plus I want add one more thing, I should also be able to minimize the outlook with this script so that it wont bother other’s when they logon to the computer.


    My prsent Script is



    <package>
    <job id="vbs">
    <script language="VBScript">
    set WshShell = WScript.CreateObject("WScript.Shell")

    WshShell.Run "outlook /profile registration"
    WScript.Sleep 20000

    WshShell.AppActivate "Outlook"
    WScript.Sleep 1000

    WshShell.SendKeys "{F9}"
    WScript.Sleep 28000

    Dim oOL 'As Outlook.Application
    Set oOL = GetObject(, "Outlook.Application")
    If oOL Is Nothing Then
    'no need to do anything, Outlook is not running
    Else
    'Outlook running
    oOL.Session.Logoff
    oOL.Quit
    End If
    Set oOL = Nothing

    </script>
    </job>
    </package>
     
  2. yugeshmkumar

    yugeshmkumar New Member

    Joined:
    Jan 14, 2012
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0

Share This Page