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