Visual Basic - codigo progama vb 6.0 envio de correo

favor si alguien me ayuda necesito un codigo de programa envio de correo para insertarlo en sistema de factura echo en visual basic 6.0 favor si algien sabe
se lo agradecere

atte-



cristian vargas

Ve al enlace de arriba

'Para CCs (con copia): &CC= (seguido de la lista)
'Para copia invisble: &BCC= (seguido de la lista)
'Para el asunto: &Subject= (seguido del texto)
'Para el cuerpo del mensaje: &Body= (seguido del texto)
'Para fichero anexados: &Attach= (seguido de un nombre de fichero válido entre comillas chr(34))
Dim sText As String
Dim sAddedText As String
Dim Direccion s String
direccion ="La que sea2
If Len(direccion) Then
sText = direccion
End If
'If Len(txtCC) Then
' sAddedText = sAddedText & "&CC=" & txtCC
'End If
'If Len(txtBCC) Then
' sAddedText = sAddedText & "&BCC=" & txtBCC
'End If
'If Len(Asunto) Then
' sAddedText = sAddedText & "&Subject=" & Asunto
'End If
'If Len(Mensaje) Then
' sAddedText = sAddedText & "&Body=" & Mensaje
'End If
'If Len(txtAttachmentFileLocation) Then
' sAddedText = sAddedText & "&Attach=" & Chr(34) & txtAttachmentFileLocation & Chr(34)
'End If
sText = "mailto:" & sText
' clean the added elements
If Len(sAddedText) <> 0 Then
' there are added elements, replace the first
' ampersand with the question character
Mid$(sAddedText, 1, 1) = "?"
End If
sText = sText & sAddedText
If Len(sText) Then
Call ShellExecute(Me.hWnd, "open", sText, vbNullString, vbNullString, SW_SHOWNORMAL)
End If

End Sub