VBA to Save Email and set Custom Properties

Discussion in 'Microsoft Outlook VBA Programming' started by anasazii, Dec 22, 2016.

  1. anasazii


    Dec 22, 2016
    Likes Received:
    I had a script that was working where from Outlook I saved my selected emails to a folder on my computer and then set some custom properties on the saved file (Comments, Author, Subject and Keywords to be exact).
    The script used the dsoFile.dll.

    I had to move to a new computer that is now Windows10, 64 bit, with Office 365 on it. My script no longer works.
    Is there any way to accomplish this without using the dsoFile.dll?
    The saving part still works, but I'd really like some way to set the custom properties as well.

    I've saved the dsoFile.dll on my system and have also downloaded and unzipped the 64 bit version.
    When I try registering either one on new system it fails (Module was loaded but the call to DllRegisterServer failed with error code 0x80070005)

    Here is the gist of the code that is no longer working...If I try running as is the code fails at the first line, ActiveX Component can't create object.

    Set objFile = CreateObject("DSOFile.OleDocumentProperties")
    objFile.Open (sPath & sName)

    objFile.SummaryProperties.Subject = sSubject
    objFile.SummaryProperties.Author = sSenderName
    objFile.SummaryProperties.Comments = sCom
    objFile.SummaryProperties.Keywords = sKey

    Thanks for any suggestions and please try to be detailed as possible as I don't work with VBA all that often!
    anasazii, Dec 22, 2016
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.