Outlook 2003 и WindowState не работают

[Freerider1972]

Доброго дня суток!
При создании нескольких писем в Outlook 2003 на автомате, хотелось, чтобы созданные сообщения были свернуты, т.к. после проверки я их потом отправляю, т.е. не сразу. Чтобы визуально не "висели" на экране.


Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
.....
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Адресат1
.Subject = Тема
.HTMLBody = RangetoHTML(rng)
.Attachments.Add cell.Value
.Display
End With

OutMail.WindowState = 1

On Error GoTo 0

OutMail.WindowState = 1 - в этом случае не работает, он не видит созданный объект.
Может кто подскажет, как свернуть сообщение после его создания на автомате?

[Freerider1972]

Нашел отдельный модуль того чтобы свернуть все сообщения и Outlook, или отдельно только активные сообщения. Может кому и пригодится.

http://www.vbaexpress.com/forum/arch...hp/t-1393.html

Sub MinOL()

Dim x as Integer
'set a reference to outlook
Set olapp = CreateObject("Outlook.Application")
'loop though all the outlook explorer windows and minimize them
For x = 1 To olapp.Explorers.Count
olapp.Explorers.Item(x).WindowState = 1
Next
'loop though all the outlook item windows and minimize them
For x = 1 To olapp.Inspectors.Count
olapp.Inspectors.Item(x).WindowStat e = 1
Next
'release the reference
Set olapp = Nothing

End Sub

Но все-таки хотелось, чтобы после создания сообщения сразу свернуто было сообщение, а не после создания всех писем.
Все-таки может кто подскажет решение?