Macro error ActiveX component can't create object: 'Outlook.Application'

[vipin_mishra479]

Hi All,

sub OvrallCstAnlysis

        Set vOlApp = CreateObject("Outlook.Application")

        Set vMessage = vOlApp.CreateItem(olMailItem)

ActiveDocument.Sheets("Overall Cost  Analysis").Activate

        set image = ActiveDocument.GetSheetObject ("CH10126")

ActiveDocument.GetApplication.WaitForIdle

image.CopyBitmapToClipboard

vMessage.GetInspector.WordEditor.Range.Paste

        vMessage.Subject = "Overall Cost  Analysis"

        vMessage.Display

end sub

Here i face problem ActiveX component can't create object: 'Outlook.Application'  when i run this macro in office 13

but when i run this macro in office 10 its work properly.

please help

[Anonymous]

Please check if you have selected option,

Allow system access and allow all macros.

[Gysbert_Wassenaar]

Make sure you don't have Outlook running. And you can try CreateObject("Outlook.Application.14")

[vipin_mishra479]

hi, thanx for reply.

But it is still giving same error as ActiveX component can't create object: 'Outlook.Application.14'

[vipin_mishra479]

hi,

it is already selected