PC Pro 2004 April/DPPCPRO0404.ISO/April/CAS/disk2/data.2/MACROS/AMIPRO/jjloglet.smm

INI File | 1995-04-04 | 19.6 KB | 1,697 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]

[port]
    LPT2:
[lang]
    1
[fldnames]
    Field1
    Field2
    Field3
    Field4
    Field5
    Field6
    Field7
    Field8
[desc]
    Logs the current document as an item in the Commence letter log category




    797048002
    19
    706654425
    153
    8
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0


[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet
    4
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*0>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Bullet
    0
    0
[tag]
    Bullet 1
    5
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        288
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Number List
    6
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        360
        360
        360
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>.
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Number List
    0
    0
[tag]
    Subhead
    7
    [fnt]
        TimesNewRomanPS
        240
        0
        49155
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        72
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    0
    0
[tag]
    Title
    8
    [fnt]
        Arial MT
        360
        0
        16385
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        446
        1
        144
        72
        1
        100
    [brk]
        16
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]

>
[elay]
[l1]
    0
[pg]
    8
    45 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    90 0 15 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    135 0 13 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    180 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    225 0 64 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    270 0 6 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    315 0 10 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    319 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#284,9360>Function JJdoclog()

<:#284,9360>'Copyright 1992-95 Jensen-Jones Inc.

<:#284,9360>'Commence Document Log Macro

<:#284,9360>'Creates a Letter Log item for the current document

<:#284,9360>

<:#284,9360>DEFSTR AppName, gMsg1, gMsg2, gMsg4, gCancelJob

<:#284,9360>DEFSTR gFax1, gFax2

<:#284,9360>DEFSTR gNone, gMsg7, gMsg8, gMsg9

<:#284,9360>DEFSTR gRefersToPerson, gRefersToCompany, gPerson, gCompany

<:#284,9360>DEFSTR MacroTitle, gLogItemName, gNotes, gRefersPText, gRefersCText

<:#284,9360>DEFSTR gCopyright, gShowCompany, gShowPeople, gOK, gCancel

<:#284,9360>

<:#284,9360>AppName = "Commence"

<:#284,9360>

<:#284,9360>' Literal text; START TRANSLATION

<:#284,9360>' DON'T FORGET DIALOG BOXES BELOW.

<:#284,9360>

<:#284,9360>gMsg1 = "Could NOT Establish DDE with {AppName}; Exiting ..."

<:#284,9360>gMsg2 = "Could NOT launch {AppName}; Exiting .."

<:#284,9360>

<:#284,9360>gMsg7 = "DDE message failure, exiting Macro"

<:#284,9360>gMsg8 = "You must enter a name for the log item"

<:#284,9360>gMsg9 = "You must save this file with a filename before you can log it"

<:#284,9360>gNone = "None"

<:#284,9360>

<:#284,9360>gRefersToPerson = ",Refers to,Person,"

<:#284,9360>gRefersToCompany = ",Refers to,Company,"

<:#284,9360>

<:#284,9360>gPerson = "Person"

<:#284,9360>gCompany = "Company"

<:#284,9360>

<:#284,9360>MacroTitle = "Commence Letter Log/Fax Macro"

<:#284,9360>gLogItemName = "Log item name:"

<:#284,9360>gNotes = "Notes:"

<:#284,9360>gRefersPText = "Refers to Person:"

<:#284,9360>gRefersCText = "Refers to Company:"

<:#284,9360>gCopyright = "Copyright @ 1993-94 Jensen-Jones, Inc."

<:#284,9360>gShowCompany = "Show Companies"

<:#284,9360>gShowPeople = "Show People"

<:#284,9360>gOK = "OK"

<:#284,9360>gCancel = "Cancel"

<:#284,9360>

<:#284,9360>' END OF TRANSLATION

<:#284,9360>

<:#284,9360>b = Chr$(91)

<:#284,9360>'SingleStep(1)

<:#284,9360>OnError  Normalx        'If we get an error, just cancel the macro

<:#284,9360>

<:#284,9360>LetterName = GetDocInfo$(1)

<:#284,9360>LetterPath = GetDocInfo$(2)

<:#284,9360>LetterFile = strcat$(LetterPath, "\", LetterName)

<:#284,9360>IF LetterFile = "\(Untitled)" THEN

<:#284,9360>    Message (gMsg9)

<:#284,9360>    EXIT FUNCTION

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>'Set up the default values

<:#284,9360>NameSize = 35

<:#284,9360>Dscrpt = ""

<:#284,9360>Name = LetterName

<:#284,9360>

<:#284,9360>'This variable must be changed to 0 for versions <<2.0b of AmiPro

<:#284,9360>DDEExecErr = -1

<:#284,9360>

<:#284,9360>Dim Fld(1000)

<:#284,9360>

<:#284,9360>c = DDEInitiate("{AppName}", "GetData")

<:#284,9360>If c<<=0

<:#284,9360>        ' Do Error Check

<:#284,9360>        id = c

<:#284,9360>        OK = Exec("{AppName}.EXE", "", 1)  ' Open it

<:#284,9360>        IF OK <;> 32

<:#284,9360>        id = DDEInitiate("{AppName}", "GetData")  ' Call Application again

<:#284,9360>            IF id =0  ' Still not open, End macro

<:#284,9360>                BEEP()

<:#284,9360>                DDETerminate(id)  ' Close the DDE Channel

<:#284,9360>                HourGlass(0)

<:#284,9360>                IgnoreKeyboard(0)

<:#284,9360>                BEEP()

<:#284,9360>                Message(gMsg1)

<:#284,9360>                StatusBarMsg("")

<:#284,9360>                HourGlass(0)

<:#284,9360>                EXIT FUNCTION

<:#284,9360>            ENDIF

<:#284,9360>        ELSE

<:#284,9360>            IF id <;> 0

<:#284,9360>                DDETerminate(id)  ' Close the DDE Channel

<:#284,9360>            endif

<:#284,9360>            IgnoreKeyboard(0)

<:#284,9360>            HourGlass(0)

            BEEP()

            Message(gMsg2)

            StatusBarMsg("")

            EXIT FUNCTION

        ENDIF

    Endif  ' End of Error Check

GetPersonNames:

Hourglass(1)

conn = 1


'Get the list of Person Names

catlist = DDEReceive$(c, "{b}GetItemNames(Person,|)]")

'Set the first item to None

Fld(1) = gNone

'Only get the first 1000 names

FOR I = 2 To 1000

    J = InStr(1,catlist, "|")

    IF J <<<;> 0 THEN

        Fld(I) = Left$(catlist, J - 1)

        catlist = Mid$(catlist, J + 1, Len(catlist) - J)

    ELSE

        Fld(I) = catlist

        itemcount = I

        Goto Break0

    ENDIF


NEXT

itemcount = I

Break0:


Ask1:

FOR I = 1 to itemcount

    FillList(Fld(I))

NEXT



FillEdit(8002, Name)

FillEdit(8001, Dscrpt)

FillEdit(1003, gCopyright)


'SingleStep(1)

Hourglass(0)

dlgbox = DialogBox(".", "logdlg1")

IF dlgbox = 0 THEN

    Goto Normalx

ELSEIF dlgbox = 1 THEN

    Goto LogLetter

ELSEIF dlgbox = 3 THEN

    'First save the current data

    Dscrpt = GetDialogField$(8001)

    Name = GetDialogField$(8002)

    Goto GetCompanyNames

ENDIF



GetCompanyNames:

Hourglass(1)

conn = 2


'Get the list of Company Names

catlist = DDEReceive$(c, "{b}GetItemNames(Company,|)]")

'Set the first item to None

Fld(1) = gNone

'Only get up to the first 1000 names

FOR I = 2 To 1000

    J = InStr(1,catlist, "|")

    IF J <<<;> 0 THEN

        Fld(I) = Left$(catlist, J - 1)

        catlist = Mid$(catlist, J + 1, Len(catlist) - J)

    ELSE

        Fld(I) = catlist

        itemcount = I

        Goto Break1    'Break out when we run out of items

    ENDIF

NEXT

itemcount = I

Break1:


Ask2:

FOR I = 1 to itemcount

    FillList(Fld(I))

NEXT


FillEdit(8002, Name)

FillEdit(8001, Dscrpt)

FillEdit(1003, gCopyright)


Hourglass(0)

<:#284,9360>dlgbox = DialogBox(".", "logdlg2")

<:#284,9360>

<:#284,9360>IF dlgbox = 0 THEN

<:#284,9360>    Goto Normalx

<:#284,9360>ELSEIF dlgbox = 1 THEN

<:#284,9360>    Goto LogLetter

<:#284,9360>ELSEIF dlgbox = 3 THEN

<:#284,9360>

<:#284,9360>    'First save the current data

<:#284,9360>    Dscrpt = GetDialogField$(8001)

<:#284,9360>    Name = GetDialogField$(8002)

<:#284,9360>    Goto GetPersonNames

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>LogLetter:

<:#284,9360>Hourglass(1)

<:#284,9360>Citem = GetDialogField$(9000)

<:#284,9360>Name = GetDialogField$(8002)

<:#284,9360>IF Len(Name) <;> NameSize THEN

<:#284,9360>    Name = Left$(Name, NameSize)

<:#284,9360>ENDIF

<:#284,9360>Dscrpt = GetDialogField$(8001)

<:#284,9360>'Amipro seems to have trouble with long DDEExecute strings, so limit this size

<:#284,9360>LP = Len(Dscrpt)

<:#284,9360>IF Len(Dscrpt) <;> 190 THEN

<:#284,9360>    Dscrpt = Left$(Dscrpt, 190)

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>'Validate the data

<:#284,9360>IF Name = "" THEN

<:#284,9360>    Message(gMsg8)

<:#284,9360>    IF conn = 1 THEN

<:#284,9360>        Goto Ask1

<:#284,9360>    ELSEIF conn = 2

<:#284,9360>        Goto Ask2

<:#284,9360>    ENDIF

<:#284,9360>ENDIF

<:#284,9360>q$ = Chr$(34)

<:#284,9360>'Create the log item

<:#284,9360>Req = strcat$("{b}AddItem(Letter Log,",q$,Name,q$,")]")

<:#284,9360>ret = DDEExecute(c, Req)

<:#284,9360>IF ret = ddeexecerr Then

<:#284,9360>    Message(gMsg7)

<:#284,9360>    Goto Done

<:#284,9360>ENDIF

<:#284,9360>'Add the other data to the item

<:#284,9360>Req = strcat$("{b}EditItem(Letter Log,",q$,Name,q$,",Notes,",q$)

Req = strcat$(Req,Dscrpt,q$,")]")

ret = DDEExecute(c, Req)

IF ret = ddeexecerr Then

    Message(gMsg7)

    Goto Done

ENDIF


Req = strcat$("{b}EditItem(Letter Log,",q$,Name,q$,",Date Sent,Today)]")

ret = DDEExecute(c, Req)

IF ret = ddeexecerr Then

    Message(gMsg7)

    Goto Done

ENDIF


Req = strcat$("{b}EditItem(Letter Log,",q$,Name,q$,",Reference File,")

Req = strcat$(Req,q$,LetterFile,q$")]")

ret = DDEExecute(c, Req)

IF ret = ddeexecerr Then

    Message(gMsg7)

    Goto Done

ENDIF



'Assign the connection if the item is not "None"


IF Citem <<<;> gNone THEN


 IF conn = 1 THEN        'Connect to Person category


  Req = strcat$("{b}AssignConnection(Letter Log,",q$,Name,q$)

  Req = strcat$(Req,gRefersToPerson,q$,Citem,q$,")]")


 ELSEIF conn = 2 THEN    'Connect to Company category


  Req = strcat$("{b}AssignConnection(Letter Log,",q$,Name,q$)

  Req = strcat$(Req,gRefersToCompany,q$,Citem,q$,")]")


 ENDIF



  ret = DDEExecute(c, Req)


 IF ret = ddeexecerr Then

    Message(gMsg7)

    Goto Done

 ENDIF


ENDIF



Goto Normalx


Done:    ' Placeholder for further error notification


Normalx:


DDETerminate(c)


Hourglass(0)


END FUNCTION


' TRANSLATE THESE DIALOGS.


DIALOG logdlg1

-2134900736 10 90 36 196 194 "" "" "Commence Letter Log Macro"

8 20 108 12 8002 1350631552 "edit" "" 0

9 8 86 10 1001 1342177280 "static" "Log item name:" 0

9 50 174 13 8001 1350631552 "edit" "" 0

9 38 40 10 1009 1342177280 "static" "Notes:" 0

9 71 70 10 1002 1342177280 "static" "Refers to Person:" 0

9 84 173 62 9000 1352728577 "listbox" "" 0

21 177 145 9 1003 1342177281 "static" "" 0

63 154 59 14 3 1342242816 "button" "Get Companies" 0

143 9 40 14 1 1342242816 "button" "OK" 0

143 28 40 14 2 1342242816 "button" "Cancel" 0

END DIALOG


DIALOG logdlg2

-2134900736 10 89 36 196 190 "" "" "Commence Letter Log Macro"

8 20 108 12 8002 1350631552 "edit" "" 0

9 8 86 10 1001 1342177280 "static" "Log item name:" 0

9 50 174 13 8001 1350631552 "edit" "" 0

9 38 40 10 1009 1342177280 "static" "Notes:" 0

9 69 70 10 1002 1342177280 "static" "Refers to Company:" 0

9 81 173 65 9000 1352728577 "listbox" "" 0

21 174 145 9 1003 1342177281 "static" "" 0

63 154 59 14 3 1342242816 "button" "Get People" 0

143 9 40 14 1 1342242816 "button" "OK" 0

143 28 40 14 2 1342242816 "button" "Cancel" 0

END DIALOG


' END OF TRANSLATION.



>

[Embedded]
00014180
>
[macsum] 3
JJdoclog 0 0 49 0
logdlg1 4688 0 -1 288
logdlg2 5254 0 -1 302
[macse]
14 JJdoclog
7 "Commence"
8 1
7 "Could NOT Establish DDE with {1}; Exiting ..."
8 2
7 "Could NOT launch {1}; Exiting .."
8 3
7 "DDE message failure, exiting Macro"
8 9
7 "You must enter a name for the log item"
8 10
7 "You must save this file with a filename before you can log it"
8 11
7 "None"
8 8
7 ",Refers to,Person,"
8 12
7 ",Refers to,Company,"
8 13
7 "Person"
8 14
7 "Company"
8 15
7 "Commence Letter Log/Fax Macro"
8 16
7 "Log item name:"
8 17
7 "Notes:"
8 18
7 "Refers to Person:"
8 19
7 "Refers to Company:"
8 20
7 "Copyright @ 1993-94 Jensen-Jones, Inc."
8 21
7 "Show Companies"
8 22
7 "Show People"
8 23
7 "OK"
8 24
7 "Cancel"
8 25
0 39 91
13
8 26
20 00004655
0 279 1
13
8 27
0 279 2
13
8 28
0 16 "{28}" "\" "{27}"
13
8 29
6 29
7 "\(Untitled)"
18 0
11 00000857
0 3 "{11}"
6 0
15
9
5 35
8 30
7 ""
8 31
6 27
8 32
5 -1
8 33
5 1000
21 34 [X]
0 8 "{1}" "GetData"
13
8 35
6 35
5 0
18 4
11 00001317
6 35
8 36
0 22 "{1}.EXE" "" 1
13
8 37
6 37
5 32
18 3
11 00001218
0 8 "{1}" "GetData"
13
8 36
6 36
5 0
18 0
11 00001205
0 801
0 9 "{36}"
0 296 0
0 32 0
0 801
0 3 "{2}"
0 789 ""
0 296 0
6 0
15
9
10 00001317
6 36
5 0
18 3
11 00001260
0 9 "{36}"
0 32 0
0 296 0
0 801
0 3 "{3}"
0 789 ""
6 0
15
9
0 296 1
5 1
8 38
0 10 "{35}" "{26}GetItemNames(Person,|)]"
13
8 39
5 1
6 8
23 34
5 2
8 40
5 1000
6 40
18 2
12 00001499
10 00001755
5 1
6 40
3 0
8 40
10 00001418
0 808 1 "{39}" "|"
13
8 41
6 41
5 0
18 1
11 00001698
6 40
6 41
5 1
3 1
0 806 "{39}" [X]
13
23 34
6 41
5 1
3 0
0 14 "{39}"
13
6 41
3 1
0 15 "{39}" [X] [X]
13
8 39
10 00001742
6 40
6 39
23 34
6 40
8 42
10 00001767
10 00001464
6 40
8 42
5 1
8 40
6 42
6 40
18 2
12 00001857
10 00001893
5 1
6 40
3 0
8 40
10 00001778
6 40
22 34
0 25 [X]
10 00001822
0 31 8002 "{32}"
0 31 8001 "{31}"
0 31 1003 "{21}"
0 296 0
0 26 "." "logdlg1"
13
8 43
6 43
5 0
18 0
11 00002042
10 00004655
10 00002183
6 43
5 1
18 0
11 00002098
10 00003050
10 00002183
6 43
5 3
18 0
11 00002183
0 27 8001
13
8 31
0 27 8002
13
8 32
10 00002183
0 296 1
5 2
8 38
0 10 "{35}" "{26}GetItemNames(Company,|)]"
13
8 39
5 1
6 8
23 34
5 2
8 40
5 1000
6 40
18 2
12 00002366
10 00002622
5 1
6 40
3 0
8 40
10 00002285
0 808 1 "{39}" "|"
13
8 41
6 41
5 0
18 1
11 00002565
6 40
6 41
5 1
3 1
0 806 "{39}" [X]
13
23 34
6 41
5 1
3 0
0 14 "{39}"
13
6 41
3 1
0 15 "{39}" [X] [X]
13
8 39
10 00002609
6 40
6 39
23 34
6 40
8 42
10 00002634
10 00002331
6 40
8 42
5 1
8 40
6 42
6 40
18 2
12 00002724
10 00002760
5 1
6 40
3 0
8 40
10 00002645
6 40
22 34
0 25 [X]
10 00002689
0 31 8002 "{32}"
0 31 8001 "{31}"
0 31 1003 "{21}"
0 296 0
0 26 "." "logdlg2"
13
8 43
6 43
5 0
18 0
11 00002909
10 00004655
10 00003050
6 43
5 1
18 0
11 00002965
10 00003050
10 00003050
6 43
5 3
18 0
11 00003050
0 27 8001
13
8 31
0 27 8002
13
8 32
10 00001317
0 296 1
0 27 9000
13
8 44
0 27 8002
13
8 32
0 14 "{32}"
13
6 30
18 3
11 00003174
0 806 "{32}" "{30}"
13
8 32
0 27 8001
13
8 31
0 14 "{31}"
13
8 45
0 14 "{31}"
13
5 190
18 3
11 00003289
0 806 "{31}" 190
13
8 31
6 32
7 ""
18 0
11 00003431
0 3 "{10}"
6 38
5 1
18 0
11 00003388
10 00001767
10 00003431
6 38
5 2
18 0
11 00003431
10 00002634
0 39 34
13
8 46
0 16 "{26}AddItem(Letter Log," "{46}" "{32}" "{46}" ")]"
13
8 47
0 11 "{35}" "{47}"
13
8 48
6 48
6 33
18 0
11 00003603
0 3 "{9}"
10 00004655
0 16 "{26}EditItem(Letter Log," "{46}" "{32}" "{46}" ",Notes," "{46}"
13
8 47
0 16 "{47}" "{31}" "{46}" ")]"
13
8 47
0 11 "{35}" "{47}"
13
8 48
6 48
6 33
18 0
11 00003811
0 3 "{9}"
10 00004655
0 16 "{26}EditItem(Letter Log," "{46}" "{32}" "{46}" ",Date Sent,Today)]"
13
8 47
0 11 "{35}" "{47}"
13
8 48
6 48
6 33
18 0
11 00003981
0 3 "{9}"
10 00004655
0 16 "{26}EditItem(Letter Log," "{46}" "{32}" "{46}" ",Reference File,"
13
8 47
0 16 "{47}" "{46}" "{29}" "{46}" ")]"
13
8 47
0 11 "{35}" "{47}"
13
8 48
6 48
6 33
18 0
11 00004198
0 3 "{9}"
10 00004655
6 44
6 8
18 1
11 00004642
6 38
5 1
18 0
11 00004399
0 16 "{26}AssignConnection(Letter Log," "{46}" "{32}" "{46}"
13
8 47
0 16 "{47}" "{12}" "{46}" "{44}" "{46}" ")]"
13
8 47
10 00004557
6 38
5 2
18 0
11 00004557
0 16 "{26}AssignConnection(Letter Log," "{46}" "{32}" "{46}"
13
8 47
0 16 "{47}" "{13}" "{46}" "{44}" "{46}" ")]"
13
8 47
0 11 "{35}" "{47}"
13
8 48
6 48
6 33
18 0
11 00004642
0 3 "{9}"
10 00004655
10 00004655
0 9 "{35}"
0 296 0
6 0
15
9
DIALOG logdlg1
-2134900736 10 90 36 196 194 "" "" "Commence Letter Log Macro"
8 20 108 12 8002 1350631552 "edit" "" 0
9 8 86 10 1001 1342177280 "static" "Log item name:" 0
9 50 174 13 8001 1350631552 "edit" "" 0
9 38 40 10 1009 1342177280 "static" "Notes:" 0
9 71 70 10 1002 1342177280 "static" "Refers to Person:" 0
9 84 173 62 9000 1352728577 "listbox" "" 0
21 177 145 9 1003 1342177281 "static" "" 0
63 154 59 14 3 1342242816 "button" "Get Companies" 0
143 9 40 14 1 1342242816 "button" "OK" 0
143 28 40 14 2 1342242816 "button" "Cancel" 0
DIALOG logdlg2
-2134900736 10 89 36 196 190 "" "" "Commence Letter Log Macro"
8 20 108 12 8002 1350631552 "edit" "" 0
9 8 86 10 1001 1342177280 "static" "Log item name:" 0
9 50 174 13 8001 1350631552 "edit" "" 0
9 38 40 10 1009 1342177280 "static" "Notes:" 0
9 69 70 10 1002 1342177280 "static" "Refers to Company:" 0
9 81 173 65 9000 1352728577 "listbox" "" 0
21 174 145 9 1003 1342177281 "static" "" 0
63 154 59 14 3 1342242816 "button" "Get People" 0
143 9 40 14 1 1342242816 "button" "OK" 0
143 28 40 14 2 1342242816 "button" "Cancel" 0
00014205