Private Sub Кнопка0_Click()
Dim OLApp As Object
Dim myItem As MailItem
Set OLApp = CreateObject("Outlook.Application")
Set myItem = OLApp.CreateItem(0)
myItem.To = "mail@mail.ru"
myItem.Subject = "Тема авто письма"
myItem.Body = "Это текст письма! Это текст письма! Это текст письма! Это текст письма!"
myItem.Send
End Sub
Run time error '-2147467259 (80004005)'
Привет всем!
Уважаемые, не подскажите где ошибка? По нажатию кнопки идет в эту Sub:
Выдает ошибку:
"
Run time error '-2147467259 (80004005)'
Automation error
Неопознанная ошибка
"
на строку Set OLApp = CreateObject("Outlook.Application")
Уважаемые, не подскажите где ошибка? По нажатию кнопки идет в эту Sub:
Код:
Выдает ошибку:
"
Run time error '-2147467259 (80004005)'
Automation error
Неопознанная ошибка
"
на строку Set OLApp = CreateObject("Outlook.Application")
Цитата:
Originally posted by Libarus
Привет всем!
Уважаемые, не подскажите где ошибка? По нажатию кнопки идет в эту Sub:
Выдает ошибку:
"
Run time error '-2147467259 (80004005)'
Automation error
Неопознанная ошибка
"
на строку Set OLApp = CreateObject("Outlook.Application")
Привет всем!
Уважаемые, не подскажите где ошибка? По нажатию кнопки идет в эту Sub:
Код:
Private Sub Кнопка0_Click()
Dim OLApp As Object
Dim myItem As MailItem
Set OLApp = CreateObject("Outlook.Application")
Set myItem = OLApp.CreateItem(0)
myItem.To = "mail@mail.ru"
myItem.Subject = "Тема авто письма"
myItem.Body = "Это текст письма! Это текст письма! Это текст письма! Это текст письма!"
myItem.Send
End Sub
Dim OLApp As Object
Dim myItem As MailItem
Set OLApp = CreateObject("Outlook.Application")
Set myItem = OLApp.CreateItem(0)
myItem.To = "mail@mail.ru"
myItem.Subject = "Тема авто письма"
myItem.Body = "Это текст письма! Это текст письма! Это текст письма! Это текст письма!"
myItem.Send
End Sub
Выдает ошибку:
"
Run time error '-2147467259 (80004005)'
Automation error
Неопознанная ошибка
"
на строку Set OLApp = CreateObject("Outlook.Application")
Попробуйте так:
Dim OtlApp as Outlook.Application
SET OtlApp = New Outlook.Application
Кстати, библиотека длЯ работы с аутглюком у Вас подключена?
Microsoft Outlook 9.0 Object Library (MSOUTL9.DLL)
Цитата:
Originally posted by mhaturov
Попробуйте так:
Dim OtlApp as Outlook.Application
SET OtlApp = New Outlook.Application
Кстати, библиотека длЯ работы с аутглюком у Вас подключена?
Microsoft Outlook 9.0 Object Library (MSOUTL9.DLL)
Попробуйте так:
Dim OtlApp as Outlook.Application
SET OtlApp = New Outlook.Application
Кстати, библиотека длЯ работы с аутглюком у Вас подключена?
Microsoft Outlook 9.0 Object Library (MSOUTL9.DLL)
Библиотека подключена и глюк все равно выдает на строку SET OtlApp = New Outlook.Application
Цитата:
Originally posted by Libarus
Библиотека подключена и глюк все равно выдает на строку SET OtlApp = New Outlook.Application
Библиотека подключена и глюк все равно выдает на строку SET OtlApp = New Outlook.Application
А если
Dim OtlApp as Object
Dim Apl as Object
Set OtlApp = New Word.Application
Set Apl = OtlApp.<Дочерний объект>ну и т.д.?
Цитата:
Originally posted by mhaturov
А если
Dim OtlApp as Object
Dim Apl as Object
Set OtlApp = New Word.Application
Set Apl = OtlApp.<Дочерний объект>ну и т.д.?
А если
Dim OtlApp as Object
Dim Apl as Object
Set OtlApp = New Word.Application
Set Apl = OtlApp.<Дочерний объект>ну и т.д.?
Тут, одним словом, изменились условия. Надо отправить сформированное письмо через MAPI или как-то еще. Потому что на компьютере пользователя может быть установлен только Access и никакого outlook'а нету. Вот я и думаю как это сделать, можеь кто-нибудь подскажет?
Кстати, по поводу примера, та же ошибка в строке Set OtlApp = New Word.Application
Цитата:
Originally posted by Libarus
Тут, одним словом, изменились условия. Надо отправить сформированное письмо через MAPI или как-то еще. Потому что на компьютере пользователя может быть установлен только Access и никакого outlook'а нету. Вот я и думаю как это сделать, можеь кто-нибудь подскажет?
Кстати, по поводу примера, та же ошибка в строке Set OtlApp = New Word.Application
Тут, одним словом, изменились условия. Надо отправить сформированное письмо через MAPI или как-то еще. Потому что на компьютере пользователя может быть установлен только Access и никакого outlook'а нету. Вот я и думаю как это сделать, можеь кто-нибудь подскажет?
Кстати, по поводу примера, та же ошибка в строке Set OtlApp = New Word.Application
По поводу прмера New Word.Application - это у меня просто в коде шла работа в Word, ну я и забыл поменять код.
А по поводу того, что у пользователя нет Аутглюка - если работаете в VB6 и подключаете аутглюковскую библиотеку, то при создании установочного комплекта она туда включиться, а потом при инсталяции программы сама установится на комп пользователя. Кстати, Вы можете сами скопировать нужную библиотеку со своей машины и зарегестрировать её на машине пользователя (см http://forum.codenet.ru/showthread.php?threadid=13968).
Цитата:
Originally posted by mhaturov
По поводу прмера New Word.Application - это у меня просто в коде шла работа в Word, ну я и забыл поменять код.
А по поводу того, что у пользователя нет Аутглюка - если работаете в VB6 и подключаете аутглюковскую библиотеку, то при создании установочного комплекта она туда включиться, а потом при инсталяции программы сама установится на комп пользователя. Кстати, Вы можете сами скопировать нужную библиотеку со своей машины и зарегестрировать её на машине пользователя (см http://forum.codenet.ru/showthread.php?threadid=13968).
По поводу прмера New Word.Application - это у меня просто в коде шла работа в Word, ну я и забыл поменять код.
А по поводу того, что у пользователя нет Аутглюка - если работаете в VB6 и подключаете аутглюковскую библиотеку, то при создании установочного комплекта она туда включиться, а потом при инсталяции программы сама установится на комп пользователя. Кстати, Вы можете сами скопировать нужную библиотеку со своей машины и зарегестрировать её на машине пользователя (см http://forum.codenet.ru/showthread.php?threadid=13968).
Кстати, если глюк ещё прёт, посмотрите, как прога на другой машине себя поведёт - возможно, просто проблемы с установкой Офиса у вас - ведь эти библиотеки VB выщемляет из Офиса.
Цитата:
Originally posted by mhaturov
Кстати, если глюк ещё прёт, посмотрите, как прога на другой машине себя поведёт - возможно, просто проблемы с установкой Офиса у вас - ведь эти библиотеки VB выщемляет из Офиса.
Кстати, если глюк ещё прёт, посмотрите, как прога на другой машине себя поведёт - возможно, просто проблемы с установкой Офиса у вас - ведь эти библиотеки VB выщемляет из Офиса.
На тестовой машине установлен только Access на VB, ни VC++, ни офиса. Вот и с нее и нужно, чтобы из access письма отправлялись. Так же может быть использована почтовая программа (любая). Может можно создать сообщение в этой проге?
Цитата:
Originally posted by Libarus
На тестовой машине установлен только Access на VB, ни VC++, ни офиса. Вот и с нее и нужно, чтобы из access письма отправлялись. Так же может быть использована почтовая программа (любая). Может можно создать сообщение в этой проге?
На тестовой машине установлен только Access на VB, ни VC++, ни офиса. Вот и с нее и нужно, чтобы из access письма отправлялись. Так же может быть использована почтовая программа (любая). Может можно создать сообщение в этой проге?
Ситуация следующая:
1. Если пишете на VB6, ну или на любой другой полной версии VB (не VBA), то при работе с проектом подключите к нему библиотеку(и) работы с Outlook и потом соберите при помощи Package & Deployment Wizard установочный комплект программы, в который включите нужные библиотеки. При инсталляции программы библиотеки сами будут установлены куда надо и будут работать как та часть аутглюка, которая Вам необходима.
2. Если работаете с VBA (например. из-под Ацесса), тогда самый простой вариант: Посмотрите, какую(ие) библиотеку(и) для работы с аутглюком Вы подключаете. Затем копируйте со своей машины их на машину пользователя и командой regsrv32 <Путь к библиотеке> регистрируйте их в реестре (компнда вводится в коммандной строке меню Пуск->Выполнить) - эффект тот же самый (посмотрите ссылку, указанную выше)