Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
eritik
16 / 17 / 5
Регистрация: 14.09.2015
Сообщений: 92
#1

Перенос текста писем из Аутлук в Эксель

02.12.2015, 12:03. Просмотров 1324. Ответов 11
Метки нет (Все метки)

Добрый день.
Очень требуется помощь профессионалов.
Написал простенький макрос для формирования и отправки заявок.
Сотрудник заполняет простенькую форму в экселе, выбирает товар, услуги.. И отправляет заявку. Макрос обрабатывает собранные данные и формирует письмо в аутлуке.
Задача состоит теперь в том, чтобы мне на другом конце России собрать все заявки из почты и закинуть их в Эксель, где потом они будут проверены и преобразованы в счет- оферты.
Все получаемые письма одинакового сдандарта. Макрос должен пробегать только по непрочитаным письмам в определённой папке.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2015, 12:03
Ответы с готовыми решениями:

Спасите, пожалуйста, создать макрос, который запишет темы писем в Эксель
Помогите, пожалуйста, создать макрос, который запишет темы писем в Эксель. Я...

Перенос диаграммы из эксель в ворд
Есть такой макрос: Sub Макрос2() Dim objWord As Object Set objWord...

Перенос данных из тхт в эксель
Доброго всем времени суток! Есть программка которая переносит данные из тхт...

Перенос данных из столбца Эксель в Ворд
Приветствую спецов и всех. Извиняюсь, но ответа на форуме я не нашёл. Сам я ни...

Быстрый умный перенос дока в эксель
Добрый день, Господа!. Начну из далека. Недавно я начал своё путь в создании...

11
pashulka
2371 / 1203 / 485
Регистрация: 01.12.2010
Сообщений: 2,441
02.12.2015, 12:17 #2
У письма есть свойство UnRead и если его значение = True, то оно не прочитано.

P.S. А текст письма можно получить с помощью свойства Body
0
eritik
16 / 17 / 5
Регистрация: 14.09.2015
Сообщений: 92
02.12.2015, 12:34  [ТС] #3
Как я понимаю: сначала нужно обратиться к объекту аутлук, затем к объекту почта, затем к папке, затем пройти по папке и если письмо не АнРид тогда записать в ячейку 1.1, перейти к следующей ячейке и продолжить поиск
0
pashulka
2371 / 1203 / 485
Регистрация: 01.12.2010
Сообщений: 2,441
02.12.2015, 12:37 #4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UnReadMailBody()
    Dim objOutlook As Object, objNameSpace As Object
    Dim objFolder As Object, objMail As Object, iRow&
 
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNameSpace = objOutlook.GetNamespace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(6)
    'olFolderInbox 'Входящие
    
    Application.ScreenUpdating = False
   
    For Each objMail In objFolder.Items
        If objMail.UnRead = True Then
           iRow = iRow + 1: Cells(iRow, 1) = objMail.Body
        End If
    Next
    If iRow > 0 Then Columns(1).AutoFit
    
    Application.ScreenUpdating = True: objOutlook.Quit
End Sub
1
eritik
16 / 17 / 5
Регистрация: 14.09.2015
Сообщений: 92
02.12.2015, 13:59  [ТС] #5
как перейти к определенной папке\подпапке (входящие-Заявки-Заявки от Самары )?
0
pashulka
2371 / 1203 / 485
Регистрация: 01.12.2010
Сообщений: 2,441
02.12.2015, 14:08 #6
Visual Basic
1
2
3
Set objFolder = objNameSpace.GetDefaultFolder(6)
Set objFolder = objFolder.Folders("Заявки")
Set objFolder = objFolder.Folders("Заявки от Самары")
или

Visual Basic
1
Set objFolder = objNameSpace.GetDefaultFolder(6).Folders("Заявки").Folders("Заявки от Самары")
P.S. Слишком много заявок Входящие-Заявки-Самара
0
eritik
16 / 17 / 5
Регистрация: 14.09.2015
Сообщений: 92
02.12.2015, 14:12  [ТС] #7
спс
0
needle_ice
0 / 0 / 0
Регистрация: 09.03.2017
Сообщений: 6
09.03.2017, 18:35 #8
А может Вы и мне поможете - Помогите, пожалуйста, создать макрос, который запишет темы писем в Эксель.
Я вот никак, смогла сделать только, чтобы макрос сохранял вложения, а чтобы темы нет. Потом по вложениям хожу другим макросом и уже собираю наименование, чтобы понять какие отчеты пришли.

Но у нас есть отчеты ссылками, а не вложениями. Поэтому проблема не решена.

Добавлено через 4 часа 41 минуту
0
pashulka
2371 / 1203 / 485
Регистрация: 01.12.2010
Сообщений: 2,441
09.03.2017, 20:22 #9
needle_ice, Макрос для Excel

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Excel_MailsSubject()
    Dim objOutlook As Object, objNameSpace As Object
    Dim objFolder As Object, objMail As Object, iRow&
 
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNameSpace = objOutlook.GetNamespace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(6)
    'Входящие: olFolderInbox = 6
    
    Application.ScreenUpdating = False
   
    For Each objMail In objFolder.Items
        iRow = iRow + 1: Cells(iRow, 1) = objMail.Subject
    Next
    Columns(1).AutoFit
    
    Application.ScreenUpdating = True: objOutlook.Quit
End Sub
0
Мубариз
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 2
20.04.2017, 16:28 #10
eritik,
Добрый день. У меня тоже такая же проблемка. У тебя получилось ее решить??? Можешь подсказать?

Добавлено через 1 минуту
я не совсем хорошо понимаю эти коды и как заставить их работать. Сталкивался один раз с макросами при склонении падежей и все.
0
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27947 / 15666 / 959
Регистрация: 15.09.2009
Сообщений: 67,839
Записей в блоге: 78
20.04.2017, 16:28 #11
Мубариз, весь код выложен и доступен для обозрения.
что тебя конкретно не устраивает?
0
Мубариз
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 2
20.04.2017, 16:30 #12
pashulka,
Добрый день.
Очень требуется помощь профессионалов.
Написал простенький макрос для формирования и отправки заявок.
Сотрудник заполняет простенькую форму в экселе, выбирает товар, услуги.. И отправляет заявку. Макрос обрабатывает собранные данные и формирует письмо в аутлуке.
Задача состоит теперь в том, чтобы мне на другом конце России собрать все заявки из почты и закинуть их в Эксель, где потом они будут проверены и преобразованы в счет- оферты.
Все получаемые письма одинакового сдандарта. Макрос должен пробегать только по непрочитаным письмам в определённой папке.

можно более подробное решение этого вопроса?

Добавлено через 1 минуту
magirus,
код есть и это хорошо. я его скопировал и вставил в ексель. но как его связать с почтой.. никакие данные из почты в ексельь не переходят ведь
0
20.04.2017, 16:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2017, 16:30

Перенос текста в строке ListBox
Добрый вечер всем, подскажите как реализовать перенос текста в зависимости от...

Перенос ячейки по части текста
Добрый день, уважаемые профессионалы! Просьба помочь с решением задачи. В...

Перенос текста по сравнению ячеек
доброго времени суток. есть два листа Task Images и Images Data. На лист...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru