title: Does PropertyAccessor work in VBScript?
body: <p>I can't get this to work. Anytime I use VBScript with the .PropertyAccessor I get an error. "Ojbect doesn't support this property or method: 'PropertyAccessor' - Code: 800A01B6"</p>
  
  <pre><code>Const PR_ATTACH_MIME_TAG = "http://schemas.microsoft.com/mapi/proptag/0x370E001E"
  Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"
  Const PR_ATTACHMENT_HIDDEN = "http://schemas.microsoft.com/mapi/proptag/0x7FFE000B"
  
  
  
  Dim ToAddress
  Dim FromAddress
  Dim MessageSubject
  Dim MyTime
  Dim MessageBody
  Dim MessageAttachment
  Dim ol, ns, newMail
  Dim realAttachment
  MyTime = Now
  
  ToAddress = "testing@address.com"
  MessageSubject = "Auto Stats " &amp; MyTime
  MessageBody = "Stats Attached" &amp; vbCrLf &amp; "Produced at " &amp; MyTime
  MessageAttachment = "f:\test\LOGO.jpg"
  Set Outlook = CreateObject("Outlook.Application")
  Set ns = Outlook.GetNamespace("MAPI")
  Set newMail = Outlook.CreateItem(olMailItem)
  newMail.Subject = MessageSubject
  newMail.Body = MessageBody
  newMail.Recipients.Add (ToAddress)
  Set realAttachment = newMail.Attachments.Add(MessageAttachment)
  Set oPA = realAttachment.PropertyAccessor
  oPA.SetProperty PR_ATTACH_MIME_TAG, "image/jpeg"
  oPA.SetProperty PR_ATTACH_CONTENT_ID, "myident" 'change myident for another other image
  newMail.HTMLBody = newMail.HTMLBody &amp; "&lt;IMG align=baseline border=0 hspace=0 src=cid:myident&gt;" 'need to match the "myident" above
  newMail.Display
  newMail.Send
  </code></pre>