hi friend!

I am not as good as Erick Moreau, as a matter of fact, I am just a fan of computer programming, I am not even good, but I think you are looking for something I did a few months ago, so if you want to download the source code, do it by clicking at this link: http://www.geocities.com/infosystemc/email.zip

here is a snnipet of code, just in case you want to have a look first:

Private Sub Command1_Click()
'dimension Variables
Dim ret As Long
Dim sTo As String
Dim sCC As String
Dim sBCC As String
Dim sSubject As String
Dim sBody As String
'asign values to variables with the text boxes text
sTo = Text1.Text
sCC = Text2.Text
sBCC = Text3.Text
sSubject = Text4.Text
sBody = Text5.Text
'This will call Start.exe, to Open your Outlook or Eudora software with
'all the values we asigned to these variables above!
ret = Shell("Start.exe " _
& "mailto:" & """" & sTo & """" _
& "?Subject=" & """" & sSubject & """" _
& "&cc=" & """" & sCC & """" _
& "&bcc=" & """" & sBCC & """" _
& "&Body=" & """" & sBody & """" _
& "&File=" & """" & "c:\autoexec.bat" & """", 0)
'facil verdad?
End Sub

Private Sub Command2_Click()
'this button erases the contain of the text boxes, just in case they want to
'clear the whole thing and start typing again... is a reset button!
Dim msgverificar As String
msgverificar = MsgBox("Desea borrar los datos ya escritos? ", vbOKCancel, "Advertencia :")
'si hacen click en OK entonces a borrar todo esto!
If msgverificar = vbOK Then
'clear text boxes
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
'otherwise,
Else
Exit Sub
End If
End Sub

Private Sub Command3_Click()
'descargemos esta pantalla
Unload Me
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Ok, I am glad that I can share with the Universal Thread this, cus this is my school, I love this forum, Is the place to be always,

I hope this can help you friend! Amigo!

I am a native spanish speaker, but I think you will figure it out about the message box texts, verdad?

Thanks for having this forum!