Important
Although we've numbered the steps in this solution and you don't have to complete the solution using the exact order, we do recommend doing the steps this way.
| Step | Why do this |
|---|---|
| Step 1 - Prevent a former employee from logging in and block access to Microsoft 365 services | This blocks your former employee from logging in to Microsoft 365 and prevents the person from accessing Microsoft 365 services. |
| Step 2 - Save the contents of a former employee's mailbox | This is useful for the person who is going to take over the employee's work, or if there is litigation. |
| Step 3 - Wipe and block a former employee's mobile device | Removes your business data from the phone or tablet. |
| Step 4 - Forward a former employee's email to another employee or convert to a shared mailbox | This lets you keep the former employee's email address active. If you have customers or partners still sending email to the former employee's address, this gets them to the person taking over the work. |
| Step 5 - Give another employee access to OneDrive and Outlook data | If you only remove a user's license but don't delete the account, the content in the user's OneDrive will remain accessible to you even after 30 days. Before you delete the account, you should give access of their OneDrive and Outlook to another user. After you delete an employee's account, the content in their OneDrive and Outlook is retained for 30 days. During that 30 days, however, you can restore the user's account, and gain access to their content. If you restore the user's account, the OneDrive and Outlook content will remain accessible to you even after 30 days. |
| Step 6 - Remove and delete the Microsoft 365 license from a former employee | When you remove a license, you can assign it to someone else. Or, you can delete the license so you don't pay for it until you hire another person. When you remove or delete a license, the user's old email, contacts, and calendar are retained for 30 days, then permanently deleted. If you remove or delete a license but don't delete the account, the content in the user's OneDrive will remain accessible to you even after 30 days. |
| Step 7 - Delete a former employee's user account | This removes the account from your admin center. Keeps things clean. Emails to the former employee's user account will not be received. |
- Microsoft 365 for enterprise overview
https://docs.microsoft.com/en-us/microsoft-365/enterprise/network-planning-and-performance?view=o365-worldwide.
- Hybrid express migration
https://techcommunity.microsoft.com/t5/exchange-team-blog/new-exchange-online-migration-options/ba-p/606109
- How to: Exchange 2016 to Office 365 Hybrid Migration - Step-by-Step
https://community.spiceworks.com/how_to/177811-exchange-2016-to-office-365-hybrid-migration-step-by-step
- Preparing for Hybrid Deployment with Exchange and Office 365
https://practical365.com/preparing-for-hybrid-deployment-with-exchange-office-365/
- Creating a Hybrid Configuration with Exchange and Office 365
https://practical365.com/creating-hybrid-configuration-exchange-office-365/
- How to Set Up a Hybrid Office 365 and Migrate to Exchange Online
https://blog.netwrix.com/2019/01/03/how-to-set-up-a-hybrid-office-365-and-migrate-to-exchange-online/
()
DLL and take action when a new e-mail arrives in Outlook. Please note that only
the NewMail procedure is functional, but you can add your own code to make the
others functional.
DO MainMenu.MPR READ EVENTSOnce the program has been put in an event loop (which is what READ EVENTS does), you won't be able to close down until you have exited the event loop. You do that with the CLEAR EVENTS command. You would normally execute CLEAR EVENTS whenever the user signals that they want to close the application – in the Exit command from the File menu, for example.
IF LastKey() = 27
Keyboard "{CTRL+A}"
RETURN .T.
ENDIF
DECLARE INTEGER SetForegroundWindow IN WIN32API INTEGER
SetForegroundWindow(thisform.HWnd)
CLEAR DLLS "SetForegroundWindow"
************************************************************
* Function CombineExcelFiles
************************************************************
* Created...........: Craig Boyd 3/6/2006 23:55:50
*) Description.......:
* Calling Samples...: DIMENSION aXLSFiles(3)
*!* aXLSFiles(1) = "C:\temp1.xls"
*!* aXLSFiles(2) = "C:\temp2.xls"
*!* aXLSFiles(3) = "C:\temp3.xls"
*!* CombineExcelFiles(@aXLSFiles, "C:\XLSCombined.xls")
* Parameter List....:
* Major change list.:
function CombineExcelFiles (taXLSFiles, tcDestination, tlDeleteOriginal)
external array taXLSFiles
local loExcel as Excel.application, ;
loWorkBook as Excel.Worksbook, ;
loWorkSheet , ;
lnCounter, lcWorkSheetCaption, lcError, ;
lcValidChars
lcError = ""
try
lcValidChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
loExcel = newobject("Excel.Application")
with loExcel
.ScreenUpdating = .f.
.DisplayAlerts = .f.
.WorkBooks.add()
lnCounter = 0
** Delete all existing worksheets except 1
for each loWorkSheet in .WorkBooks(1).WorkSheets
lnCounter = m.lnCounter + 1
if m.lnCounter > 1
loWorkSheet.delete
endif
endfor
for lnCounter = 1 to alen(taXLSFiles,1)
if file(taXLSFiles[m.lnCounter])
lcWorkSheetCaption = juststem(taXLSFiles[m.lnCounter])
loWorkBook = .WorkBooks.open(taXLSFiles[m.lnCounter])
loWorkBook.WorkSheets(1).copy(null, ;
.WorkBooks(1).WorkSheets(.WorkBooks(1).WorkSheets.count))
.WorkBooks(1).ActiveSheet.name = ;
right(alltrim(chrtran(m.lcWorkSheetCaption, ;
chrtran(m.lcWorkSheetCaption,m.lcValidChars,"")," ")), 31) &&loWorkBook.Name
loWorkBook.close(.f.) && Do not save changes
if m.tlDeleteOriginal
erase (taXLSFiles[m.lnCounter])
endif
endif
endfor
** Remove the first original sheet from (Sheet1)
.WorkBooks(1).WorkSheets(1).delete
.WorkBooks(1).saveas(m.tcDestination)
.ScreenUpdating = .t.
.DisplayAlerts = .t.
endwith
catch to loError
lcError = Log_Error(m.loError)
finally
if vartype(m.loExcel) = 'O'
with loExcel
.ScreenUpdating = .t.
.DisplayAlerts = .t.
.quit()
endwith
endif
endtry
return m.lcError
endfunc
|
Useful Excel Automation examples
Posted: 5 Oct 03 (Edited 8 Oct 03)
|
Here is an on-going compilation of Excel automation samples.
Mike Gagnon |
DO FORM (HOME(1) + 'Tools\Filer\Filer.scx')
![[VFP Edit window for menu cleanup code]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_tORQUOgC1XCGWfl_ievIAjV_jo4P1Iaipy56Okbp9ZCIGnXLPiNtvhJWWcI4CYoIW949lfNDA_4qlcPjDxdcM4Z0JpJHwfeShuiL6N6_mDVup_wDbR1eD9EOetK6EIfg=s0-d "FoxPro Menu Cleanup code")
![[Cannot Quit Visual FoxPro message]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_v7p5sFZcWTJCz1jsar6JIc1-NKrofk5fBkh4-KidhF5CLNY9O8SXdEfj-nEhhZ9u4g-5wh9V3w9YCC0h9suZUYDuRH_60HOrtfEiC9mIUmE-frTG4LH0A1dAHyeafX=s0-d "The Cannot Quit Visual FoxPro error message")
This will start the event processing loop but we need to stop the loop in order to close the application. If you forget to do this then you'll hit the second most-common problem - the "Cannot quit Visual FoxPro." message.