Отправить сообщение через профиль Outlook - VB

Формулировка задачи:

НЕобходимо отправить сообщение через профиль outlook. Следующий скрипт просто помещает сообщение в исходящие и оно лежит там, пока 'руками' его не отправишь. Как сделать, чтобы отправлялось само?

                    Листинг программы
                
 
                        
                          
                    
Dim objSession 
Dim objMessage 
Dim objOneRecip 
Set objSession = CreateObject('MAPI.Session')
objSession.Logon  'имя профиля', '', False,, False, False
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = 'Sample Message'
objMessage.Text = 'This is some sample message text.'
objMessage.Recipients.Add 'адрес'
objMessage.Update
objMessage.Send False, False, False
objSession.Logoff

Решение задачи: «Отправить сообщение через профиль Outlook»

textual
                            Листинг программы 
                        
 
                        
                          
                    
S.SignOn
M.SessionID = S.SessionID
M.Compose
M.RecipAddress = 'a@b.c'
M.MsgSubject = 'tratata'
M.MsgNoteText = 'sdaf'
M.Send False
S.SignOff