Search results

CreateItem(olMailItem) End with I just added two lines of codes. have you tried all suggestion provided by others and me？

Dim myOlApp As Outlook.Application Dim myitem As Outlook.MailItem Dim n As Integer Dim sUsername As String sUsername = Environ$("username") Dim filesPath AsString Set myOlApp = CreateObject("Outlook.Application") filesPath = Environ$("USERPROFILE") Set myitem = myOlApp...

try to run this code under EXCEL or Word VBA. if still occurs error, I am afraid you have to reinstall your office to fix this problem. your register probably has been destroyed.

I just created a commandbar as I posted last time. please check my upload to find a module with name modCreateCommandbar where you can find detail how to add a commandbar with codes. I think you probably have not imported custom commandbars when you converted a mdb to accdb.

that's true. i add a commandbar named as Custom rpt try the file below

Also can set click property of the button as [event], then press ALT F11 to code.