Word 2010 mit Outlook 2003 Senden An E-Mail Empfänger

Hallo zusammen,
durch die Umstellung auf Office 2010 (außer Outlook) ist es nicht mehr möglich in Word den Punkt " An Email Empfänger senden" auszuwählen.
Ist auf dem Rechner das komplette Office 2010 installiert, steht diese Funktion zur Verfügung.
Ich habe das Problem, dass ich in Outlook 2003 ein Addon verwende, was im Outlook 2010 nicht funktioniert.

Ist es irgendwie möglich diese Funktion in Word 2010 zu nutzen in Verbindung mit einem Outlook 2003??

Ich bin für jede Hilfe dankbar.

MfG
Mario

Sub SendDocAsAttachment()
    If ActiveDocument.FullName <> "" Then  
        Set objOL = CreateObject("Outlook.Application")  
        Set objMail = objOL.CreateItem(0)
        With objMail
            .Attachments.Add ActiveDocument.FullName
            .Display
        End With
    Else
        MsgBox "Sie müssen das Dokument erst speichern!"  
    End If
End Sub