Использование .VotingResponse в mailitem - PullRequest
Новая
       37

Использование .VotingResponse в mailitem

0 голосов
/ 10 июля 2019

Я использую VBA в Access для отправки электронного письма с опциями голосования «Одобрить; Отклонить». Как только письмо будет обработано с использованием функции голосования, я бы хотел, чтобы оно было отправлено на общий адрес электронной почты.

В Outlook функция, которую я ищу, доступна с помощью свойств отслеживания голосования (параметры доставки, отправлять ответы) 

With oMail
  ssubject = "Vacation Request - " & fname & " " & lname
  sbody = "Vacation request details are as follows:" & Chr(13) & Chr(13) & "Start Date:  " & sdate & Chr(13) & "End Date:   " & edate & Chr(13) & "Total Hours Requested: " & totaldays * 8
  If holidaycnt > 0 Then
    sbody = sbody & Chr(13) & "Holidays included in date range: " & holidaycnt
  End If
  If halfday = True Then
    sbody = sbody & Chr(13) & "Half Day:     "
    If AM = True Then
      sbody = sbody & "AM"
    Else
      sbody = sbody & "PM"
    End If
  End If
  If Not IsNull(scomments) Then
    sbody = sbody & Chr(13) & "Requestor Comments: " & scomments
  End If
  sbody = sbody & Chr(13) & Chr(13) & "Please process this request using the Vacation Tracker database."
  .Subject = ssubject
  .Body = sbody
  .VotingOptions = "Approve;Reject"

  If Testing = True Then
    .To = aeemai2
  Else
    .To = supemail
  End If
  .Send 'this sends the mail
  sentemails = True
End With
Set oMail = Nothing

Ожидаемые результаты будут, когда пользователь получит электронное письмо и проведет Голосование и выберет «Отправить ответ сейчас», если полученное электронное письмо будет отправлено на другой адрес электронной почты (который я хочу указать в коде VBA), чем адрес электронной почты инициатора электронной почты.

...