Does Microsoft Slow Down Onedrive Performance on Linux?


The interesting point here is that when using a Windows PC on the exact same connection with the OneDrive app, everything runs smooth and fast.

And the plot gets thicker, as these Linux users have observed that changing the browser’s user-agent string (the text a browser sends to a site to identify itself) to either Microsoft’s Edge or IE speeds the OneDrive web experience up to a fluid level on a Linux (or Chrome OS) system.


Does your company allow you to work on side projects from home?

There are some work contracts that can mean that if you work on anything during (and sometimes after) you are contracted to them the company has ownership of your work. Even if that work is completely in your personal time using your own resources. GitHub wants to change that with a fairer contract that allows workers to contribute to personal or community projects to bring more balance to the IP relationship between employers and employees.

To read more visit their blog here



Save / Extract Outlook Attachments from emails and save them to a Folder

I have been meaning to post this for a while.
Some VBA code to extract attachments from a folder in Outlook and save them.

You can choose the Outlook folder but it is hard coded to save the attachments to C:\Email Attachments\
Sub AttachDetach()
‘ *******************************************************************************
‘ Name – AttachDetach
‘ Description – Removes Attachements from an Outlook Folder and saves them to C:\Email Attachments\
‘ Date Changed – 10/03/2011 <– Please keep this up to date
‘ Changed by – Dan Thomas  <– Please keep this up to date
‘ *******************************************************************************

Dim ns As NameSpace

Dim Inbox As MAPIFolder

Dim item As Object

Dim Atmt As attachment

Dim filename As String

Dim i As Integer

Set ns = GetNamespace(“MAPI”)

Set Inbox = ns.PickFolder

i = 0

If Inbox.Items.Count = 0 Then

MsgBox “There are no messages in the Inbox.”, vbInformation, _

“Nothing Found”

Exit Sub

End If

For Each item In Inbox.Items

For Each Atmt In item.Attachments

filename = “C:\Email Attachments\” & i & Atmt.filename

Atmt.SaveAsFile filename

i = i + 1

Next Atmt

Next item

If i > 0 Then

MsgBox “I found ” & i & ” attached files.” _

& vbCrLf & “I have saved them into the C:\Email Attachments folder.” _

& vbCrLf & vbCrLf & “Have a nice day.”, vbInformation, “Finished!”


MsgBox “I didn’t find any attached files in your mail.”, vbInformation, _


End If


Set Atmt = Nothing

Set item = Nothing

Set ns = Nothing

End Sub

Windows Vista support is ending on April 11, 2017

Some may say that it is about time, others may have thought that it had already happened, but Windows Vista support is ending. This means that if you have Vista installed (you brave, brave person!) then you will no longer receive new security updates, non-security hotfixes, free or paid assisted support options, or online technical content updates from Microsoft.

Read more at: Windows Vista support is ending – Windows Help
(With advert for Windows 10)

Microsoft Outlook – Keep zoom setting when reading emails

Open up Outlook
Press Alt and F11

Navigate to:
Project1 | Microsoft Outlook Objects | ThisOutlookSession

Paste the code below in (about 52 lines)

'  --- Start Copy Here ---
'* The code below changes the zoom for reading and writing e-mails *
'* Written By: Dan Thomas                                          *
'* Date: 30th Oct 2012                                             *
Option Explicit
' For more information on the below varibles please see
Dim WithEvents objOLInspectors As Outlook.Inspectors   'Define the Outlook Inspectors varable
Dim WithEvents objOLMailItem As Outlook.MailItem       'Define the Outlook Mail Item varible
Dim WithEvents objOLOpenInspector As Outlook.Inspector 'Define the Outlook Inspector varable

Private Sub Application_Startup()
' Set the Inspectors object to the objOLInspectors varible at start of application
' This will generate a warning to ask if you want to enable Macros when starting Outlook within Airbus
Set objOLInspectors = Application.Inspectors
End Sub

Private Sub Application_Quit()
' Sets all the varibles to nothing when quitting outlook
Set objOLInspectors = Nothing
Set objOLOpenInspector = Nothing
Set objOLMailItem = Nothing
End Sub

Private Sub objOLInspectors_NewInspector(ByVal Inspector As Inspector)
' This sets the objects to varibles when opening mails
If Inspector.CurrentItem.Class = olMail Then
Set objOLMailItem = Inspector.CurrentItem
Set objOLOpenInspector = Inspector
End If
End Sub

Private Sub objOLOpenInspector_Close()
' Clears the varibles when closing e-mails
Set objOLMailItem = Nothing
End Sub

Private Sub objOLOpenInspector_Activate()

'For Office 2007
'Dim wrdDoc As Word.Document

'For Office 2010
Dim wrdDoc As Object

' For the below to work you have to go to Tools|References... and make sure the Microsoft Office 14.0 Object Library has been selected
Set wrdDoc = objOLOpenInspector.WordEditor ' Sets the wrdDoc Varible to the Word Editor object

' Set the number at the end of this line for zoom amount
wrdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 145
End Sub
'  --- End Copy Here ---

Click save
Check that Tools|References... and make sure the Microsoft Office 14.0 Object Library has been selected
If you have Outlook 2007 you may have to activate the line that says Dim wrdDoc As Word.Document
and rem the line that says Dim wrdDoc As Object

Close outlook and restart

Cisco Router stuck in rommon

If you try to power cycle some types of Cisco routers then you may get it stuck in rommon.

It will generally flash a red light at you and when you try to Telnet into it the command prompt will display romon 1>

Just simply type in
confreg 0x2102
Then press the enter key and then type in

The router should then boot up as normal.