As you can see I am using the function docArray to initialize / set default
values for the DRec class. Maybe it would be better to have it as part of the
Class definition. So this is my second version:

DRec Class Module:


Public sf As String
Public tf As String
Public oa As Boolean
Public del As Boolean
Public aso As String
Public codes As String
Public t As String
Public tfa As String
Public ttb As String
Public k As String
Public kfa As String
Public ktb As String
Public m As String
Public mfa As String
Public mtb As String

Sub docc()
MsgBox m & ":" & t
End Sub

Sub init(csf As String, Optional ctf As String = "", _
Optional coa As Boolean = True, Optional cdel As Boolean =
True, _
Optional caso As String = "", Optional ccodes As String =
"", _
Optional ct As String = "", Optional ctfa As String = "",
Optional cttb As String = "", _
Optional ck As String = "", Optional ckfa As String = "",
Optional cktb As String = "", _
Optional cm As String = "", Optional cmfa As String = "",
Optional cmtb As String = "" _
)

tf = ctf
If ctf = "" Then tf = csf
sf = csf
tf = ctf
oa = coa
del = cdel
aso = caso
codes = ccodes
t = t
tfa = ctfa
ttb = cttb
k = ck
kfa = ckfa
ktb = cktb
m = cm
mfa = cmfa
mtb = cmtb
End Sub

------------- Standard Module--------------------------

Sub testDRec()
Dim tRec As DRec
Set tRec = New DRec
tRec.init csf:="ABN Daily Bulletin", ccodes:="ABN", ct:="Daily Bulletin",
cm:="emailBody"
End Sub