Код VBA для отправки Задачи назначенному лицу - PullRequest
Новая
       44

Код VBA для отправки Задачи назначенному лицу

0 голосов
/ 28 января 2020

У меня есть следующий код для отправки задачи из формы задачи, но по умолчанию это компьютер, на котором я подписан. Задачи go прямиком в Outlook и отображаются с информацией в следующем коде ниже.

В форме задания есть поле со списком, а в информации, прикрепленной к сотруднику, указан адрес электронной почты. Моя задача состоит в том, чтобы отправить Задачу «Назначенному человеку» и отобразить ее в качестве напоминания о задачах и в списке задач. 

Const olTaskItem = 3
Dim OlApp As Object
Dim OlTask As Object

Set OlApp = CreateObject("Outlook.Application")
Set OlTask = OlApp.CreateItem(olTaskItem)

With OlTask
    .subject = "Reminder for Reminder for the following Task: " & Me.Task_Title
    .Body = " This is a reminder from Access Records Managment 3 Days before the Due Date Reminder for the following Task : " & Me.Description & "  " & " is due on " & Me.Due_Date & " with a Status of - " & Me.Status
    .ReminderSet = True
    .DueDate = Me.Due_Date
    '.Status = Me.Status
    .Status = olTaskInProgress
    .ReminderTime = Me.Due_Date - 3 & " 8:00 AM"
    .Save

End With

MsgBox "Task has been set in Outlook Successfully.", vbInformation, "Task has been sent and Confirmed"

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

Заранее спасибо.

PS: я только начинаю писать код

...