Copy Internet Emails from Eudora to Officepower Email

Post by **Marcus Tettmar** » Wed Apr 29, 1998 11:00 pm

Contributed By: Mark [email protected]
Submitted On: 30/04/98

Rem>copies internet emails from eudora to officepower email
Rem>Have used findwindow instead of setfocus as there is more than one window with the same name
Rem>Used op paste in final clipboard paste instead of variable clip, as GetClipBoard has limit of 255 chars

Rem>clear clipboard contents
PutClipBoard>
FindWindowWithText>W E Y M O U T H,1,mark,0
If>%mark%=Eudora Light,label4
Ask>Eudora Weymouth NOT running!%CRLF% Open Now?,startit
If>%startit%=YES,label5
Goto>theend
Label>label5
Run Program>"C:\internet\eudora Weymouth\Eudora.exe"
WaitWindowOpen>Eudora*
FindWindowWithText>W E Y M O U T H,1,mark,0
WaitWindowClose>Progress
Wait>2

Label>label4
FindWindowWithText>W E Y M O U T H,1,mark,0
Rem>Make first message in eudora IN box current
Press ALT
Send Character/Text>X
Release ALT
Wait>1
Press Enter
Release Enter
Wait>1
Press Home
Release Home

Rem>Put header of first eudora email in clipboard
Press ALT
Send Character/text>e
Release ALT
Send Character/Text>c
Wait>1

Rem>Check that clipboard has contents, if not there are no more emails
GetClipBoard>clip
If>%clip%>"",label2
Message>%CRLF%Error!%CRLF%There are no Weymouth internet emails.
Goto>theend
Label>label2

Rem>clear clipboard
PutClipBoard>

Rem> get body of eudora email and put into clipboard close email and send
to trash box.
FindWindowWithText>W E Y M O U T H,1,mark,0

Rem>Select first eudora email in IN box
Press ALT
Send Character/Text>X
Release ALT
Press Enter
Release Enter

Press Home
Release Home

Rem>Open selected email
Press Enter
Release Enter
Wait>1

Rem>Select all text in email control and A
Press ALT
Send Character/text>e
Release ALT
Send Character/Text>a
Wait>1

Rem>Copy to clipboard selected text
Press ALT
Send Character/text>e
Release ALT
Send Character/text>c
Wait>2

Rem>Close selected eudora email
Press ALT
Send Character/Text>f
Release ALT
Send Character/Text>c
Wait>1

Rem>Check that clipboard has data
GetClipBoard>clip
If>%clip%>"",label3
Message>ERROR!%CRLF%Windows clipboard is empty!%CRLF%Macro failed to copy
body of internet email.
Goto>theend
Label>label3

Rem>Move eudora email to trash box
Press Del
Release Del

Rem>split out subject and from fields form clipboard message
GetClipBoard>clip
Position>From:,%clip%,1,startfrom
Position>Subject:,%clip%,1,startsubject
Rem>remove word Subject: as this field exists in Officepower
Add>startsubject,9
Position>%CR%,%clip%,startfrom,endfrom
Position>%CR%,%clip%,startsubject,endsubject
MidStr>%clip%,startfrom,endfrom,from
MidStr>%clip%,startsubject,endsubject,subject

Rem> clip = contents of eudora body
Rem> from = from
Rem> subject = subject

Rem>Ask for OP users name default to pav if nothing entered
Input>opname,%from%%CRLF%%CRLF%Subject: %subject%%CRLF%%CRLF%Enter
OfficePower User? (default=pav):
If>%opname%>"",label1
Let>opname=pav
Label>label1

Rem>Create header in OP email
IfWindowOpen>OfficePower*,label6
Ask>vt320 OfficePower NOT running!%CRLF% Open Now?,startit2
If>%startit2%=YES,label7
Goto>theend
Label>label7
MessageModal>Macro Program will suspend for 30 seconds after vt320 opens to
allow you to navigate and load officepower.
Run Program>C:\ICLTEP32\ICLAPPS\WIN320.EXE c:\icltep32\iclcomms2\DEFAULT.320
WaitWindowOpen>OfficePower
Setfocus>OfficePower
Wait>30

Label>label6
Setfocus>OfficePower
Press F9
Release F9
Send Character/Text>%opname%
Press Enter
Release Enter
Press Enter
Release Enter
Press Enter
Release Enter
Press Enter
Release Enter
Send Character/Text>%subject%
Send Character/Text>%CR%%from%

Rem>create body in OP email then send it
Press F12
Release F12
Press F2
Release F2
Press F7
Release F7
Press ALT
Send Character/Text>e
Release ALT
Send Character/Text>p
Wait>3
Press Esc
Release Esc
Press NP Enter
Release NP Enter
Press F3
Release F3

Wait>1
FindWindowWithText>W E Y M O U T H,1,mark,0

Label>theend