Run-time error '-2147319779 (8002801d)':

[blakec4]

I have all of a sudden getting the error:

Run-time error '-2147319779 (8002801d)':
Method 'MailEnvelope' of object'_Worksheet' failed​

when I run the following code:

Range("A1:E100").Select

ActiveWorkbook.EnvelopeVisible = True         ' Show the envelope on the ActiveWorkbook.     

[B][COLOR=#b22222]With ActiveSheet.MailEnvelope[/COLOR][/B]                      <--------    Errors on this line
         .Introduction = [t_BodyText]
         .Item.To = [t_SendTo]
         .Item.CC = [t_SendCC]
         .Item.Subject = [t_SubjectLine]
         .Item.Send
End With

In my research, I get the "DLL file not registered" but never get an indication which DLL file is not registered.

This problem occurred when enterprise upgraded "Lync" to "Skype for Business".

I got as far as "You will need to reinstall your office components" (I did but with not resolution) to rebuild your windows (Will not do that...)

I did find one other person that had the same issue but could not get a response as to their resolution.

Any help would be appreciated.
Steve

 

[RedBeard]

Have you looked in Tools -> References?

 

[blakec4]

Yes. I like where you are going. I have enabled the following:

• Visual Basic for Applications
• Microsoft Excel 14.0 Object Library
• OLE Automation
• Microsoft Office 14.0 Object Library
• Microsoft Visual Studio Project Model (9.0)
• Microsoft XML, v6.0
• Microsoft SQL Server PowerPivot for Microsoft Excel

Thanks,
Steve

 

[RedBeard]

This might be of use: https://answers.microsoft.com/en-us...t-method/1f5cc9ab-1996-4763-bed6-a0f0bc45ac95

 

[blakec4]

Nice find but two of the links were dead and suspect my solution could be there. Bottom line, I am still unsuccessful. Thanks for the lead.
Bottom line, I did the repair AND reinstall to no avail. I also saved before evoking the macro with no luck.

Appreciate the great lead and this will help others.

 

[dks54]

Steve,
Hope you're not still banging your head on this one. I just ran in to the same scenario. User's on Office 2013 and Enterprise pushed out SFB 2016. Had the same VBA code creating emails from an Excel spreadsheet.
Digging around, seems like SFB doesn't expect to be the sole 2016 app loaded and adds some keys so the 2013 apps can no longer find each other. Greatly simplifying with that explanation but the solution that worked for me was listed under a Word mail merge problem. Remove HKEY_CLASSES_ROOT\TypeLib\{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}\2.8.
I like Microsoft's first workaround "[FONT=&quot]Upgrade all Office applications to Office 2016 for the best user experience." [/FONT][FONT=&quot]
[/FONT]https://support.microsoft.com/en-us/help/3178867/word-mail-merge-doesn-t-work-after-you-install-skype-for-business-basi
David