Receviing and recending mail

I have the task – when Outlook receives the mail it should create a new message, attach to it the income mail and send it to one more recepient. In this connection I wrote the class module for event of receiving new mail

[code]
Dim myOlApp As New Outlook.Application
Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()
Set myOlItems = myOlApp.GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim OutlInspector As Outlook.Inspector
Dim myOlAtts As Outlook.Attachments
Dim myOlMItem As Outlook.MailItem

Set myOlMItem = myOlApp.CreateItem(olMailItem)
myOlMItem.Display
myOlMItem.Attachments.Add Item, olByValue
Set OutlInspector = Outlook.ActiveInspector
Set myOlMItem = OutlInspector.CurrentItem
myOlMItem.Recipients.Add “nikolenko1980@mail.ru”
‘myOlMItem.DeleteAfterSubmit = True

myOlMItem.Send
Set myOlMItem = Nothing
End Sub
[/code]

and the following code in the module:

[code]
Dim x As New EventClassModule

Sub Registration()
Set x.myOlItems = Outlook.Application.GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox).Items
End Sub
[/code]

It works perfectly. The problem, which I can’t deal – hide the process of creating new message and resending it.

I know that in Excel exists possibility to switch off the updating the screeen
[code]
Application.ScreenUpdating=false
[/code]

Is there in Outlook the opportunity like that???
Thank in advance.