I use the code below to successfully launch an Outlook email with an attached document. What I get is just the standard email format. I need code suggestions to have the email format with yes/no voting buttons. In another thread, it was suggested that this code would work if one were using Outlook automation:
olMail.VotingOptions = "Yes;No;I'm not sure;Can I get back to you?;I'd like to but I'm busy"
This doesn't work in my coding scheme. Ideas? (Please be gentle. I'm not good with highly technical language.)
--------------------------------------------
Note: terms such as getMail, getCAR etc are defined elsewhere in my code.
Dim varTo As Variant
Dim varCC As Variant
Dim varBCC As Variant
Dim varSubject As Variant
Dim varMessageText As Variant
Dim varEditMessage As Variant
Dim SName As Variant
Dim stDocName As String
stDocName = "rptCARReport"
varTo = getMail
varCC = ""
varBCC = ""
varSubject = "All Tasks Are Complete on CAR " & getCAR
varMessageText = "All tasks have now been completed on CAR " & getCAR & ". Please see attached."
varEditMessage = True 'Or False
DoCmd.SendObject acReport, stDocName, acFormatRTF, varTo, varCC, , varSubject, varMessageText, varEditMessage
olMail.VotingOptions = "Yes;No;I'm not sure;Can I get back to you?;I'd like to but I'm busy"
This doesn't work in my coding scheme. Ideas? (Please be gentle. I'm not good with highly technical language.)
--------------------------------------------
Note: terms such as getMail, getCAR etc are defined elsewhere in my code.
Dim varTo As Variant
Dim varCC As Variant
Dim varBCC As Variant
Dim varSubject As Variant
Dim varMessageText As Variant
Dim varEditMessage As Variant
Dim SName As Variant
Dim stDocName As String
stDocName = "rptCARReport"
varTo = getMail
varCC = ""
varBCC = ""
varSubject = "All Tasks Are Complete on CAR " & getCAR
varMessageText = "All tasks have now been completed on CAR " & getCAR & ". Please see attached."
varEditMessage = True 'Or False
DoCmd.SendObject acReport, stDocName, acFormatRTF, varTo, varCC, , varSubject, varMessageText, varEditMessage