直接メーラーを起動させるメソッドはないみたいです。
xillionが考えついたのは、hyperlinkを利用する方法です。
下のマクロはTestSheetを追加して、セルA1にmailtoリンクを作成します。
これでセルA1をクリックすればメーラーが起動します。
Sub CreateMailer()
With Worksheets.Add
.Name = "TestSheet"
.Hyperlinks.Add Anchor:=[a1], _
Address:="mailto:kitano@xillion.net"
.[a1] = "このセルをクリックするとxillion宛てのメーラーが起動します"
End With
End Sub
ただし、上の例では、誰かがセルをクリックしなければなりません。
自動的に起動するには下記のマクロを実行します。
ハイパーリンクのFollowメソッドでセルのクリックと同等の動きをします。
Sub MailTo()
Sheets("TestSheet").Hyperlinks(1).Follow
End Sub
更にxillionはツールバーにしてしまいます。
Sub MailBar()
On Error Resume Next
CommandBars("test").Delete
With CommandBars.Add("test", , , True)
With .Controls.Add
.Style = msoButtonCaption
.Caption = "xillionへメールを送る"
.OnAction = "MailTo"
End With
.Visible = True
End With
End Sub
Testツールバーにxillionへメールを送るボタンを追加します。
このボタンを先ほどのMailToプロシージャに紐付けしてハイ、できあがり。
これ、次のxillionアプリに使おうかな。。。
ＶＢＡでインターネットに接続するもご参照あれ