[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

Title:*OLD* ALL-IN-1 (tm) Support Conference
Notice:Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:IOSG::PYE
Created:Thu Jan 30 1992
Last Modified:Tue Jan 23 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:4343
Total number of notes:18308

934.0. "Importing old VMSmail messages ?" by WELCLU::LI (Sau Ha Li, Welwyn) Thu Jun 25 1992 17:38

    Hello,
    
    
    A customer wants to access READ VMSmail message from ALL-IN-1 V2.4. 
    
    I assume that we have to write a piece of code which does similar 
    thing as the V option, but only on READ (or all) mail message. Is 
    this right?
    
    Any other ideas? Has anyone done this before?
    
    
    thanks & regards,
    Sau Ha
T.RTitleUserPersonal
Name		DateLines
934.1Ian wrote it and I saw it work!AIMTEC::WICKS_ADEC Mail Works for ME sometimesThu Jun 25 1992 18:038
    Sau Ha,
    
    What's wrong with VMSMAIL IMPORT_FOLDER as documented on page 560 of
    APR ref vol 2?
    
    Regards,
    
    Andrew.D.Wicks
934.3Someone in here gave this to me once upon a timeMSDSWS::DUNCANI'm in trouble again!Thu Jun 25 1992 19:3738
    Well, they may not have given it to me, it may have just been in a
    note.  But anyway, here it is again.
    
    Darryl
    
    =======================================
    ! VM_IMPORT.UDP
    
    !  2-Jan-1990, MRL
    
    .fx PROMPT "VAX Mail Source Folder: "
    .if oa$form_dispose ne 2 then .goto exit
    ! Make sure that symbol used is upcased.  Using LOG$... does this
    .fx get LOG$IMPORT_VMS_SYMBOL = OA$PROMPT_TEXT
    .fx get #VMS_FOLDER = LOG$IMPORT_VMS_SYMBOL
    
    .fx PROMPT "ALL-IN-1 Destination Folder: "
    .if oa$form_dispose ne 2 then .goto exit
    ! Make sure that symbol used is upcased.  Using LOG$... does this
    .fx get LOG$IMPORT_A1_SYMBOL = OA$PROMPT_TEXT
    .fx get #A1_FOLDER = LOG$IMPORT_A1_SYMBOL
    
    ! Sanity check
    .if #VMS_FOLDER eqs "" or #A1_FOLDER eqs "" then .exit
    
    .fx OA$FAO "Importing VAX Mail folder !AS into A1 folder !AS . . . ", -
               "OA$DISPLAY", #VMS_FOLDER, #A1_FOLDER
    .fx FORCE
    ! Do it!
    .fx VMSMAIL IMPORT_FOLDER #VMS_FOLDER, #A1_FOLDER /ALL /NOPROMPT
    .exit
    
    .label exit
    
    .fx oa$fld_stay
    .exit
934.2eezy-peezyBRUMMY::MARTIN::BELLMartin Bell, TCC, Birmingham UKThu Jun 25 1992 19:449
Sau Ha,

its ded easy, i knocked up a simple form to allow the user to select a VMSmail
folder, and ALL-IN-1 folder to put it in, and an alternate mail file for
wierdos - and it took about 30 mins.

... anyone done it faster?

mb
934.4Customer wants more !WELCLU::LISau Ha Li, WelwynWed Jul 01 1992 11:1413
    Hello,
    
    Thanks Darrly for the UDP. The customer is happy with it, but now he 
    would like to be able to import a particular mail message, rather 
    than the whole folder.
    
    Is there a quick solution to this ?
    
    I had a look at the VMSmail function and its qualifiers. It doesn't 
    look like it will be as simply as importing a folder.
    
    thanks in advance,
    Sau Ha
934.5Not directly, but all things are possible!IOSG::PYEGraham - ALL-IN-1 Sorcerer's ApprenticeWed Jul 01 1992 11:319
    There isn't a qualifier to do this form the ALL-IN-1 function.
    
    But the customer could MOVE the selected mail message into a temporary
    folder in VMSMail and then do the ALL-IN-1 Import from that folder.
    
    You could automate it by writing a command procedure that went into
    VMSMail and did the move automatically for them.
    
    Graham