Please hep getting runtime error '-2147319779 (8002801d)': automation error library not registerd

[Mohammad Shafaat]

Option Explicit



Sub SNAPSHOT()

Dim RNG As Range

Set RNG = Range("B2:O10")





''.............





Workbooks.Add

Dim CH As Chart

Set CH = Charts.Add

CH.Location xlLocationAsObject, "Sheet1"

Set CH = ActiveChart

RNG.CopyPicture xlScreen, xlBitmap

CH.Paste

CH.Export "D:\DBC\September-2018/DBC.Png"





'''Outlook -Early binding



Dim o As Outlook.Application

Set o = New Outlook.Application



Dim omail As Outlook.MailItem

Set omail = o.CreateItem(olmailitem)



With omail



.To = ""



.HTMLBody = "Hi Team Please find the Updated as on September Daily bill cut report," & "<Br>" & "<br>" & "<img src='D:\DBC\September-2018\DBC.Png'/>"



.Display



End With





End Sub

 

[Chihiro]

There are number of causes for this error. Use link and go through result to see which one applies to your case.
http://lmgtfy.com/?q=runtime+error+'-2147319779+(8002801d)'