Как запустить почтовую программу

Private Sub Command1_Click()
X = Shell("C:\WINDOWS\EXPLORER.EXE /root,C:\WINDOWS\ _
Internet Mail.{89292102-4755-11cf-9DC2-00AA006C2B84}", 3)
End Sub

Источник: www.vbstreets.ru