ＶＢＡでＰＤＦファイルをメールに添付する

下記のＶＢＡでエクセルのファイルをｐｄｆに変換して名をつけ保管する、と同時に自動的にメールへ添付したいのですがうまくいきません
「Ａ」でエクセルをｐｄｆに変換して名をつけて保管することができます。
「Ｂ」でメールを開き件名の挿入までできます。
「Ａ」のｐｄｆファイルを「Ｂ」のメールに添付するプログラムを教えて下さい。
windows7、.エクセルは２０１０です

「Ａ」
Sub メール()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\nakasima\Documents\見　積\見積書控\" & Range("O4").Value & ".pdf",_
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

「Ｂ」
Shell "C:\Program Files\Windows Live\Mail\wlmail.exe /mailurl:mailto:?subject=_
見積書送付の件"
End Sub

No.1 回答者： x-1919 回答日時： 2012/12/20 01:24

Windows Live メール限定で考えず CDO で送信したほうが早くないですかね。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …

BASP21 を使うって手もあるし。