『outlook Expressメールの添付について』（まき）

いつも色々参考にさせて頂いております。過去のログ等で検索したのですが、分からなか

った為（VBAは他web参照）教えて下さい。

現在シートに『メール』というボタンをもうけ、実行中のファイルを添付で送ろうと考え

ております。社内でOSがXP〜Windows7、メールがoutlook Express6(XP)、Windowsメール

(Vista)、Liveメール(Windows7)となっています。今試しにoutlook Express6を使って

見ようと下記の通りVBAを組んだ所、実行エラー '429'　ActiveXコンポーネントはオブジ

ェクトを作成できません。と出て来てしまいます。outlook Express6では、駄目なのでし

ょうか？でも、手動で行うとoutlook Express6で添付が出来ますが。

 Private Sub メール_Click()

 Dim oApp As Object
 Dim objMAIL As Object
 Dim フルパス As String, シート名 As String

    Application.DisplayAlerts = False           'メッセージを出さない
    Application.ScreenUpdating = False      '画面の描画をOFFにします
    シート名 = ActiveSheet.Name
    フォルダー = ThisWorkbook.Path
    Worksheets("TOP").Select
    
    'ファイルの保存
    フルパス = ActiveWorkbook.FullName          'フルパス（パス付ブック名）
    If Val(Application.Version) < 12 Then
        ActiveWorkbook.SaveAs Filename:=フルパス & "", FileFormat:=xlWorkbookNormal
    Else                                        'エクセルVer2007時に97-2000形式保"
        ActiveWorkbook.SaveAs Filename:=フルパス & "", FileFormat:=56
    End If
    
    Worksheets(シート名).Select
    
    Set oApp = CreateObject("OutlookExpress.Application")
    'Set oApp = CreateObject("WindowsMail.Application")

    Set objMAIL = oApp.CreateItem(0)

    objMAIL.To = "abc@1234.co.jp"
    objMAIL.Subject = "受注・売上予測ファイル"
    objMAIL.Body = "当月分の予測ファイルです。"
    
    objMAIL.Attachments.Add フルパス

    '送信
    objMAIL.Send

    Set objMAIL = Nothing
    Set oApp = Nothing

    Application.DisplayAlerts = True       'メッセージを出す

 End Sub

ちなみに、Excel2007だと次の」コマンドでメールが立ち上がりますが、2003では駄目でした。

 Sub mail()
    
    Application.Dialogs(xlDialogSendMail).Show

 End Sub

お忙しい所すいませんが、ご伝授の程お願い申し上げます。