Как открыть outlook из excel
Если у вас в электронной таблице хранится много деловых или личных контактных данных, вы можете импортировать их прямо в Outlook 2013 или Outlook 2016 для Windows после минимальной подготовки. Существует три основных шага.
Сохраните Excel как CSV-файл.
Сое Excel таблицы с соответствующими Outlook таблицы.
Шаг 1. Сохранение Excel в CSV-файле
В Outlook можно импортировать файлы данных с разделами-запятами (CSV-файлы), но не книги с несколькими листами, поэтому в шаге 1 ваша книга Excel будет сохраняться как CSV-файл. Ниже описано, как это сделать.
в книге нажмите лист с контактными данными, которые нужно импортировать;
в меню Файл выберите команду Сохранить как;
выберите расположение для сохранения файла;
В окне Тип файла выберите CSV (разделители — запятые) (*.csv) и нажмите кнопку Сохранить.
Чтобы сохранить текущий Excel как CSV-файл, нажмите кнопку "Да". Исходная книга (XLSX-файл) закроется.
Все готово к Excel. Теперь вы можете начать импорт в Outlook.
Примечание: В некоторых языковых стандартах по умолчанию применяются другие разделители элементов списка. Например, для немецкого языка в качестве разделителя используется точка с запятой. Однако Outlook полей не поддерживается. По этой причине перед переходом к следующему шагу вам может потребоваться заменить точки с запятой в CSV-файле запятыми.
Шаг 2. Импорт контактов в Outlook
Примечание: Если CSV-файл импортируется в учетную запись Outlook.com (или другую учетную запись Exchange ActiveSync) в Outlook 2013, см. статью "Импорт контактов в учетную записьOutlook.com".
В верхней части ленты Outlook выберите "Файл".
Выберите "Открыть & экспорт > импорт иэкспорт.
Выберите пункт Импорт из другой программы или файла и нажмите кнопку Далее.
Совет: Если вам будет предложено ввести пароль и вы еще не задали его, нажмите кнопку Отмена, чтобы перейти к следующему окну.
Выберите пункт Значения, разделенные запятыми и нажмите кнопку Далее.
Перейдите к CSV-файлу, который нужно импортировать.
В разделе Параметры укажите, следует ли заменять дубликаты (существующие контакты), создавать дубликаты контактов или не импортировать их.
Убедитесь, что рядом с полем "MyContacts.csv" (предполагается, что это имя вашего файла) должен быть выбран.
Не нажимайте кнопку Готово, поскольку нужно сопоставить некоторые столбцы в CSV-файле с полями контактов в Outlook. Сопоставление позволит отображать контакты в нужном виде.
Шаг 3. Связывайте столбцы CSV-файла с полями Outlook контактов
В разделе Из вы увидите окно с именами столбцов из импортируемого CSV-файла.
В поле "В"вы увидите стандартные поля, которые используются Outlook для контактов. Если поле совпадает со столбцом в CSV-файле, столбец отобразится в разделе Сопоставлено из.
Поля "Имя","Имя" и "Фамилия" являются стандартными Outlook контактов, поэтому если контактные данные в файле имеют любые из этих имен контактов, можно приходить в него.
Возможно, вам потребуется вручную соедуть сопоставление. Например, в этом импортируемом файле сотовый телефон контакта находится в столбце "Сот. сот. сот.". Он не будет иметь точного совпадения в Outlook. Чтобы найти подходящее соответствие в Outlook:
прокрутите вниз список на панели справа, чтобы найти пункт Другой адрес и знак плюса (+) рядом с ним;
щелкнув знак плюса, чтобы развернуть его, вы увидите подходящее соответствие Мобильный телефон;
перетащите столбец Сот. тел. на панели слева в поле Мобильный телефон на панели справа.
Вы заметите, что столбец Сот. тел. теперь расположен рядом с полем Мобильный телефон в столбце Сопоставлено из.
Последовательно добавьте остальные значения с левой панели в соответствующие поля Outlook на правой панели. Например, значение Адрес можно перетянуть либо в Домашний адрес, либо в Рабочий адрес в зависимости от типа адреса в ваших контактах.
Контакты импортируется в Outlook.
Чтобы просмотреть контакты в Outlook 2016, в нижней части панели навигации выберите значок "Люди".
Дополнительные сведения
Если вы импортируете существующую папку контактов, переперейти к шагу 3.
Чтобы создать папку в Outlook, щелкните ее правой кнопкой мыши, выберите "Создать папку", введите имя новой папки и нажмите кнопку "ОК".
Откройте вкладку "Файл" на ленте и выберите в меню пункт "Открыть".
Щелкните вкладку "Импорт". Откроется мастер импорта и экспорта.
Выберите пункт Импорт из другой программы или файла и нажмите кнопку Далее.
Щелкните "Значения, разделенные запятой (Windows)и нажмите кнопку "Далее".
Если отображается не тот файл, нажмите кнопку Обзор, перейдите к папке, которая упоминается в шаге 3, а затем дважды щелкните файл, чтобы выбрать его.
При импорте в новую папку параметры параметров неактуальны, так как дубликатов нет. Если вы не импортируете ее в новую папку, выберите наиболее логический вариант. Если вы не уверены, что разрешить повторяющиеся записи, нажмите кнопку "Разрешить дубликаты", а затем нажмите кнопку "Далее".
Щелкните папку "Контакты" или другую созданную папку типа "Контакты" и нажмите кнопку "Далее".
Если вы не уверены, что имена столбцов в первой строке таблицы будут правильно соедополномы с полями Outlook, нажмите кнопку "Карта" для их проверки.
Если вы импортируете существующую папку контактов, переперейти к шагу 3.
Чтобы создать папку в Outlook, щелкните "Контакты", щелкните правой кнопкой мыши папку "Контакты", выберите "Создать папку", введите имя новой папки и нажмите кнопку "ОК".
В меню "Файл" выберите пункт "Импорт и экспорт".
Выберите "Импорт из другой программы или файла" и нажмите кнопку "Далее".
Щелкните "Значения, разделенные запятой (Windows)и нажмите кнопку "Далее".
Если отображается не тот файл, нажмите кнопку "Обзор", перейдите к папке, отмеченной в шаге 3, а затем дважды щелкните файл, чтобы выбрать его.
При импорте в новую папку параметры параметров неактуальны, так как дубликатов нет. Если нет, выберите наиболее логический вариант. Если вы не уверены, что разрешить повторяющиеся записи, нажмите кнопку "Разрешить дубликаты", а затем нажмите кнопку "Далее".
Щелкните папку "Контакты" или другую созданную папку типа "Контакты", в которую нужно импортировать контакты, и нажмите кнопку "Далее".
Если вы не уверены, что имена столбцов в первой строке таблицы будут правильно соедополномы с полями Outlook, нажмите кнопку "Карта" для их проверки.
Всем добрый день.
Прошу подсказать код макроса (если конечно это возможно), чтобы из Excel запускать Outlook если он не запущен!
Всем добрый день.
Прошу подсказать код макроса (если конечно это возможно), чтобы из Excel запускать Outlook если он не запущен! VIDEO56
Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
GetObject function or the CreateObject function
GetObject function or the CreateObject function
[offtop]Пользуясь удобным случаем, поделюсь давно терзающими меня смутными сомнениями, что при работающем Outlook (ранее запущенном) и CreateObject, и GetObject создают ссылку на этот ранее запущенный объект. По крайней мере, у меня следующий нехитрый код, который вроде как должен создавать новый экземпляр и тут же гасить его, на самом деле гасит ранее запущенный работающий Outlook.
[vba]
[/vba]Не гасит только в том случае, если в Outlook в данный момент есть какой-то несохраненный материал, например, недописанное письмо. Возможно, существует какой-то параметр, который отвечает за "множественность", но мне такой параметр не известен.
[offtop]Пользуясь удобным случаем, поделюсь давно терзающими меня смутными сомнениями, что при работающем Outlook (ранее запущенном) и CreateObject, и GetObject создают ссылку на этот ранее запущенный объект. По крайней мере, у меня следующий нехитрый код, который вроде как должен создавать новый экземпляр и тут же гасить его, на самом деле гасит ранее запущенный работающий Outlook.
[vba]
[/vba]Не гасит только в том случае, если в Outlook в данный момент есть какой-то несохраненный материал, например, недописанное письмо. Возможно, существует какой-то параметр, который отвечает за "множественность", но мне такой параметр не известен. Gustav
[offtop]Пользуясь удобным случаем, поделюсь давно терзающими меня смутными сомнениями, что при работающем Outlook (ранее запущенном) и CreateObject, и GetObject создают ссылку на этот ранее запущенный объект. По крайней мере, у меня следующий нехитрый код, который вроде как должен создавать новый экземпляр и тут же гасить его, на самом деле гасит ранее запущенный работающий Outlook.
[vba]
[/vba]Не гасит только в том случае, если в Outlook в данный момент есть какой-то несохраненный материал, например, недописанное письмо. Возможно, существует какой-то параметр, который отвечает за "множественность", но мне такой параметр не известен. Автор - Gustav
Дата добавления - 10.03.2016 в 18:22
Автор - Саня
Дата добавления - 11.03.2016 в 09:49
Но даже если удалить оператор Quit, то время жизни Outlook все равно будет ограничено временем выполнения процедуры test. Ситуация меняется, если вынести описание переменной Outlook из процедуры на уровень модуля:
[vba]
[/vba]
В этом случае Outlook остается в списке процессов по окончании процедуры, но пользователь по-прежнему его не видит на экране и работать с ним не может.
Sub showOutlook()
Dim olApp
Set olApp = CreateObject("Outlook.Application")
olApp.Session.GetDefaultFolder(6).Display '6 = olFolderInbox
End Sub
[/vba]
Разумеется, если мы хотим дальше работать с запущенным таким способом Outlook, то оператор olApp.Quit в нашей процедуре не нужен.
Но даже если удалить оператор Quit, то время жизни Outlook все равно будет ограничено временем выполнения процедуры test. Ситуация меняется, если вынести описание переменной Outlook из процедуры на уровень модуля:
[vba]
[/vba]
В этом случае Outlook остается в списке процессов по окончании процедуры, но пользователь по-прежнему его не видит на экране и работать с ним не может.
Sub showOutlook()
Dim olApp
Set olApp = CreateObject("Outlook.Application")
olApp.Session.GetDefaultFolder(6).Display '6 = olFolderInbox
End Sub
[/vba]
Разумеется, если мы хотим дальше работать с запущенным таким способом Outlook, то оператор olApp.Quit в нашей процедуре не нужен. Gustav
Но даже если удалить оператор Quit, то время жизни Outlook все равно будет ограничено временем выполнения процедуры test. Ситуация меняется, если вынести описание переменной Outlook из процедуры на уровень модуля:
[vba]
[/vba]
В этом случае Outlook остается в списке процессов по окончании процедуры, но пользователь по-прежнему его не видит на экране и работать с ним не может.
Sub showOutlook()
Dim olApp
Set olApp = CreateObject("Outlook.Application")
olApp.Session.GetDefaultFolder(6).Display '6 = olFolderInbox
End Sub
[/vba]
Разумеется, если мы хотим дальше работать с запущенным таким способом Outlook, то оператор olApp.Quit в нашей процедуре не нужен. Автор - Gustav
Дата добавления - 11.03.2016 в 12:05
Здравствуйте.
Как добавить в макрос условие, чтобы добавлялся определённый лист из файла?
И как добавить в условие, чтобы добавлялись определённые ячейки из листа?
Обязательно нужно через Range()Value
Шаблон выглядит так:
Sub Name()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Здравствуйте.
Как добавить в макрос условие, чтобы добавлялся определённый лист из файла?
И как добавить в условие, чтобы добавлялись определённые ячейки из листа?
Обязательно нужно через Range()Value
Шаблон выглядит так:
Sub Name()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Sub Name()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Как я понимаю, данный вопрос никогда не поднимался? Или же стоит перейти в раздел Работа/Фриланс? Baiden
Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
[vba]
Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
[vba]
Понимаю, думал, кто-то стесняется предложить решить данный вопрос за определённую плату, потому и спросил.
Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))
Если, более нет предложений, перенесу вопрос в коммерческий раздел. Благодарю за уделённое время.
Понимаю, думал, кто-то стесняется предложить решить данный вопрос за определённую плату, потому и спросил.
Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))
Если, более нет предложений, перенесу вопрос в коммерческий раздел. Благодарю за уделённое время. Baiden
Понимаю, думал, кто-то стесняется предложить решить данный вопрос за определённую плату, потому и спросил.
Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))
Если, более нет предложений, перенесу вопрос в коммерческий раздел. Благодарю за уделённое время. Автор - Baiden
Дата добавления - 28.09.2021 в 09:57
Здесь бесплатный раздел форума, не принято у нас просить деньги в таких разделах Автор - Serge_007
Дата добавления - 28.09.2021 в 11:10
Baiden, а идею из ссылки предложенной Serge_007 пробовали?
TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
Baiden, а идею из ссылки предложенной Serge_007 пробовали?
TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
Всем привет и хорошего настроения!
Один из вопросов на форуме подтолкнул меня к более развёрнутому решению, нежели запрашивалось пользователем =)
Макрос во вложении позволяет из ячеек подготовленной таблицы Excel создавать задачи в Outlook автоматически. Кнопка справа от таблицы.
Для корректной работы макроса надо заполнить имеющиеся в таблице поля. Строки должны идти подряд друг за другом, без пробелов. Особенность - в графу "напомнить в Х часов" надо вводить целое число, как и в графу по минутам. Заранее настроил возможность ввода только корректных значений.
И пусть работать Вам станет легче!
Dim OutApp As Object 'Для обращений к приложению Outlook
Dim OutTsk As Object 'Для создания задачи в Outlook
Dim shtX As Worksheet 'Для обращения к конкретному листу
Dim X As Long 'Для перебора создаваемых задач
Set shtX = ThisWorkbook.Worksheets("Задачник")
X = 2
Do While shtX.Cells(X, 1).Value <> 0
Set OutApp = CreateObject("Outlook.Application")
Set OutTsk = OutApp.CreateItem(3)
With OutTsk
.Subject = shtX.Cells(X, 1).Value 'Заголовок задачи
.Body = shtX.Cells(X, 2).Value 'Текст задачи
.ReminderSet = True 'Включить напоминание
Select Case shtX.Cells(X, 3).Value 'Выбираем важность
Case "Низкая": .Importance = 0
Case "Обычная": .Importance = 1
Case "Высокая": .Importance = 2
End Select
.StartDate = DateAdd("h", 10, shtX.Cells(X, 4).Value) 'Когда начать задачу
.DueDate = DateAdd("h", 10, shtX.Cells(X, 5).Value) 'Дата завершения
.ReminderTime = DateAdd("n", shtX.Cells(X, 7).Value * 60 + shtX.Cells(X, 8).Value, shtX.Cells(X, 6).Value) 'Дата напоминания
.Save
End With
X = X + 1
Loop
Set OutApp = Nothing
Set OutTsk = Nothing
Всем привет и хорошего настроения!
Один из вопросов на форуме подтолкнул меня к более развёрнутому решению, нежели запрашивалось пользователем =)
Макрос во вложении позволяет из ячеек подготовленной таблицы Excel создавать задачи в Outlook автоматически. Кнопка справа от таблицы.
Для корректной работы макроса надо заполнить имеющиеся в таблице поля. Строки должны идти подряд друг за другом, без пробелов. Особенность - в графу "напомнить в Х часов" надо вводить целое число, как и в графу по минутам. Заранее настроил возможность ввода только корректных значений.
И пусть работать Вам станет легче!
Dim OutApp As Object 'Для обращений к приложению Outlook
Dim OutTsk As Object 'Для создания задачи в Outlook
Dim shtX As Worksheet 'Для обращения к конкретному листу
Dim X As Long 'Для перебора создаваемых задач
Set shtX = ThisWorkbook.Worksheets("Задачник")
X = 2
Do While shtX.Cells(X, 1).Value <> 0
Set OutApp = CreateObject("Outlook.Application")
Set OutTsk = OutApp.CreateItem(3)
With OutTsk
.Subject = shtX.Cells(X, 1).Value 'Заголовок задачи
.Body = shtX.Cells(X, 2).Value 'Текст задачи
.ReminderSet = True 'Включить напоминание
Select Case shtX.Cells(X, 3).Value 'Выбираем важность
Case "Низкая": .Importance = 0
Case "Обычная": .Importance = 1
Case "Высокая": .Importance = 2
End Select
.StartDate = DateAdd("h", 10, shtX.Cells(X, 4).Value) 'Когда начать задачу
.DueDate = DateAdd("h", 10, shtX.Cells(X, 5).Value) 'Дата завершения
.ReminderTime = DateAdd("n", shtX.Cells(X, 7).Value * 60 + shtX.Cells(X, 8).Value, shtX.Cells(X, 6).Value) 'Дата напоминания
.Save
End With
X = X + 1
Loop
Set OutApp = Nothing
Set OutTsk = Nothing
Один из вопросов на форуме подтолкнул меня к более развёрнутому решению, нежели запрашивалось пользователем =)
Макрос во вложении позволяет из ячеек подготовленной таблицы Excel создавать задачи в Outlook автоматически. Кнопка справа от таблицы.
Для корректной работы макроса надо заполнить имеющиеся в таблице поля. Строки должны идти подряд друг за другом, без пробелов. Особенность - в графу "напомнить в Х часов" надо вводить целое число, как и в графу по минутам. Заранее настроил возможность ввода только корректных значений.
И пусть работать Вам станет легче!
Dim OutApp As Object 'Для обращений к приложению Outlook
Dim OutTsk As Object 'Для создания задачи в Outlook
Dim shtX As Worksheet 'Для обращения к конкретному листу
Dim X As Long 'Для перебора создаваемых задач
Set shtX = ThisWorkbook.Worksheets("Задачник")
X = 2
Do While shtX.Cells(X, 1).Value <> 0
Set OutApp = CreateObject("Outlook.Application")
Set OutTsk = OutApp.CreateItem(3)
With OutTsk
.Subject = shtX.Cells(X, 1).Value 'Заголовок задачи
.Body = shtX.Cells(X, 2).Value 'Текст задачи
.ReminderSet = True 'Включить напоминание
Select Case shtX.Cells(X, 3).Value 'Выбираем важность
Case "Низкая": .Importance = 0
Case "Обычная": .Importance = 1
Case "Высокая": .Importance = 2
End Select
.StartDate = DateAdd("h", 10, shtX.Cells(X, 4).Value) 'Когда начать задачу
.DueDate = DateAdd("h", 10, shtX.Cells(X, 5).Value) 'Дата завершения
.ReminderTime = DateAdd("n", shtX.Cells(X, 7).Value * 60 + shtX.Cells(X, 8).Value, shtX.Cells(X, 6).Value) 'Дата напоминания
.Save
End With
X = X + 1
Loop
Set OutApp = Nothing
Set OutTsk = Nothing
Огромное спасибо, только при вставке новой строки и добавлении записи создается очередное событие из первой записи-(
Огромное спасибо, только при вставке новой строки и добавлении записи создается очередное событие из первой записи-( Alterak
Alterak, старые записи тогда удаляйте. Этот файл может загружать очень много задач сразу, следить чтобы они все были новые - это уже компетенция пользователя. *9:50 - хотя можно написать код, который проверяет существующие задачи по заголовку. Но для меня это уже тянет не на спортивную, а на рабочую разработку под заказ*
Выложил файл повторно - добавил кнопку очистки. Убирает все задачи долой с экрана.
Alterak, старые записи тогда удаляйте. Этот файл может загружать очень много задач сразу, следить чтобы они все были новые - это уже компетенция пользователя. *9:50 - хотя можно написать код, который проверяет существующие задачи по заголовку. Но для меня это уже тянет не на спортивную, а на рабочую разработку под заказ*
Выложил файл повторно - добавил кнопку очистки. Убирает все задачи долой с экрана. Rioran
Выложил файл повторно - добавил кнопку очистки. Убирает все задачи долой с экрана. Автор - Rioran
Дата добавления - 03.07.2014 в 09:40
Rioran, Да вот в том то и дело что старые записи удалять не нужно. есть файл, в котором ежедневно дополняются пару десятков записей, в каждой записи ставится дата, иногда одна и та же дата, вот пользователь и хотел что бы в указанную дату появлялась напоминалка.
Rioran, Да вот в том то и дело что старые записи удалять не нужно. есть файл, в котором ежедневно дополняются пару десятков записей, в каждой записи ставится дата, иногда одна и та же дата, вот пользователь и хотел что бы в указанную дату появлялась напоминалка. Alterak
Alterak, Добрый день!
Вы получили какой-то ответ на свой запрос? у меня точно такая же задача, помогите, пожалуйста!
Alterak, Добрый день!
Вы получили какой-то ответ на свой запрос? у меня точно такая же задача, помогите, пожалуйста! happinesss123
Rioran, Добрый вечер!
А можно ли создать макрос для календаря Outlook (со всеми параметрами ввода). nika
nika, здравствуйте.
Создайте тему в разделе "Ексель и другие приложения", опишите подробно что должна делать программа и мы с форумчанами посмотрим, что можно сделать =)
nika, здравствуйте.
Создайте тему в разделе "Ексель и другие приложения", опишите подробно что должна делать программа и мы с форумчанами посмотрим, что можно сделать =) Rioran
Создайте тему в разделе "Ексель и другие приложения", опишите подробно что должна делать программа и мы с форумчанами посмотрим, что можно сделать =) Автор - Rioran
Дата добавления - 18.11.2014 в 21:17
happinesss123, здравствуйте.
Если поиск не помог, то Вам необходимо создать свою тему в разделе "Excel и другие приложения" с соблюдением правил раздела.
happinesss123, здравствуйте.
Если поиск не помог, то Вам необходимо создать свою тему в разделе "Excel и другие приложения" с соблюдением правил раздела. Rioran
Если поиск не помог, то Вам необходимо создать свою тему в разделе "Excel и другие приложения" с соблюдением правил раздела. Автор - Rioran
Дата добавления - 24.11.2014 в 17:22
Добрый день.
Подскажите, пожалуйста, есть ли способ назначать задачи другим пользователям?
Например, при отправке обычного письма указывается просто .To = "email.address". Можно ли аналогично указать "адресата" задачи?
Спасибо.
Добрый день.
Подскажите, пожалуйста, есть ли способ назначать задачи другим пользователям?
Например, при отправке обычного письма указывается просто .To = "email.address". Можно ли аналогично указать "адресата" задачи?
Спасибо. jscd
jscd, здравствуйте.
К сожалению, сейчас нет времени дорабатывать своё решение. Но зацепку с удовольствием дам.
Следующий код можно найти через автономную справку Outlook VBA-редактора. Внутри мои комментарии, это более чем достаточно, чтобы совместить с моим решением.
Dim myItem As Outlook.TaskItem 'Для создания задачи
Dim myDelegate As Outlook.Recipient 'Для добавления исполнителя
Set myItem = Application.CreateItem(olTaskItem) 'Создаётся задача
myItem.Assign 'Возводит задачу в ранг запроса к пользователям (TaskRequestItem)
Set myDelegate = myItem.Recipients.Add("Dan Wilson") 'Добавляется исполнитель
myDelegate.Resolve 'Проверяет, может ли указанный исполнитель получить задачу (корректно ли указано имя или адрес)
'Если исполнитель успешно добавлен, то готовим задачу
If myDelegate.Resolved Then
myItem.Subject = "Prepare Agenda For Meeting"
myItem.DueDate = Now + 30
myItem.Display
myItem.Send
End If
jscd, здравствуйте.
К сожалению, сейчас нет времени дорабатывать своё решение. Но зацепку с удовольствием дам.
Следующий код можно найти через автономную справку Outlook VBA-редактора. Внутри мои комментарии, это более чем достаточно, чтобы совместить с моим решением.
Dim myItem As Outlook.TaskItem 'Для создания задачи
Dim myDelegate As Outlook.Recipient 'Для добавления исполнителя
Set myItem = Application.CreateItem(olTaskItem) 'Создаётся задача
myItem.Assign 'Возводит задачу в ранг запроса к пользователям (TaskRequestItem)
Set myDelegate = myItem.Recipients.Add("Dan Wilson") 'Добавляется исполнитель
myDelegate.Resolve 'Проверяет, может ли указанный исполнитель получить задачу (корректно ли указано имя или адрес)
'Если исполнитель успешно добавлен, то готовим задачу
If myDelegate.Resolved Then
myItem.Subject = "Prepare Agenda For Meeting"
myItem.DueDate = Now + 30
myItem.Display
myItem.Send
End If
К сожалению, сейчас нет времени дорабатывать своё решение. Но зацепку с удовольствием дам.
Следующий код можно найти через автономную справку Outlook VBA-редактора. Внутри мои комментарии, это более чем достаточно, чтобы совместить с моим решением.
Dim myItem As Outlook.TaskItem 'Для создания задачи
Dim myDelegate As Outlook.Recipient 'Для добавления исполнителя
Set myItem = Application.CreateItem(olTaskItem) 'Создаётся задача
myItem.Assign 'Возводит задачу в ранг запроса к пользователям (TaskRequestItem)
Set myDelegate = myItem.Recipients.Add("Dan Wilson") 'Добавляется исполнитель
myDelegate.Resolve 'Проверяет, может ли указанный исполнитель получить задачу (корректно ли указано имя или адрес)
'Если исполнитель успешно добавлен, то готовим задачу
If myDelegate.Resolved Then
myItem.Subject = "Prepare Agenda For Meeting"
myItem.DueDate = Now + 30
myItem.Display
myItem.Send
End If
Rioran, спасибо.
На самом деле, свою задачу уже решил (как раз с использованием приведенного примера) и зашел, чтобы себе же и ответить:)
Очень много времени потратил на поиск хоть какого-то описания TaskRequestItem, но так и не нашел. Не поясните следующий момент - реквест нельзя создать как отдельный объект? Он получается только назначением TaskItem другому пользователю?
И еще один интересный момент .Add("Dan Wilson"). Порадовало, что можно указывать и почтовый адрес, и имя контакта. Но не совсем понятно что произойдет, если есть два контакта с одним именем, но разными адресами. Resolve как-то решит эту ситуацию или задачи уйдут сразу всем?
Rioran, спасибо.
На самом деле, свою задачу уже решил (как раз с использованием приведенного примера) и зашел, чтобы себе же и ответить:)
Очень много времени потратил на поиск хоть какого-то описания TaskRequestItem, но так и не нашел. Не поясните следующий момент - реквест нельзя создать как отдельный объект? Он получается только назначением TaskItem другому пользователю?
И еще один интересный момент .Add("Dan Wilson"). Порадовало, что можно указывать и почтовый адрес, и имя контакта. Но не совсем понятно что произойдет, если есть два контакта с одним именем, но разными адресами. Resolve как-то решит эту ситуацию или задачи уйдут сразу всем? jscd
Если вы хотите часто использовать определенный файл Excel при работе в Outlook, вам нужно время от времени открывать этот файл. Есть ли какой-нибудь быстрый и простой способ открыть указанный файл книги из Outlook? В этой статье я расскажу о том, как это решить.
Откройте определенный файл Excel из Outlook с кодом VBA
Вы можете использовать следующий код VBA, чтобы открыть файл книги по умолчанию по мере необходимости, сделайте следующее:
1. В Outlook нажмите и удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2, Затем нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: откройте определенный файл Excel из Outlook:
Внимание: В приведенном выше коде вы должны изменить путь к файлу Excel: C: \ Users \ DT168 \ Desktop \ разделить документ \ kto-data.xlsx к вашим собственным.
3. А потом еще в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Рекомендации , чтобы перейти к Ссылки-Project1 диалоговое окно и установите флажок Библиотека объектов Microsoft Excel из файла Доступные ссылки список, см. снимок экрана:
4, Затем нажмите OK кнопку, чтобы выйти из диалогового окна, сохранить и закрыть окно кода. Теперь вы должны добавить этот код в Панель быстрого доступа.
5. В главном интерфейсе Outlook нажмите Настройка панели быстрого доступа значок и выберите Дополнительные команды, см. снимок экрана:
6. В Параметры Outlook диалоговое окно:
- (1.) Выберите Макрос из Выберите команды из раскрывающийся список;
- (2.) Затем выберите кодовое имя VBA, которое вы только что вставили;
- (3.) Щелкните Добавить кнопку, чтобы добавить код в Настройка панели быстрого доступа список.
7. И затем значок макроса отображается в Панель быстрого доступа как показано на следующем снимке экрана. С этого момента, когда вы нажмете эту кнопку, ваш указанный файл Excel будет открыт сразу.
Читайте также: