Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
opening a custom outlook form from access
- Thread starter JazzMan2
- Start date
- Thread starter
- #2
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
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
- Status
Similar threads
- Locked
- Question