ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA определение количества вложений в письме
13 сообщений из 13, страница 1 из 1
VBA определение количества вложений в письме
    #38524174
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Добрый день!

Необходимо определить количество вложений в текущем письме, написал следующий код

Dim oMail As Outlook.MailItem
Set oMail = Outlook.Application.ActiveExplorer.Selection(1)
If oMail.Attachments.Count > 0 Then a = 0
Set oMail = Nothing

Но значение oMail.Attachments.Count всегда = 0 не понимаю почему ... подскажите что делаю не так ..
...
Рейтинг: 0 / 0
13.01.2014, 12:50
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524229
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Обычное дело для нефетченного рекордсета.
Перебери коллекцию аттачей.
...
Рейтинг: 0 / 0
13.01.2014, 13:12
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524243
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AkinaОбычное дело для нефетченного рекордсета.тогда должно быть -1, а автор утверждает, что 0 ))
...
Рейтинг: 0 / 0
13.01.2014, 13:21
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524317
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Akina, добрый день!

Вы имели ввиду так, я правильно понял:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim oMail As Outlook.MailItem
Dim att as Attachment
Set oMail = Outlook.Application.ActiveExplorer.Selection(1)

for each att IN oMail.Attachments
  Kol=oMail.Attachments.Count
next

If oMail.Attachments.Count > 0 Then a = 0
Set oMail = Nothing


Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
13.01.2014, 14:00
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524326
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Shocker.Pro, добрый день!
Уточните пож-ста: например я нажал кнопку "создать сообщение" то количество вложений будет = 0 или -1 ? (я новичок в этом)
...
Рейтинг: 0 / 0
13.01.2014, 14:03
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524340
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я не специалист по Аутлуку, не знаю, я просто прокомментировал высказывание Акина
...
Рейтинг: 0 / 0
13.01.2014, 14:12
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524436
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Не совсем так...

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

Или поступить так, как в MSDN ( http://msdn.microsoft.com/en-us/library/office/ff866435.aspx) - ввести соотв. переменную.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim oMail As Outlook.MailItem
Dim oAttachments As Outlook.Attachments 
Set oMail = Outlook.Application.ActiveExplorer.Selection(1)
Set oAttachments = oMail.Attachments
If oAttachments.Count > 0 Then a = 0
Set oAttachments = Nothing 
Set oMail = Nothing
...
Рейтинг: 0 / 0
13.01.2014, 15:02
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524568
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Akina, спасибо за ответ! Сейчас буду тестировать!

Подскажи пож-ста, по возможности, есть ли какое-нибудь событие по которому можно было бы отслеживать какую из кнопок нажал пользователь ("Создать новое сообщение", "Ответить всем", "Ответить", "Переслать").

Я написал программу на событие Item_Send и в ней я бы хотел проверить какую из кнопок нажимали ...

Пример (логика)

Код: vbnet
1.
2.
If Создать новое сообщение.Click=True then ...
If Ответить всем.Click=True then ...
...
Рейтинг: 0 / 0
13.01.2014, 15:49
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524687
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
igor171Я написал программу на событие Item_Send и в ней я бы хотел проверить какую из кнопок нажимали ...Полагаю, что в этот момент сведения о том, куда жал юзер, давно и безнадёжно утрачены... Да и зачем тебе это?
...
Рейтинг: 0 / 0
13.01.2014, 16:33
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524797
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Akina,

Я хотел разделять сообщения на которые отвечали ("ответить", "ответить всем", "переслать" - Пример 1) и новые сообщения (кнопка "создать сообщения" - Пример 2).

Пример 1:

From:Иванов Иван Иванович
Sent:31.12.2013
To: Петров Петр Петрович
Subject: Дифференицалы
Текст сообщения 3

From:Петров Петр Петрович
Sent:31.12.2013
To: Иванов Иван Иванович
Subject: Дифференицалы
Текст сообщения 2

From:Иванов Иван Иванович
Sent:31.12.2013
To: Петров Петр Петрович
Subject: Дифференицалы
Текст сообщения 1

В данном примере: в 1 письме 3 сообщения

Пример 2:
From:Иванов Иван Иванович
Sent:31.12.2013
To: Петров Петр Петрович
Subject: Дифференицалы
Текст сообщения 1

Если "Создать сообщение" то в 1 письме 1 сообщение
...
Рейтинг: 0 / 0
13.01.2014, 17:33
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38524871
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
igor171Я хотел разделять сообщения на которые отвечали ("ответить", "ответить всем", "переслать" - Пример 1) и новые сообщения (кнопка "создать сообщения" - Пример 2).Т.е. разобрать "кучу" на цепочки. Тогда, во-первых, непонятно, нахрена нужно количество вложений, во-вторых, где гарантия, что письмо,созданное нажатием "Создать", не является ответом (и наоборот - "Ответ" было нажато исключительно чтобы не забивать адрес руками или не искать его в адресной книге)...

Не валите всё в одну кучу - и по тодельности-то не очень получается...
...
Рейтинг: 0 / 0
13.01.2014, 18:22
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38525278
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Akina,

Я вас понял вариантов много(не сообразил). Вложения мне нужны будут в дальнейшем (для другой задачи).
Если не сложно подскажи:
Например: есть переписка из нескольких сообщений (Пример1: 3 сообщения)
Каким образом можно подсчитать количество сообщений в одной переписке?(то есть тема одна и та же и люди ее обсуждают,нажимая каждый раз "Ответить")
...
Рейтинг: 0 / 0
14.01.2014, 10:35
| Ответить | Цитировать | Написать  
VBA определение количества вложений в письме
    #38525318
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
igor171Например: есть переписка из нескольких сообщений (Пример1: 3 сообщения)
Каким образом можно подсчитать количество сообщений в одной переписке?(то есть тема одна и та же и люди ее обсуждают,нажимая каждый раз "Ответить")
Ну собственно в этом случае теоретически сабж исходного сообщения (триманутый есссно) есть конечная подстрока сабжей остальных сообщений... опять же можно в заголовках письма покопаться...
...
Рейтинг: 0 / 0
14.01.2014, 11:14
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA определение количества вложений в письме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38524871&tid=2156578]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 12ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]