Start a New VBA Project and Paste this stuff into it.


Option Explicit
Public WithEvents ACADApp As AcadApplication    ' Use with Application Event
Examples
Public myolapp As Object
Public myitem As Object
Public SALARYMANOPEN As Boolean
Public DOCUMENTNAME As String
Public REGVAL As Variant
Public FN
Sub AcadStartup()
    ' This example intializes the public variable (ACADApp) which will be
used
    ' to intercept AcadApplication Events
    '
    ' The VBA WithEvents statement makes it possible to intercept an generic
object
    ' with the events associated with that object.
    '
    ' Before you will be able to trigger any of the AcadApplication events,
    ' you will first need to run this procedure.
    
    ' We could get the application from the ThisDocument object, but that
would
    ' require having a drawing open, so we grab it from the system.
    Set ACADApp = GetObject(, "AutoCAD.Application")
    FN = GetVariable("DWGNAME")
        Call ACADApp_EndOpen(FN)
End Sub


Private Sub ACADApp_BeginQuit(Cancel As Boolean)
    If DOCUMENTNAME = "" Then End
    myitem.Subject = DOCUMENTNAME
    myitem.StopTimer
    myitem.Save
    SALARYMANOPEN = False
End Sub


Private Sub ACADApp_EndOpen(ByVal FileName As String)
  If SALARYMANOPEN = True Then
       myitem.Subject = DOCUMENTNAME
        myitem.StopTimer
        myitem.Save
   End If
   Set myolapp = CreateObject("Outlook.Application")
   Set myitem = myolapp.CreateItem(4)
   myitem.Type = "AutoCAD"
   myitem.StartTimer
    SALARYMANOPEN = True
    DOCUMENTNAME = FileName
End Sub

--------------- End of Pasting
make sure that the following REFERENCES are turned on.

VISUAL BASIC FOR APPLICATIONS
AUTOCAD 2000 TYPE LIBRARY
MICROSOFT FORMS 2.0 OBJECT LIBRARY
MICROSOFT OFFICE 9.0 OBJECT LIBRARY
MICROSOFT OUTLOOK 9.0 OBJECT LIBRARY



Additional Info available at http://www.autojournal.net