Make your own free website on Tripod.com

Send E-mail

'Add 1 CommandButton to your form (named Command1),
'Press the button to Launch your default e-mail program in Compose mode.

'Insert the following code to your form:

Private Sub Command1_Click()
'Replace myemail@hotmail.com with the E-mail address you want to send the message to.
'You can replace 'vbHide' with following settings, according to in which state
'you want to open the default E-mail program:
'vbHide ; vbMaximizedFocus ; vbMinimizedFocus ;vbMinimizedNoFocus ;
'vbNormalFocus ; vbNormalNoFocus

RetVal = SHELL("Start.exe mailto:myemail@hotmail.com", vbHide)
End Sub

Go Back