how are you entering the desired quickpart? Are you using a building block gallery content control? If so, you could convert the chosen entry to a rich text control before sending externally:
HTML Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCC As ContentControl
Dim oCCNew As ContentControl
Dim oRng As Word.Range
Dim strText As String
For Each oCC In ActiveDocument.ContentControls
If oCC.Type = wdContentControlBuildingBlockGallery Then
Set oRng = oCC.Range
strText = oCC.Title
oCC.Delete
Set oCCNew = ActiveDocument.ContentControls.Add(wdContentControlRichText, oRng)
oCCNew.Title = strText
End If
Next oCC
End Sub