4 |
Option Explicit |
Option Explicit |
5 |
|
|
6 |
Const showProfileChooser As Boolean = True |
Const showProfileChooser As Boolean = True |
7 |
Const outlookProfileName As String = "x" |
Const outlookProfileName As String = "" |
8 |
|
'Const outlookProfileName As String = "Outlook" |
9 |
|
'Const outlookProfileName As String = "Microsoft Exchange Server" |
10 |
Const outlookProfilePass As String = "" |
Const outlookProfilePass As String = "" |
11 |
|
|
12 |
Dim mailer As Outlook.Application |
Public mailer As Outlook.Application |
13 |
Dim mailerAlreadyRunning As Boolean |
Dim mailerAlreadyRunning As Boolean |
14 |
|
|
15 |
Public Function mailerCheckRunning() As Boolean |
Public Function mailerCheckRunning() As Boolean |