Save email as PDF in outlook, and edit document in word

[gmayor]

Incidentally you have an error in your syntax

    For Each oShape In oRng.InlineShapes
        With oShape
         oShape.LockAspectRatio = msoTrue
            End If
            If oShape.Width > wdApp.InchesToPoints(6.5) Then
                oShape.Width = wdApp.InchesToPoints(6.5)
            End If
        End With
    Next oShape

should read

    For Each oShape In oRng.InlineShapes
        oShape.LockAspectRatio = msoTrue
        If oShape.Width > wdApp.InchesToPoints(6.5) Then
            oShape.Width = wdApp.InchesToPoints(6.5)
        End If
    Next oShape