ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / кнопка в панели outlook, вывод содержимого письма в msgbox
6 сообщений из 6, страница 1 из 1
кнопка в панели outlook, вывод содержимого письма в msgbox
    #38987163
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
Коллеги, добрый день!
Возникла небольшая проблема с освоением VBA outlook.
Подскажите пожалуйста по следующему вопросу:

В аутлуке, в общей панели есть кнопка, которая запускает макрос VBA.

Подскажите пожалуйста с текстом макроса. К примеру в общем списке писем я выделяю мышкой нужное письмо (оно выделено и находиться в фокусе).
В теле письма есть к примеру сообщение типа "Привет!"

Какой макрос нужно повесить на кнопку находящуюся в общей панели, чтобы VBA считало содержимое письма и вывело в msgbox сообщение из тела письма "Привет!"
...
Рейтинг: 0 / 0
18.06.2015, 16:58
| Ответить | Цитировать | Написать  
кнопка в панели outlook, вывод содержимого письма в msgbox
    #38987236
An12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
An12
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub GetBobyText()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim Item As Outlook.MailItem
Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection
k = myOlSel.Item(1).Body
MsgBox k
End Sub
...
Рейтинг: 0 / 0
18.06.2015, 17:48
| Ответить | Цитировать | Написать  
кнопка в панели outlook, вывод содержимого письма в msgbox
    #38987693
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
An12
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub GetBobyText()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim Item As Outlook.MailItem
Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection
k = myOlSel.Item(1).Body
MsgBox k
End Sub



Категорически вас благодарю! Именно то, что нужно, спасибо!
...
Рейтинг: 0 / 0
19.06.2015, 11:51
| Ответить | Цитировать | Написать  
кнопка в панели outlook, вывод содержимого письма в msgbox
    #38987970
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
An12,

Большое спасибо за ответ. Если не сложно , можете подсказать еще по одному вопросу?

Предположим, что в теле письма находится таблица HTML в удобном для обработки формате:
 
Код: html
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
<HTML DIR=LTR>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<TITLE>просчеты</TITLE>
</HEAD>
<BODY>
<TABLE DIR=LTR BORDER>
<CAPTION>просчеты</CAPTION>
<TR>
<TD DIR=LTR ALIGN=RIGHT>67</TD>
<TD DIR=LTR ALIGN=RIGHT>10,69</TD>
<TD DIR=LTR ALIGN=RIGHT>10,45</TD>
<TD DIR=LTR ALIGN=RIGHT>6</TD>
<TD DIR=LTR ALIGN=RIGHT>0,04</TD>
<TD DIR=LTR ALIGN=RIGHT>406</TD>
<TD DIR=LTR ALIGN=RIGHT>4343,38</TD>
<TD DIR=LTR ALIGN=RIGHT>4245,94</TD>
<TD DIR=LTR ALIGN=RIGHT>16,24</TD>
</TR>
<TR>
<TD DIR=LTR ALIGN=RIGHT>68</TD>
<TD DIR=LTR ALIGN=RIGHT>9,65</TD>
<TD DIR=LTR ALIGN=RIGHT>9,50</TD>
<TD DIR=LTR ALIGN=RIGHT>78</TD>
<TD DIR=LTR ALIGN=RIGHT>0,50</TD>
<TD DIR=LTR ALIGN=RIGHT>32</TD>
<TD DIR=LTR ALIGN=RIGHT>309,05</TD>
<TD DIR=LTR ALIGN=RIGHT>304,00</TD>
<TD DIR=LTR ALIGN=RIGHT>16,00</TD>
</TR>


</TABLE>
</BODY>
</HTML>



Подскажите пожалуйста, как можно экспортировать данную таблицу к примеру в excel либо аксесс. Циклом гнать муторно. Есть ли
возможность в теле письма зацепиться за имя либо подпись <caption> таблицы и загнать ее куда либо?
...
Рейтинг: 0 / 0
19.06.2015, 13:48
| Ответить | Цитировать | Написать  
кнопка в панели outlook, вывод содержимого письма в msgbox
    #38988312
An12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
An12
Гость
Сергей Лалов,

я в отпуск. беглый просмотр в нете дал ссылки
тут
тут1
...
Рейтинг: 0 / 0
19.06.2015, 16:30
| Ответить | Цитировать | Написать  
кнопка в панели outlook, вывод содержимого письма в msgbox
    #38988365
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
An12Сергей Лалов,

я в отпуск. беглый просмотр в нете дал ссылки
тут
тут1

Спасибо, буду ковырять, хорошо отдохнуть! Самое главное в гугл.поиске правильно набрать формулировку вопроса))
...
Рейтинг: 0 / 0
19.06.2015, 17:14
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / кнопка в панели outlook, вывод содержимого письма в msgbox
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=45&tid=2173463]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 14ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


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