Public Enum OfficeApplication
    Microsoft_Access = 0
    Microsoft_Excel = 1
    Microsoft_Outlook = 2
    Microsoft_PowerPoint = 3
    Microsoft_Word = 4
    Microsoft_FrontPage = 5
End Enum
 
Private Enum OlSaveAsType
    olHTML = 5
    olMSG = 3
    olTXT = 0
End Enum
 
Const olFolderInbox = 6       'posteingang
Const olFolderCalendar = 9    'calender
Const olFolderSentMail = 5    'Gesendete objekte
Const olMailItem = 0          'EMail Object
Const olAppointmentItem = 1   'Appointment Item
 
Const olTo = 1
Const olCC = 2
Const olBCC = 3
 
Const olFormatRichText = 3
Const olFormatHTML = 2
Const olFormatPlain = 1