| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Visitors | 1409589 | | Impressions | 5190974 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 30.01.2006 | Accessed: 17708 | | | | Description
We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory. |
Option Explicit
Public Enum olVersion
olVersion_Unknown = 0
olVersion_9 = 9
olVersion_10 = 10
olVersion_11 = 11
End Enum
Private m_lVersion As olVersion
Public Property Get OutlookVersion() As olVersion
OutlookVersion = m_lVersion
End Property
Public Sub DetermineOutlookVersion(oApp As Outlook.Application)
Select Case left$(oApp.Version, 2)
Case "9."
m_lVersion = olVersion_9
Case "10"
m_lVersion = olVersion_10
Case "11"
m_lVersion = olVersion_11
Case Else
m_lVersion = olVersion_Unknown
End Select
End Sub
|
| | |
| | |  | ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more] |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
