Проблема отправки Эл.почты

[immark]

Здравствуйте!
По теме 2 вопроса.

Вопрос 1.
Написал программу отправки почты через Outlook (пример смотрите ниже)
При каждой отправке появляется сообщение от Outlook:
«Программа пытается автоматически отправить…Разрешить это действие … Да - Нет»
Как отменить (устранить) появление этого сообщения, поскольку до ответа надо ждать примерно 5-10 секунд, да и вообще – это большой тормоз в работе.
В справке к этому сообщению упоминается команда Item.Send, но я ее не нашел, к сожалению
В FAQ тоже не нашел ответа
В Инете много статей, как сделать отправку почты, но при реализации ничего не получаетс.
Вот эта получилась, но инвалидная…
Подскажите, как быть

Private Sub cmdSend_Click()
SendOutlookEmail_Example
End Sub
Private Sub SendOutlookEmail_Example()

Set outlookobject = CreateObject("Outlook.Application")
Set OutMail = outlookobject.CreateItem(0)
OutMail.To = "dokmislev@gmail.com" 'ToEmailAddress
OutMail.Subject = "SendOutlookEmail_Example" 'EmailSubject
EmailMessage = "This is an example of my Email program" & Chr(13)
EmailMessage = EmailMessage & " Это пример моей почтовой программы " & Chr(13)
EmailMessage = EmailMessage & Date & " " & Time
OutMail.Body = EmailMessage
OutMail.Send
OutMail.Quit
End Sub

Вопрос 2.

В отправленных сообщениях из Outlook все правильно:
This is an example of my Email program
Это пример моей почтовой программы
11/03/2009 6:47:32 А в dokmislev@gmail.com получил

This is an example of my Email program
щРН ОПХЛЕП ЛНЕИ ОНВРНБНИ ОПНЦПЮЛЛШ
11/03/2009 6:47:32
Я понимаю, что дело в кодировках, но как от этого избавиться?

Благодарю за внимание
Марк

[RayShade]

Ищите CDO.Message в гугле, и да обрящете вы знания об отправке почты без Outlook, и о корректной установке кодировок, и прочих прелестях жизни.