Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Регистрация входящих писем Outlook в Excel - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Регистрация входящих писем Outlook в Excel (Макросы/Sub)
Регистрация входящих писем Outlook в Excel
Laa911 Дата: Суббота, 23.03.2019, 17:16 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 23.03.2019 в 08:38, в сообщении № 20 ()
Cells(iRow, 7) = objMail.CC

И куда ее вставлять эту волшебную строчку ? :-))
 
Ответить
Сообщение
Цитата bmv98rus, 23.03.2019 в 08:38, в сообщении № 20 ()
Cells(iRow, 7) = objMail.CC

И куда ее вставлять эту волшебную строчку ? :-))
Автор - Laa911
Дата добавления - 23.03.2019 в 17:16
Laa911 Дата: Суббота, 23.03.2019, 17:18 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 23.03.2019 в 00:28, в сообщении № 18 ()
Гиперссылку - скорее нет, а вот если иметь ID сообщения, то открыть уже получится


А как это в коде реализовать? что бы клик по сслочке и пиьсмо в отлуке открылоь?
 
Ответить
Сообщение
Цитата bmv98rus, 23.03.2019 в 00:28, в сообщении № 18 ()
Гиперссылку - скорее нет, а вот если иметь ID сообщения, то открыть уже получится


А как это в коде реализовать? что бы клик по сслочке и пиьсмо в отлуке открылоь?
Автор - Laa911
Дата добавления - 23.03.2019 в 17:18
bmv98rus Дата: Суббота, 23.03.2019, 17:30 | Сообщение № 23
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата Laa911, 23.03.2019 в 17:16, в сообщении № 21 ()
И куда ее вставлять эту волшебную строчку ? :-))

ну а если подумать, посмотреть и по аналогии вставить?
Цитата Laa911, 23.03.2019 в 17:18, в сообщении № 22 ()
что бы клик по сслочке и пиьсмо в отлуке открылоь?
вопрос не по теме.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Цитата Laa911, 23.03.2019 в 17:16, в сообщении № 21 ()
И куда ее вставлять эту волшебную строчку ? :-))

ну а если подумать, посмотреть и по аналогии вставить?
Цитата Laa911, 23.03.2019 в 17:18, в сообщении № 22 ()
что бы клик по сслочке и пиьсмо в отлуке открылоь?
вопрос не по теме.
Автор - bmv98rus
Дата добавления - 23.03.2019 в 17:30
Laa911 Дата: Среда, 27.03.2019, 00:41 | Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
С аналогиями тоже сложно :-( прямо совсем не программист :-(
 
Ответить
СообщениеС аналогиями тоже сложно :-( прямо совсем не программист :-(
Автор - Laa911
Дата добавления - 27.03.2019 в 00:41
Laa911 Дата: Воскресенье, 31.03.2019, 17:37 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Тут есть примеры... но тут тоже нужен программист -)

Вот тут https://docs.microsoft.com/ru-ru....dresses
есть примеры как извлекать,, ... но не понятно сможет ли это помочь в решение вопроса
 
Ответить
СообщениеТут есть примеры... но тут тоже нужен программист -)

Вот тут https://docs.microsoft.com/ru-ru....dresses
есть примеры как извлекать,, ... но не понятно сможет ли это помочь в решение вопроса
Автор - Laa911
Дата добавления - 31.03.2019 в 17:37
bmv98rus Дата: Воскресенье, 31.03.2019, 21:16 | Сообщение № 26
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
Dim objOutlook As Object, objNamespace As Object
Dim objFolder As Object, objMail As Object
Dim iRow&, iCount&, IdMail$
iRow = Cells(Rows.Count, "A").End(xlUp).Row
iCount = Application.Max(Range("A:A"))
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(6).Folders("Monitoring") '6=olFolderInbox
Application.ScreenUpdating = False
'On Error Resume Next
For Each objMail In objFolder.Items
IdMail = objMail.EntryID
If Application.CountIf(Range("G:G"), IdMail) = 0 Then
iRow = iRow + 1: iCount = iCount + 1
Cells(iRow, 1) = iCount
Cells(iRow, 2) = objMail.SenderName
Cells(iRow, 3) = objMail.SenderEmailAddress
Cells(iRow, 4) = objMail.Subject
Cells(iRow, 5) = objMail.CreationTime
Cells(iRow, 6) = Left(objMail.Body, 100)
Cells(iRow, 7) = IdMail '"'" & IdMail
Cells(iRow, 8) = objMail.CC               ' <============== СЮДА НАПРИМЕР

End If
Next
objOutlook.Quit
Application.ScreenUpdating = True
[/vba]

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[vba]
Код
Dim objOutlook As Object, objNamespace As Object
Dim objFolder As Object, objMail As Object
Dim iRow&, iCount&, IdMail$
iRow = Cells(Rows.Count, "A").End(xlUp).Row
iCount = Application.Max(Range("A:A"))
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(6).Folders("Monitoring") '6=olFolderInbox
Application.ScreenUpdating = False
'On Error Resume Next
For Each objMail In objFolder.Items
IdMail = objMail.EntryID
If Application.CountIf(Range("G:G"), IdMail) = 0 Then
iRow = iRow + 1: iCount = iCount + 1
Cells(iRow, 1) = iCount
Cells(iRow, 2) = objMail.SenderName
Cells(iRow, 3) = objMail.SenderEmailAddress
Cells(iRow, 4) = objMail.Subject
Cells(iRow, 5) = objMail.CreationTime
Cells(iRow, 6) = Left(objMail.Body, 100)
Cells(iRow, 7) = IdMail '"'" & IdMail
Cells(iRow, 8) = objMail.CC               ' <============== СЮДА НАПРИМЕР

End If
Next
objOutlook.Quit
Application.ScreenUpdating = True
[/vba]
Автор - bmv98rus
Дата добавления - 31.03.2019 в 21:16
Laa911 Дата: Вторник, 02.04.2019, 17:27 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Compile error Invalid outside procedure

и подсвечивает эту строчку

[vba]
Код
iRow = Cells(Rows.Count, "A").End([b]xlUp[/b]).Row
[/vba]


Сообщение отредактировал Laa911 - Вторник, 02.04.2019, 17:27
 
Ответить
СообщениеCompile error Invalid outside procedure

и подсвечивает эту строчку

[vba]
Код
iRow = Cells(Rows.Count, "A").End([b]xlUp[/b]).Row
[/vba]
Автор - Laa911
Дата добавления - 02.04.2019 в 17:27
Laa911 Дата: Вторник, 02.04.2019, 17:31 | Сообщение № 28
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Пробую вот этот код, но там какие то методы классы выбраны не те ж-(

Как правильно заменить закоммиченные строки, что бы скрипт подхватил емейлы из этих полей?

[vba]
Код

Private Sub Test()
Dim objOutlook As Object, objNamespace As Object, iRow&, iCount&
iRow = Cells(Rows.Count, "A").End(xlUp).Row
iCount = Application.Max(Range("A:A"))
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")

Application.ScreenUpdating = False
CreateArchive objNamespace.GetDefaultFolder(6), iRow, iCount '6=olFolderInbox
CreateArchive objNamespace.GetDefaultFolder(5), iRow, iCount '5=olFolderSentMail
objOutlook.Quit
Application.ScreenUpdating = True
End Sub

Private Sub CreateArchive(objFolder As Object, iRow&, iCount&)
'On Error Resume Next
Dim objMail As Object, IdMail$
For Each objMail In objFolder.Items
IdMail = objMail.EntryID
If Application.CountIf(Range("I:I"), IdMail) = 0 Then
iRow = iRow + 1: iCount = iCount + 1
Cells(iRow, "A") = iCount
Cells(iRow, "B") = objMail.SenderName '(тут выпадает почему то по ошибке в конце работы)
Cells(iRow, "C") = objMail.SenderEmailAddress
Cells(iRow, "D") = objFolder.Name
Cells(iRow, "E") = objMail.CreationTime
Cells(iRow, "F") = objMail.Subject
Cells(iRow, "G") = "'" & IdMail 'IdMail
'Cells(iRow, "E") = objMail.To
'Cells(iRow, "F") = objMail.CC
'Cells(iRow, "I") = Left(objMail.Body, 1067) 'Если тут поставить максимальное значение падает по переполнению памяти... по идее просто выводит текс заданной длины в ячейку

End If
Next
End Sub
[/vba]

Но эти строчки не работают
'Cells(iRow, "E") = objMail.To
'Cells(iRow, "F") = objMail.CC

вылетает ошибка, не знаю на что их надо заменить, что бы заработало

Подсмотрено тут
https://u.to/Bgv1FA


Сообщение отредактировал Laa911 - Вторник, 02.04.2019, 17:34
 
Ответить
СообщениеПробую вот этот код, но там какие то методы классы выбраны не те ж-(

Как правильно заменить закоммиченные строки, что бы скрипт подхватил емейлы из этих полей?

[vba]
Код

Private Sub Test()
Dim objOutlook As Object, objNamespace As Object, iRow&, iCount&
iRow = Cells(Rows.Count, "A").End(xlUp).Row
iCount = Application.Max(Range("A:A"))
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")

Application.ScreenUpdating = False
CreateArchive objNamespace.GetDefaultFolder(6), iRow, iCount '6=olFolderInbox
CreateArchive objNamespace.GetDefaultFolder(5), iRow, iCount '5=olFolderSentMail
objOutlook.Quit
Application.ScreenUpdating = True
End Sub

Private Sub CreateArchive(objFolder As Object, iRow&, iCount&)
'On Error Resume Next
Dim objMail As Object, IdMail$
For Each objMail In objFolder.Items
IdMail = objMail.EntryID
If Application.CountIf(Range("I:I"), IdMail) = 0 Then
iRow = iRow + 1: iCount = iCount + 1
Cells(iRow, "A") = iCount
Cells(iRow, "B") = objMail.SenderName '(тут выпадает почему то по ошибке в конце работы)
Cells(iRow, "C") = objMail.SenderEmailAddress
Cells(iRow, "D") = objFolder.Name
Cells(iRow, "E") = objMail.CreationTime
Cells(iRow, "F") = objMail.Subject
Cells(iRow, "G") = "'" & IdMail 'IdMail
'Cells(iRow, "E") = objMail.To
'Cells(iRow, "F") = objMail.CC
'Cells(iRow, "I") = Left(objMail.Body, 1067) 'Если тут поставить максимальное значение падает по переполнению памяти... по идее просто выводит текс заданной длины в ячейку

End If
Next
End Sub
[/vba]

Но эти строчки не работают
'Cells(iRow, "E") = objMail.To
'Cells(iRow, "F") = objMail.CC

вылетает ошибка, не знаю на что их надо заменить, что бы заработало

Подсмотрено тут
https://u.to/Bgv1FA
Автор - Laa911
Дата добавления - 02.04.2019 в 17:31
bmv98rus Дата: Среда, 03.04.2019, 14:36 | Сообщение № 29
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата Laa911, 02.04.2019 в 17:31, в сообщении № 28 ()
вылетает ошибка, не знаю на что их надо заменить, что бы заработало
Не надо менять нужно обработать ошибку, когда этих атрибутов нет. Снимите комментарий 'On Error Resume Next и все будет работать.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Цитата Laa911, 02.04.2019 в 17:31, в сообщении № 28 ()
вылетает ошибка, не знаю на что их надо заменить, что бы заработало
Не надо менять нужно обработать ошибку, когда этих атрибутов нет. Снимите комментарий 'On Error Resume Next и все будет работать.
Автор - bmv98rus
Дата добавления - 03.04.2019 в 14:36
Laa911 Дата: Среда, 03.04.2019, 15:10 | Сообщение № 30
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 03.04.2019 в 14:36, в сообщении № 29 ()
Не надо менять нужно обработать ошибку, когда этих атрибутов нет. Снимите комментарий 'On Error Resume Next и все будет работать.


не взлетает ;-(

Пишет

Compil Error Invalod outside procedure

И останавливается на той процедуре в строке [/b]End(xlUp)

[vba]
Код
iRow = Cells(Rows.Count, "A").End(xlUp).Row
[/vba]
 
Ответить
Сообщение
Цитата bmv98rus, 03.04.2019 в 14:36, в сообщении № 29 ()
Не надо менять нужно обработать ошибку, когда этих атрибутов нет. Снимите комментарий 'On Error Resume Next и все будет работать.


не взлетает ;-(

Пишет

Compil Error Invalod outside procedure

И останавливается на той процедуре в строке [/b]End(xlUp)

[vba]
Код
iRow = Cells(Rows.Count, "A").End(xlUp).Row
[/vba]
Автор - Laa911
Дата добавления - 03.04.2019 в 15:10
bmv98rus Дата: Среда, 03.04.2019, 16:10 | Сообщение № 31
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
У меня все работает.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеУ меня все работает.
Автор - bmv98rus
Дата добавления - 03.04.2019 в 16:10
Laa911 Дата: Среда, 03.04.2019, 16:47 | Сообщение № 32
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 03.04.2019 в 16:10, в сообщении № 31 ()
У меня все работает.

А можете в экселе своем тут выложить этот скрипт, может я его как-то не так запускаю? ;-(((
 
Ответить
Сообщение
Цитата bmv98rus, 03.04.2019 в 16:10, в сообщении № 31 ()
У меня все работает.

А можете в экселе своем тут выложить этот скрипт, может я его как-то не так запускаю? ;-(((
Автор - Laa911
Дата добавления - 03.04.2019 в 16:47
bmv98rus Дата: Среда, 03.04.2019, 16:49 | Сообщение № 33
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата Laa911, 03.04.2019 в 16:47, в сообщении № 32 ()
А можете в экселе своем тут выложить этот скрипт,
Не показалось, что это скорее Вы должны выложить свой с ошибками?

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Цитата Laa911, 03.04.2019 в 16:47, в сообщении № 32 ()
А можете в экселе своем тут выложить этот скрипт,
Не показалось, что это скорее Вы должны выложить свой с ошибками?
Автор - bmv98rus
Дата добавления - 03.04.2019 в 16:49
Laa911 Дата: Среда, 03.04.2019, 17:47 | Сообщение № 34
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 03.04.2019 в 16:49, в сообщении № 33 ()
Не показалось, что это скорее Вы должны выложить свой с ошибками?

Удалил файл и скопировал в него заново, и да заработало... не знаю почему ..
но из полей

'Cells(iRow, "E") = objMail.To
'Cells(iRow, "F") = objMail.CC

где-то вставляются емейлы, а где то имена, почемуто имя и емейл не вставляются... как это можно поправить?
Видимо еще какой то параметр или строчку кода надо добавить?

На пример:
Иванов Иаван Иванч, Petrov@mail.ru

Я думал должно быть Иванов Иван Иваныч ivanov@mail.ru , Петров Петр Петровичч Petrov@mail.ru
и так дале..
Но почему то у кого то почта, а у кого то имя полное без почты.... ;-(( у вас так же?


Сообщение отредактировал Laa911 - Среда, 03.04.2019, 18:07
 
Ответить
Сообщение
Цитата bmv98rus, 03.04.2019 в 16:49, в сообщении № 33 ()
Не показалось, что это скорее Вы должны выложить свой с ошибками?

Удалил файл и скопировал в него заново, и да заработало... не знаю почему ..
но из полей

'Cells(iRow, "E") = objMail.To
'Cells(iRow, "F") = objMail.CC

где-то вставляются емейлы, а где то имена, почемуто имя и емейл не вставляются... как это можно поправить?
Видимо еще какой то параметр или строчку кода надо добавить?

На пример:
Иванов Иаван Иванч, Petrov@mail.ru

Я думал должно быть Иванов Иван Иваныч ivanov@mail.ru , Петров Петр Петровичч Petrov@mail.ru
и так дале..
Но почему то у кого то почта, а у кого то имя полное без почты.... ;-(( у вас так же?
Автор - Laa911
Дата добавления - 03.04.2019 в 17:47
bmv98rus Дата: Среда, 03.04.2019, 20:25 | Сообщение № 35
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
В полях может быть просто адрес, а может отображаемое имя, в обоих случаях адрес будет в другом атрибуте, а именно
[vba]
Код

For Each rcpt In objMail.Recipients
If objMail.CC = rcpt.Name Then Debug.Print rcpt.Address
Next
[/vba]

вот эти rcpt.Address нужно видимо накопить и поместить в нужную вам ячейку

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Среда, 03.04.2019, 20:26
 
Ответить
СообщениеВ полях может быть просто адрес, а может отображаемое имя, в обоих случаях адрес будет в другом атрибуте, а именно
[vba]
Код

For Each rcpt In objMail.Recipients
If objMail.CC = rcpt.Name Then Debug.Print rcpt.Address
Next
[/vba]

вот эти rcpt.Address нужно видимо накопить и поместить в нужную вам ячейку
Автор - bmv98rus
Дата добавления - 03.04.2019 в 20:25
Laa911 Дата: Среда, 03.04.2019, 20:49 | Сообщение № 36
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
в смысле накопить и поместить?
А можно его вклеить в код выше правильным образом?
 
Ответить
Сообщениев смысле накопить и поместить?
А можно его вклеить в код выше правильным образом?
Автор - Laa911
Дата добавления - 03.04.2019 в 20:49
bmv98rus Дата: Четверг, 04.04.2019, 10:22 | Сообщение № 37
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Laa911, Форум - это не решалка любых проблем и не автомакрописалка. Если вам нужно готовое решение то Вам в платную ветку или ждать когда кому-то будет интересно слепить скрипт для вас. Мне это не интересно ни с одной из сторон, советы дал. последний
так как в поле TO и СС может находится несколько ресипиентов, то сранивать имя напрямую некорректно
[vba]
Код
For Each rcpt In objMail.Recipients
If objMail.CC = rcpt.Name Then Debug.Print rcpt.Address
Next
[/vba]

[vba]
Код
For Each rcpt In objMail.Recipients
If objMail.CC LIKE  "*" & rcpt.Name & "*" Then Debug.Print rcpt.Address
Next
[/vba]
но в этом случае могут быть ошибки при совпадении имен
или
[vba]
Код
arrRcpt = Split(objMail.CC, ";")
For i = 0 To UBound(arrRcpt)
    For Each rcpt In objMail.Recipients
        If arrRcpt(i) = rcpt.Name Then Debug.Print rcpt.Address
    Next
Next
[/vba]

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеLaa911, Форум - это не решалка любых проблем и не автомакрописалка. Если вам нужно готовое решение то Вам в платную ветку или ждать когда кому-то будет интересно слепить скрипт для вас. Мне это не интересно ни с одной из сторон, советы дал. последний
так как в поле TO и СС может находится несколько ресипиентов, то сранивать имя напрямую некорректно
[vba]
Код
For Each rcpt In objMail.Recipients
If objMail.CC = rcpt.Name Then Debug.Print rcpt.Address
Next
[/vba]

[vba]
Код
For Each rcpt In objMail.Recipients
If objMail.CC LIKE  "*" & rcpt.Name & "*" Then Debug.Print rcpt.Address
Next
[/vba]
но в этом случае могут быть ошибки при совпадении имен
или
[vba]
Код
arrRcpt = Split(objMail.CC, ";")
For i = 0 To UBound(arrRcpt)
    For Each rcpt In objMail.Recipients
        If arrRcpt(i) = rcpt.Name Then Debug.Print rcpt.Address
    Next
Next
[/vba]
Автор - bmv98rus
Дата добавления - 04.04.2019 в 10:22
Laa911 Дата: Четверг, 04.04.2019, 15:46 | Сообщение № 38
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо а куда его или вместо чего его надо вставлять?
И спасибо, что помогаете!
Прямо огромное спасибо!
Осталось как я понимаю еще чуть чуть, и будешь полноценный скрипт!
 
Ответить
СообщениеСпасибо а куда его или вместо чего его надо вставлять?
И спасибо, что помогаете!
Прямо огромное спасибо!
Осталось как я понимаю еще чуть чуть, и будешь полноценный скрипт!
Автор - Laa911
Дата добавления - 04.04.2019 в 15:46
Laa911 Дата: Вторник, 09.04.2019, 10:43 | Сообщение № 39
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 04.04.2019 в 10:22, в сообщении № 37 ()
но в этом случае могут быть ошибки при совпадении имен
или
arrRcpt = Split(objMail.CC, ";")
For i = 0 To UBound(arrRcpt)
For Each rcpt In objMail.Recipients
If arrRcpt(i) = rcpt.Name Then Debug.Print rcpt.Address
Next
Next


А можете правильно добавить этот кусок когда в общий код, что бы он заработал?
не все понимают, как работают все эти непонятные обычным людям буквицы, но многие из нас скажут Вам огромное спасибо!

Очень надеюсь, что сможете найти пару минут, что бы завершить этот прекрасный макрос...
Заранее огромное спасибо!


Сообщение отредактировал Laa911 - Вторник, 09.04.2019, 10:46
 
Ответить
Сообщение
Цитата bmv98rus, 04.04.2019 в 10:22, в сообщении № 37 ()
но в этом случае могут быть ошибки при совпадении имен
или
arrRcpt = Split(objMail.CC, ";")
For i = 0 To UBound(arrRcpt)
For Each rcpt In objMail.Recipients
If arrRcpt(i) = rcpt.Name Then Debug.Print rcpt.Address
Next
Next


А можете правильно добавить этот кусок когда в общий код, что бы он заработал?
не все понимают, как работают все эти непонятные обычным людям буквицы, но многие из нас скажут Вам огромное спасибо!

Очень надеюсь, что сможете найти пару минут, что бы завершить этот прекрасный макрос...
Заранее огромное спасибо!
Автор - Laa911
Дата добавления - 09.04.2019 в 10:43
biokir Дата: Четверг, 10.10.2019, 16:45 | Сообщение № 40
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго дня!

Кто знает как допилить данный код, чтобы выгружались письма с определенного ящика.
Например:
У меня в Outlook 5 почтовых ящиков:
1. name1@mail.ru (основной)
2. name2@mail.ru
3. name3@mail.ru
4. name4@mail.ru
5. name5@mail.ru

При использовании данного макроса выгружаются письма только из основного, как седлать чтобы выгружались с определенного ящика например name2@mail.ru .
Также пока не понял как выгружать только новые письма.

Заранее спасибо.
 
Ответить
СообщениеДоброго дня!

Кто знает как допилить данный код, чтобы выгружались письма с определенного ящика.
Например:
У меня в Outlook 5 почтовых ящиков:
1. name1@mail.ru (основной)
2. name2@mail.ru
3. name3@mail.ru
4. name4@mail.ru
5. name5@mail.ru

При использовании данного макроса выгружаются письма только из основного, как седлать чтобы выгружались с определенного ящика например name2@mail.ru .
Также пока не понял как выгружать только новые письма.

Заранее спасибо.
Автор - biokir
Дата добавления - 10.10.2019 в 16:45
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Регистрация входящих писем Outlook в Excel (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!