The following code works fine until I try to update the Remarks field when I get the following error: "Object doesn't support this property." Not sure what I'm doing wrong.
Dim OLApp As Outlook.Application
Dim OLMsg As Outlook.MailItem
Set OLApp = New Outlook.Application
Set OLMsg = OLApp.CreateItem(olMailItem)
With OLMsg
.Display
.To = [SubjectEMail]
.CC = [CCF_EMail] & "; " & [CC_Email]
.Subject = "Initial Assignment Notification"
.ReadReceiptRequested = True
.Body = [Grade] & " " & [Last Name] & ", " & vbCr & vbCr & "1. blah, blah, blah"
.Attachments.Add "C:\Users\Public\Documents\AssignIP.pdf"
Me.Remarks = Format(Date, "dd mmm yy") & ": Initial assignment notification requirements were sent to member on this date"
End With
Dim OLApp As Outlook.Application
Dim OLMsg As Outlook.MailItem
Set OLApp = New Outlook.Application
Set OLMsg = OLApp.CreateItem(olMailItem)
With OLMsg
.Display
.To = [SubjectEMail]
.CC = [CCF_EMail] & "; " & [CC_Email]
.Subject = "Initial Assignment Notification"
.ReadReceiptRequested = True
.Body = [Grade] & " " & [Last Name] & ", " & vbCr & vbCr & "1. blah, blah, blah"
.Attachments.Add "C:\Users\Public\Documents\AssignIP.pdf"
Me.Remarks = Format(Date, "dd mmm yy") & ": Initial assignment notification requirements were sent to member on this date"
End With