Outlook is Access / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Outlook is Access

25 сообщений из 29, страница 1 из 2

все

Outlook is Access

#39687017

IFK

Гость

Уважаемый форум,

понимаю, что бОян, но все-таки. Простая задача: база на Аксе должна создавать и показывать пользователю мыло, используя Outlook. Офис 2016. Использую код:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

    Set outlObj = CreateObject("Outlook.Application")
    Set outlItem = outlObj.CreateItem(olMailItem)
    outlItem.Importance = olImportanceNormal
....
    outlItem.Attachments.Add "C:\Users\" & Environ("USERNAME") & "\" & flname & ".xlsx"
    outlItem.Subject = "Something..."    
    outlItem.Body = "Bla-bla-bla"
    outlItem.Display

Проблема в том, что если Outlook в это время не запущен, то все виснет и ничего не происходит. Если Outlook запущен - все работает на ура. Есть варианты, как побороть?

...

Рейтинг:

0 / 0

13.08.2018, 17:14

| Ответить | Цитировать | Написать

Outlook is Access

#39687052

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

IFK, olImportanceNormal это константа аутлука-нужно заменить если связывание позднее используете.
outlItem.Importance = 1

...

Рейтинг:

0 / 0

13.08.2018, 18:30

| Ответить | Цитировать | Написать

Outlook is Access

#39687313

IFK

Гость

alecko, спасибо, заменю, но это не решает проблему, потому что при запущеном аутлуке все отрабатывает нормально.

...

Рейтинг:

0 / 0

14.08.2018, 10:46

| Ответить | Цитировать | Написать

Outlook is Access

#39687357

zimkon

Гость

Возможно это поможет. Попробуй

Код: vbnet

1.
2.
3.
4.

    Set outlObj = CreateObject("Outlook.Application")
    outlObj.Session.GetDefaultFolder(6).Display   
    Set outlItem = outlObj.CreateItem(olMailItem)
...

...

Рейтинг:

0 / 0

14.08.2018, 11:43

| Ответить | Цитировать | Написать

Outlook is Access

#39687427

IFK

Гость

zimkon, никакого эффекта - если аутлук закрыт, виснет на этой команде. Если открыт - показывает окно, но если аутлук открыт, то и без этой команды все работает отлично.

...

Рейтинг:

0 / 0

14.08.2018, 12:53

| Ответить | Цитировать | Написать

Outlook is Access

#39687443

zimkon

Гость

IFK,
Предположительно, он не виснет, а ждет пока загрузится OutLook (грузится же он у тебя, наверное, не так быстро, да и аутентификацию в OutLook-e ещё пройти нужно). Проверить бы всё это надо.

...

Рейтинг:

0 / 0

14.08.2018, 13:25

| Ответить | Цитировать | Написать

Outlook is Access

#39687444

IFK

Гость

zimkon, не, виснет - явно видно. Аутлук иконка появляется в трее, но она странная - с шестеренкой. Если подвести мышь к ней, появляется сообщение, что типа приложение занято другим пользователем и т.д.

Поборол принудительным запуском аутлука с проверкой:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

#If Win64 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As LongLong
#Else
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
#End If


Public Function outlook_start()
If FindWindow("OpusApp", vbNullString) = False Then shell "Outlook.exe", vbMinimizedNoFocus
End Function

Не очень изящно, но работает. Еще бы побороть разворачивание аутлука в полноэкранный режим после старта и было бы вообще зашибись. :(

...

Рейтинг:

0 / 0

14.08.2018, 13:29

| Ответить | Цитировать | Написать

Outlook is Access

#39687446

Uralec

Гость

IFK,

Офис 2007 и вызов из экселя, но работает и с закрытым и с открытым Outlook

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "test@mail.ru"
.Subject = "test"
.Body = "test"
.Attachments.Add "test.xls"
.Display
.Send
End With

...

Рейтинг:

0 / 0

14.08.2018, 13:30

| Ответить | Цитировать | Написать

Outlook is Access

#39687471

zimkon

Гость

IFK Аутлук иконка появляется в трее, но она странная - с шестеренкой. Если подвести мышь к ней, появляется сообщение, что типа приложение занято другим пользователем и т.д.

Возможно в запущенных процессах, если посмотреть через диспетчер задач, у тебя висит не одна копия OutLook.exe (после твоих неудачных попыток запуска), все эти процессы надо бы завершить через диспетчер задач.
Вообще, чтобы не плодить такие паразитные процессы , при запуске Outlook надо бы пользоваться такой конструкцией

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

    On Error Resume Next
    Set objOutlook = GetObject(, "Outlook.Application")
    On Error GoTo 0
    
    If objOutlook Is Nothing Then
    
        'Outlook isn't already running - create a new instance...
        Set objOutlook = CreateObject("Outlook.Application")

т.е. если OutLook уже загружен, пользуемся GetObject, в противном случае CreateObject

...

Рейтинг:

0 / 0

14.08.2018, 13:57

| Ответить | Цитировать | Написать

Outlook is Access

#39687480

IFK

Гость

zimkon, поверял в диспетчере задач, не висит там куча процессов. Винда 10 как-то это разруливает, по-видимому.

...

Рейтинг:

0 / 0

14.08.2018, 14:02

| Ответить | Цитировать | Написать

Outlook is Access

#39687485

zimkon

Гость

IFK,
А смотрел ты именно в запущенных процессах, а не в запущенных приложениях?

...

Рейтинг:

0 / 0

14.08.2018, 14:06

| Ответить | Цитировать | Написать

Outlook is Access

#39687528

IFK

Гость

zimkon, да, и в процессах и в приложениях. Я просто закрывал открытый аутлук, проверял список процессов и приложений и стартовал создание емейла из Акса - висло.

...

Рейтинг:

0 / 0

14.08.2018, 14:54

| Ответить | Цитировать | Написать

Outlook is Access

#39687540

zimkon

Гость

IFK,
А если в общий модуль запихнуть типа (при закрытом OutLook)

Код: vbnet

1.
2.
3.
4.
5.

Public Function ttt()
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    olApp.Session.GetDefaultFolder(6).Display '6 = olFolderInbox
End Function

И выполнить это в окне Immediate редактора VBA, тоже будет виснуть?

...

Рейтинг:

0 / 0

14.08.2018, 15:19

| Ответить | Цитировать | Написать

Outlook is Access

#39687547

IFK

Гость

zimkon, так тоже работает и с тем же эффектом - аутлук стартует и разворачивается на весь экран. :)

...

Рейтинг:

0 / 0

14.08.2018, 15:26

| Ответить | Цитировать | Написать

Outlook is Access

#39687550

IFK

Гость

zimkon, пардон, игнор последнего поста - так не работает. :(

...

Рейтинг:

0 / 0

14.08.2018, 15:28

| Ответить | Цитировать | Написать

Outlook is Access

#39687554

zimkon

Гость

IFKzimkon, так тоже работает и с тем же эффектом - аутлук стартует и разворачивается на весь экран. :)
Значит какая-то ошибка у тебя в коде. Ищи, используй отладчик и пр.

...

Рейтинг:

0 / 0

14.08.2018, 15:31

| Ответить | Цитировать | Написать

Outlook is Access

#39687559

zimkon

Гость

IFKzimkon, пардон, игнор последнего поста - так не работает. :(
Странно...

...

Рейтинг:

0 / 0

14.08.2018, 15:40

| Ответить | Цитировать | Написать

Outlook is Access

#39687579

Игортан

Участник

Откуда: Беларусь

Сообщения: 901

Рейтинг: 0 / 0

zimkonт.е. если OutLook уже загружен, пользуемся GetObject, в противном случае CreateObject

сейчас у себя проверил на win10(офис 10). Раньше так же себя вел на win xp офис 07
при попытке открыть просто через ярлык, открывает второй экземпляр оутлука.
И когда программно через CreateObject
было поведение такое же.

Экземпляры здесь не причем.

...

Рейтинг:

0 / 0

14.08.2018, 15:56

| Ответить | Цитировать | Написать

Outlook is Access

#39687584

Игортан

Участник

Откуда: Беларусь

Сообщения: 901

Рейтинг: 0 / 0

Игортан,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

      ' получаем объект Outlook----------------------------------------------------------------------------------1
30    Set OL_App = CreateObject("Outlook.Application")

      'получаем Namespace   'OL_NameSpace.SyncObjects.Item(1).Start   ' команда отправить/получить outlook
40    Set OL_NameSpace = OL_App.GetNamespace("MAPI")

      ' получаем ссылку на папку Входящие
50    Set OL_myItems = OL_NameSpace.GetDefaultFolder(6).Items

по ходу NameSpace забыли

...

Рейтинг:

0 / 0

14.08.2018, 16:00

| Ответить | Цитировать | Написать

Outlook is Access

#39687637

IFK

Гость

Игортан, нафига? Это же Акс, а не VB.net или я что-то пропустил?

...

Рейтинг:

0 / 0

14.08.2018, 16:55

| Ответить | Цитировать | Написать

Outlook is Access

#39687711

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

IFK, может outlook не знает куда сохранить?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
Set mpfInbox = objOutlook.Session.GetDefaultFolder(5)' отправленные
Set mpf = mpfInbox.Folders.Item("Контрагентам")
With objOutlookMsg
' ...

 .Sensitivity = 0
        Set .SaveSentMessageFolder = mpf' сохраняем сюда наше сообщение
        .Display
end with

...

Рейтинг:

0 / 0

14.08.2018, 18:43

| Ответить | Цитировать | Написать

Outlook is Access

#39687737

Игортан

Участник

Откуда: Беларусь

Сообщения: 901

Рейтинг: 0 / 0

IFKИгортан, нафига? Это же Акс, а не VB.net или я что-то пропустил?
Так для него Outlook это не он же сам, хоть и близкий родственник.
В Excel же тоже нужно указать не только книгу, но и страницу.
Да и объектная модель у Outlook отличается от аксовской.

А этот кусок кода я взял из своего рабочего модуля по работе с почтой.

...

Рейтинг:

0 / 0

14.08.2018, 20:17

| Ответить | Цитировать | Написать

Outlook is Access

#39687895

Сергей Лалов

Участник

Откуда: localhost SPB

Сообщения: 2 049

Рейтинг: 0 / 0

Можно попроще, использовать топорный ДуЦмд, куда нить туда вставить:

Код: vbnet

DoCmd.SendObject , "vlozhenie imya" , , "komu", "v kopii", , "naznanie pisma", "tekst pisma"

Выручает, когда особо не надо заморачиваться с отправкой писем.

CreateObject("Outlook.Application") использую для отправки красивых писем только, когда таблицу HTML нужно нарисовать в теле письма, или стили к тексту применить. CreateObject("Outlook.Application") больше жрет памяти и медленней работает.

...

Рейтинг:

0 / 0

15.08.2018, 10:28

| Ответить | Цитировать | Написать

Outlook is Access

#39687942

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

Сергей Лалов, у него есть существенное ограничение: Attachment только один можно прицепить, да и сохраняется не в нужной папке. многие один раз сделали класс для работы с аутлуком универсальный, и все.

...

Рейтинг:

0 / 0

15.08.2018, 11:28

| Ответить | Цитировать | Написать

Outlook is Access

#39688228

Сергей Лалов

Участник

Откуда: localhost SPB

Сообщения: 2 049

Рейтинг: 0 / 0

aleckoСергей Лалов, у него есть существенное ограничение: Attachment только один можно прицепить, да и сохраняется не в нужной папке. многие один раз сделали класс для работы с аутлуком универсальный, и все.

Та не, прицепить можно сколько угодно, создайте коллекцию, напихайте сколько угодно файлов в эту коллекцию и потом эту коллекцию подставьте в attachment)

А вот по поводу сохранения не в той папке немного не понятно, не может такого быть) Можете ваш весь код выложить, попробуем отрихтовать.

...

Рейтинг:

0 / 0

15.08.2018, 15:46

| Ответить | Цитировать | Написать

25 сообщений из 29, страница 1 из 2

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Outlook is Access

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39687443&tid=1611232]:	0ms
get settings:	8ms
get forum list:	11ms
check forum access:	4ms
check topic access:	4ms
track hit:	154ms
get topic data:	9ms
get forum data:	2ms
get page messages:	51ms
get tp. blocked users:	1ms
others:	14ms

total:	258ms