ManageEmailAddresses/ManageEmailAddresses.bas at master · DavidJLambert/ManageEmailAddresses · GitHub

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
Attribute VB_Name = "ManageEmailAddresses"
' Module ManageEmailAddresses.
' Author: David Lambert, David5Lambert7@Gmail.com.
' MICROSOFT OFFICE SETUP: The spreadsheet "INSTRUCTIONS" has macro setup instructions.

Option Explicit

Public Const sThisProgram As String = "ManageEmailAddresses"
Public Const sThisVersion As String = "Version 1.0"
Public Const iDestinationFolder As Integer = 0
Public Const iDestinationContactGroup As Integer = 1
Public Const iBatchSize As Integer = 50

' Purposely breaking encapsulation of frmSelectDestinations.
Public boolSelectionMade As Boolean

Public Sub ManageEmailAddresses()
    ' MAIN PROGRAM, DRIVES EVERYTHING ELSE.

    ' Create objects.
    Dim oEmailsAddresses As New clsEmailsAddresses

    ' CHOOSE WHICH SUBFOLDERS AND CONTACT GROUPS TO WORK WITH.
    oEmailsAddresses.SetDestinationsInUI

    ' READ EMAIL ADDRESSES FROM ACTIVE SPREADSHEET.
    oEmailsAddresses.GetEmailAddressesFromSpreadsheet

    ' DO THE ADDS, DELETES, AND UPDATES.
    oEmailsAddresses.AddDeleteUpdate

    oEmailsAddresses.PrintSummary

    Set oEmailsAddresses = Nothing
End Sub