Read emailserver settings from email client

'------------------------------------------------------------------'Procedure : OutlookNewEmail
' DateTime  : 4/12/2008 12:17
' Author    : Patrick Wood
' Purpose   : Opens a new blank Outlook Email to send
' Arguments : Requires DoesFileExist Function to determine
'             which version of Outlook exists
'------------------------------------------------------------------'
Function OutlookNewEmail()
 
     'First we need to find which version of Outlook
     ' is on the computer.
     'We start looking for the latest version first.
     'Debug.Print will show the results in the immediate window.
 
     ' Long lines of code are put on two lines using _ or " & _
    If DoesFileExist _
        ("C:\Program Files\Microsoft Office\OFFICE12\OUTLOOK.EXE") _
        = True Then
        Debug.Print "Office 12 Exists"
        ' Open a new Outlook Email to send
        Call Shell _
        ("C:\Program Files\Microsoft Office\OFFICE12\OUTLOOK.EXE" & _
        " /c IPM.NOTE", 1)
    ElseIf DoesFileExist _
        ("C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE") _
        = True Then
        Debug.Print "Office 11 Exists"
        Call Shell _
        ("C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" & _
        " /c IPM.NOTE", 1)
    ElseIf DoesFileExist _
        ("C:\Program Files\Microsoft Office\OFFICE10\OUTLOOK.EXE") _
        = True Then
        Debug.Print "Office 10 Exists"
        Call Shell _
        ("C:\Program Files\Microsoft Office\OFFICE10\OUTLOOK.EXE" & _
        " /c IPM.NOTE", 1)
    ElseIf DoesFileExist _
        ("C:\Program Files\Microsoft Office\OFFICE9\OUTLOOK.EXE") _
        = True Then
        Debug.Print "Office 9 Exists"
        Call Shell _
        ("C:\Program Files\Microsoft Office\OFFICE9\OUTLOOK.EXE" & _
        " /c IPM.NOTE", 1)
    Else
        Call MsgBox("The Program you tried to open" & _
        " was not found.     ", _
        vbCritical, "                     Program Not Found")
 
        Debug.Print "Program File Not Found"
    End If
 
Exit_OutlookNewEmail:
    Exit Function
 
Err_OutlookNewEmail:
    Call ErrorLog(Err.Description, Err.Number, _
    " In procedure OutlookNewEmail of Module basPAWOpenApps")
    Resume Exit_OutlookNewEmail
 
End Function
 
-------------------------------------------------------------------
 
' Uncomment (Remove the ' ) the two lines of code below if they are not already at the top of your Module
'Option Compare Database
'Option Explicit
 
--------------------------------------------------------------------------------
 
 
'---------------------------------------------------------------------------------------
' Procedure : DoesFileExist
' DateTime  : 4/12/2008 13:05
' Author    : Patrick Wood  http://gainingaccess.net
' Purpose   : Determine if a specific File exists of any file type
' Arguments : strFileNamePath is the full path and file name:
' Usage     : DoesFileExist("C:\MyFiles\MyFileName.txt")
'           : In a Procedure: If DoesFileExist(strfname) Then . . .
'---------------------------------------------------------------------------------------
'
Function DoesFileExist(strFileNamePath As String) As Boolean
    Dim strMsg As String
 
    If Len(Dir(strFileNamePath)) > 0 Then
        strMsg = strFileNamePath & " file exists."
        DoesFileExist = True
    Else
        strMsg = strFileNamePath & " file does not exist."
        DoesFileExist = False
    End If
    'Debug.Print strMsg
    'Debug.Print "DoesFileExist = " & DoesFileExist
 
End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95: