'Project code by Tim Markoski tmarkoski@machinist-toolbox.com

Dim MAIL_TO
Dim MAIL_SUBJECT
Dim MAIL_BODY

Sub Main
MAIL_TO = "mailto:"
MAIL_SUBJECT = "?Subject="
MAIL_BODY = "&Body="

Output.caption = "Email Launch"
Output.left = Output.Width*2
Output.top = Output.Height
End Sub

Sub cmdOK_Click

    On Error Resume Next
    
    Dim strMailTo
    Dim strSubject
    Dim strBody
    Dim strMessage

    strMailTo = txtCustomer.Text & "<" & txtEmail.Text & ">"
    strSubject = txtSubject.Text
    strBody = REPLACE(txtBody.Text,vbcrlf,"%0a%0d")
         
    strMessage = MAIL_TO & strMailTo & MAIL_SUBJECT & strSubject & MAIL_BODY & strBody
    
    ShellExecute "open", strMessage
    
End Sub