Private Sub CommandButton1_Click()
Dim OutApp As Object, Outmail As Object
Dim mynamespace As Outlook.Namespace
Set OutApp = CreateObject("Outlook.Application")
Set mynamespace = OutApp.GetNamespace("MAPI")
mynamespace.Logon TextBox1.Text, , , True
Set Outmail = OutApp.CreateItem(0)...