/[cvs]/joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas
ViewVC logotype

Diff of /joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Sat Sep 1 15:22:49 2007 UTC revision 1.3 by joko, Sat Sep 1 17:11:21 2007 UTC
# Line 4  Attribute VB_Name = "ModuleMailer" Line 4  Attribute VB_Name = "ModuleMailer"
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  Public mailer As Outlook.Application  Public mailer As Outlook.Application
# Line 37  Public Function mailerStart() Line 39  Public Function mailerStart()
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            
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed