Outlook Expressで添付ファイル

Commandボタンを押すと新規メールが立ち上がり選択したファイルが
添付されているという処理を行いたいのですが、Outlookでのメール
への添付はできたのですが、Outlook Expressだとできません。
Set out = CreateObject("Outlook.Application")
With out.CreateItem(olMailItem)
'.Recipients.Add ""
'.Recipients.Add ""
.Attachments.Add dataPath
.Display
End With
でOutlookはできましたが、Expressの場合はどうするのでしょうか。
御教授願います。