application.sendkeys "~"

[ruavia3]

Помогите, подтвердить отправку письма через Outlook.

При отправке письма вылетает мессага: "Программа пытается автоматически отправить письмо от Вашего имени", в которой после нажатия "Да" письмо отправляется.
Пробую так:

....

With message
.Subject = ""
.To = "ruavia3@mail.ru"
.Body=""
Attachments.Add (namefile)

'Application.SendKeys "{ENTER}", True
Application.SendKeys "~", false

.Send
End With

......

Можно устранить вылет сообщения программно?

[EducatedFool]

Здесь не смотрели?

http://hiprog.com/index.php?option=c...sk=view&id=462