Задачи Outlook для внешнего клиента - PullRequest
Новая
       20

Задачи Outlook для внешнего клиента

0 голосов
/ 14 марта 2019

Я создал VBA-скрипт для автоматизации генерации задач из списка Excel (протокол встречи). Цель состоит в том, чтобы в конце собрания отправить все задачи получателям, указанным в столбце владельца действия.

В настоящий момент скрипт работает нормально и генерирует задачи, однако, когда я отправляю их на внешний адрес обмена, они получают файл в виде вложения и с разобщенной половиной электронного письма. Смотрите изображение здесь:

https://imgur.com/0YsBuCW

Нет никаких элементов управления внешним видом (Принять, Отклонить и т. Д.), И у него нет функции задач, которая связана с моей папкой задач.

Я попытался настроить параметры отправки почты по умолчанию на формат Rich Text Outlook вместо преобразования в HTML, но не увидел никакой разницы.

Есть ли способ заставить эту работу? 

Sub tasks()

Dim OutApp As Outlook.Application
Set OutApp = CreateObject("Outlook.Application")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Dim OutTask As Outlook.TaskItem
Dim myRecipient As Outlook.Recipient
Dim TaskRange As Integer
Dim i
TaskRange = Range("a" & Rows.Count).End(xlUp).Row

'start of loop

For i = 2 To TaskRange

Set OutTask = OutApp.CreateItem(olTaskItem)

Set myRecipient = OutTask.Recipients.Add(Cells(i, "H"))
    myRecipient.Type = olTo
    myRecipient.Resolve
 If myRecipient.Resolved Then
    With OutTask
    .Display
       .Subject = Cells(i, "B")
       .StartDate = Now
       .ReminderSet = True
       .DueDate = Cells(i, "C")
       .Body = Cells(i, "D") & vbNewLine & Cells(i, "F")
        .Assign
        .Display
      WshShell.SendKeys "%s"
      WshShell.SendKeys "~"
        .Save
    End With
End If
Set OutTask = Nothing
Next i

' end of loop


End Sub
...