Vào link bên dưới, xóa user và share lại.
MembershipGroupId=0
Sub SetOfflineMode() Dim appOutlook Dim blnIsOffline On Error Resume Next Set appOutlook = CreateObject("Outlook.Application") If Err.Number = 0 Then blnIsOffline = appOutlook.Session.Offline If Not blnIsOffline Then appOutlook.ActiveExplorer.CommandBars.ExecuteMso ("ToggleOnline") End If Else End If If Not (appOutlook Is Nothing) Then Set appOutlook = Nothing End Sub