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 |
39 |
DoEvents |
DoEvents |
40 |
Else |
Else |
41 |
slog "logging in (auto-selecting profie " & outlookProfileName & "), this may take some seconds!" |
slog "logging in (auto-selecting profie " & outlookProfileName & "), this may take some seconds!" |
42 |
mailer.Session.Logon outlookProfileName, outlookProfilePass, 0 |
mailer.Session.Logon outlookProfileName, outlookProfilePass, 1 |
43 |
End If |
End If |
44 |
End If |
End If |
45 |
|
|