Создаем правило, когда приходит письмо от определенного адресата, запускается скрипт, который: Cкрипт автоматически переделывает письмо в задачу, "Тема письма - Тема задачи", "Текст в письме - описание задачи", "Срок задачи - сегодня"
Или другой скрипт, который при принятии задачи её переадресовывает отправителю, при этом сохраняет и срок и Тему... Нашел в интернете вот этот скрипт (но он у меня почему-то не работает): [vba]
Код
Sub AssignTask(myItem As Outlook.MailItem)
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Set myItem = Application.CreateItem(olTaskItem)
myItem.Assign Set myDelegate = myItem.Recipients.Add("test@qwerty.ru")
myDelegate.Resolve
If myDelegate.Resolved Then myItem.Subject = "test" myItem.DueDate = Now myItem.Display myItem.Send End If
End Sub
[/vba]
Заранее большое спасибо!!!
Добрый день!
Прошу помощи в написании скрипта.
Создаем правило, когда приходит письмо от определенного адресата, запускается скрипт, который: Cкрипт автоматически переделывает письмо в задачу, "Тема письма - Тема задачи", "Текст в письме - описание задачи", "Срок задачи - сегодня"
Или другой скрипт, который при принятии задачи её переадресовывает отправителю, при этом сохраняет и срок и Тему... Нашел в интернете вот этот скрипт (но он у меня почему-то не работает): [vba]
Код
Sub AssignTask(myItem As Outlook.MailItem)
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Set myItem = Application.CreateItem(olTaskItem)
myItem.Assign Set myDelegate = myItem.Recipients.Add("test@qwerty.ru")
myDelegate.Resolve
If myDelegate.Resolved Then myItem.Subject = "test" myItem.DueDate = Now myItem.Display myItem.Send End If
Самому показалось интересно использовать такой скрипт. Тестировал на Outlook 2010:
[vba]
Код
' Для правила создания задачи из письма, Роман "Rioran" Воронов ' За основу взят код: https://www.slipstick.com/outlook/rules/create-task-email-rule/ Sub Rio_Mail_to_Task(Item As Outlook.MailItem) Dim objTask As Outlook.TaskItem Set objTask = Application.CreateItem(olTaskItem) With objTask .Subject = Item.Subject .DueDate = Date .ReminderTime = Date .Body = Item.Body .Save End With Set objTask = Nothing End Sub
[/vba]
Lord777, здравствуйте.
Самому показалось интересно использовать такой скрипт. Тестировал на Outlook 2010:
[vba]
Код
' Для правила создания задачи из письма, Роман "Rioran" Воронов ' За основу взят код: https://www.slipstick.com/outlook/rules/create-task-email-rule/ Sub Rio_Mail_to_Task(Item As Outlook.MailItem) Dim objTask As Outlook.TaskItem Set objTask = Application.CreateItem(olTaskItem) With objTask .Subject = Item.Subject .DueDate = Date .ReminderTime = Date .Body = Item.Body .Save End With Set objTask = Nothing End Sub