Visual Basic - codigo progama vb 6.0 envio de correo

Life is soft - evento anual de software empresarial
   
Vista:

codigo progama vb 6.0 envio de correo

Publicado por cristian vargas (4 intervenciones) el 10/03/2011 21:14:29
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

codigo progama vb 6.0 envio de correo

Publicado por Pedro Luis (128 intervenciones) el 11/03/2011 09:13:51
'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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar