Source Code Samples

From: Dave Larroquette dave@oakalley.com
Subject: How to email from VB6

Dim stext As String
Dim saddedtext As String
Dim txtsubject As String
Dim txtbody As String

 

txtsubject = "Allied Repair Notification"
txtbody = "Your Repair For Ticket Number " & Text1(12).Text & " Is Ready"

 

    If Len(Text1(10).Text) Then
        stext = Text1(10)
    End If
   
    If Len(txtCC) Then
        saddedtext = saddedtext & "&CC+" & txtCC
    End If
   
    If Len(txtBCC) Then
        saddedtxt = saddedtext & "&BC=" & txtBCC
    End If
   
    If Len(txtsubject) Then
        saddedtext = saddedttext & "&Subject=" & txtsubject
    End If
   
    If Len(txtbody) Then
        saddedtext = saddedtext & "&Body=" & txtbody
    End If
   
    If Len(txtattachmentfilelocation) Then
        saddedtext = saddedtext & "&Attacth=" & _
        Chr(34) & txtattachmentfilelocation & Chr(34)
    End If
   
    stext = "mailto:" & stext

 

    If Len(saddedtext) <> 0 Then
        Mid$(saddedtext, 1, 1) = "?"
    End If
   
 stext = stext & saddedtext
 
     If Len(Trim(Text1(10).Text)) > 0 And _
        Len(Trim(Text1(12).Text)) > 0 Then
       
        Call ShellExecute(Me.hwnd, "open", stext, vbNullString, _
        vbNullString, SW_shownormal)
   
    Else
        MsgBox "Must Have Email Address or Ticket Number for Customer", vbCritical, "Allied Music LLC"
    End If