I just wanted to let you guys, <br>
know that I figured it out. <br>
<br>
It took way too long for this little bit of code, but here it is for any of you who are having the same problem.<br>
<br>
<br>
Private Sub cmdtimesheet_Click()<br>
On Error GoTo Err_cmdtimesheet<br>
<br>
Dim ol As Outlook.Application<br>
Dim ns As Outlook.NameSpace<br>
Dim NewTimeSheet As Object<br>
Dim fldr As Outlook.MAPIFolder<br>
<br>
Set ol = New Outlook.Application<br>
Set ns = ol.GetNamespace("MAPI")<br>
Set fldr = ns.GetDefaultFolder(olFolderOutbox)<br>
Set NewTimeSheet = fldr.items.Add _("IPM.Document.Excel.Sheet.8.EmployeeTimeSheet")<br>
NewTimeSheet.Display<br>
<br>
Exit_cmdtimesheet:<br>
Exit Sub<br>
<br>
Err_cmdtimesheet:<br>
MsgBox Err.Description<br>
Resume Exit_cmdtimesheet<br>
<br>
End Sub