help coding message options

  • Thread starter Thread starter JC
  • Start date Start date
J

JC

I have an accerss application that can send e-mails using outlook.
code sample below
Private Sub CMDSendEmail1_Click()
On Error GoTo Err_cmdSendEmail1_Click

Dim strEmailMessage As String
Dim strCC As String
Dim StrRcvdDate As String
Dim strDueDate As String
Dim StrSubject As String
Dim StrImportance As String


StrRcvdDate = Forms![Data FORM].Form![DateReceived]
'the due date for signoff

'the text of the message, use chr(10) for line breaks
strEmailMessage = "Please review the attached document, Approve or
Reject BY Email. Please email Medco Finance Contracts Admin the revised
Form." & Chr(10) & Chr(10) & "Thank You!" & Chr(10) & Chr(10) & "Adjustment
Administrator"


want to add as a string the appropriate parameters for Message Options
Importance, Voting, Category as well as fowarding based on criteria can
anyone help me
 
When you create the MailItem and set an object reference, you can add
those parameters. For example:

Dim Outlook As Outlook.Application
Dim OutlookMsg As Outlook.MailItem

Set Outlook = CreateObject("outlook.application")
Set OutlookMsg = Outlook.CreateItem(olMailItem)

With OutlookMsg
.Importance = olImportanceHigh
.Categories = "Something here"
.VotingOptions = "Accept;Reject"
End With



HTH,
JP
 
Back
Top