' [255.xls]



' [Module1] のコード
'★★☆　選択したアドレスを宛名にしてメールソフトを起動する　☆★★

'start.exeのヘルプより
'Windows アプリケーション又は MS-DOS アプリケーションを実行します

'start.exeは以下の場所にあります、確認してみて下さい
':\WINDOWS\COMMAND\START.EXE

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()

    'start.exeを引数に"mailto"を付けて起動
    Shell "start.exe mailto:" & ListBox1.Value

    Unload Me
    
End Sub

Private Sub UserForm_Initialize()

    With ListBox1
        .RowSource = "E8:E13"
        .Selected(0) = True
    End With

End Sub