在mailitem中使用.VotingResponse

时间:2019-07-10 20:22:10

标签: access-vba

我在Access中使用VBA发送带有“批准;拒绝”投票选项的电子邮件。使用投票功能对电子邮件进行操作后,我希望将其转发到通用电子邮件地址。

在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代码中指定)电子邮件。

0 个答案:

没有答案