Visual Basic

<pre lang="vb">

Public Sub postMessageBox(ByVal aMessage As String, ByRef aTextBox As RichTextBox)
    aTextBox.Text &= aMessage
    aTextBox.Text &= Chr(13)
    aTextBox.SelectionStart = Len(aTextBox.Text)
    aTextBox.SelectionLength = 0
    aTextBox.SelectionStart = aTextBox.Text.Length
    aTextBox.ScrollToCaret()
End Sub
Public Sub postMessageBoxSimple(ByVal amessage As String, ByRef atextbox As RichTextBox)
    atextbox.SelectedText = amessage & Chr(13)
End Sub

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>

Select Case value
  Case value.contains("reading")
  Case value.contains("cal")
  Case Else
End Select

Select Case value
  Case value="cal"
  Case value.contains("reading")
  Case value.contains("cal")
  Case Else
End Select

Private FilterComboBoxDataSource()
    ' Variable to store actual SelectedItem from LookUp BindingSource
       Dim t As DataRowView = Nothing

    ' Variable to store actual ItemID value from Main BindingSource
   Dim i as Integer = -1

   ' Stores the current row from Main BindingSource as a typed DataRow from Main DataTable
    Dim r As MainRow = CType(CType(Me.MainBindingSource.Current, DataRowView).Row, MainRow)

    ' Stores actual UpdateMode for every Binding of the ComboBox DataBinding Collection
    ' and changes it to DataSourceUpdateMode.Never
    ' (At moment only one binding exists, that for SelectedValue)
       Dim updateModes As Dictionary(Of BindingMemberInfo, DataSourceUpdateMode) =
           New Dictionary(Of BindingMemberInfo, DataSourceUpdateMode)
       For Each b As Binding In Me.ItemIDComboBox.DataBindings
           updateModes.Add(b.BindingMemberInfo, b.DataSourceUpdateMode)
           b.DataSourceUpdateMode = DataSourceUpdateMode.Never
       Next

   ' If ItemID isn't Null, searches related record in LookUp BindingSource underlying DataTable and stores it
   ' (Should use IsNull Function of untyped DataRow because ItemID is a NonNull Field)
       If Not r.IsNull("ItemID") Then
           Dim dv As DataView = CType(Me.LookUpBindingSource.List, DataView).Table.DefaultView
           dv.Sort = "ID ASC"
           t = dv(dv.Find(r.ItemID))
       ' Stores ItemID value - needed because t couldn't be find, so ItemID will be used to relocate the record - See below
      i = r.ItemID
       End If

   ' Set up Filter for LookUp BindingSource
   ' Field1, Field2 and Field3 are fields from Main DataTable whose values are displayed, via Main BindingSource,
   ' in three CheckBoxes on the form
       Me.LookUpBindingSource.Filter =
           String.Format("Field1 = {0} And Field2 = {1} And Field3 = {2}",
                         Me.Field1CheckBox.Checked,
                         Me.Field2CheckBox.Checked,
                         Me.Field3CheckBox.Checked)

   ' If an item was previously selected in ComboBox (t is not nothing)
   ' tries to find and reselect it in the ComboBox by setting the position
   ' of filtered LookUp BindingSource
   ' IT DOESN'T WORK: IndexOf(t) always returns -1. Why?
       If Not IsNothing(t) Then
           Me.TipiMovimentoBindingSource.Position =
               Me.TipiMovimentoBindingSource.IndexOf(t)
       End If

   ' If an item was previously selected in ComboBox (i > -1)
   ' tries to find and reselect it in the ComboBox by setting the position
   ' of filtered LookUp BindingSource
   ' THIS WORKS
       If i > -1 Then
           Me.TipiMovimentoBindingSource.Position =
               Me.TipiMovimentoBindingSource.Find("ID", i)
       End If

   ' Reset DataSourceUpdateMode for each binding of ComboBox
       For Each b As Binding In Me.IDTipoComboBox.DataBindings
           b.DataSourceUpdateMode = updateModes(b.BindingMemberInfo)
       Next

       updateModes = Nothing
   End Sub