Popular channels

[Solucionado] Enviar mail con VB 6.0

Hola a todos, estoy armando un programa y hace dias estoy pasando horas buscando informacion pero ninguna me funciona. Todas me tiran errores por todos lados. Asique decidi unirme a esta comunidad con tanta gente esperando encontrar a alguien que me ayude, porque como veran no son muchos los programadores dispuestos a prestar sus codigos..
yo arme un programa que captura los datos de 2 textbox y me los guarda en un bloc de notas. ahora necesito que ese archivo me lo mande por mail.. ahi se me complico.
Bueno si alguno tiene un codigo que ANDE, que lo probo y ANDA por favor si me ayuda que me lo pase, o sino me ayuda ami a hacer uno.
yo hasta ahora de TODOS los muchos que probe el que mas lejos llego es este, y digo eso porque por lo menos no da errores, lo que hace es quedarse tildado el programa sin reaccionar, nose porque
bueno este es el codigo:

Private Sub Command1_Click()
Open "C:mi texto.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
mensaje = MsgBox("Estableciendo conexión", , "Conectando..." )

Dim lCount As Long
Dim lCtr As Long
Dim t!

bSendFailed = False
Screen.MousePointer = vbHourglass

SMTPHost = "smtp.gmail.com"
From = Text1.Text
Attachment = "C:mi texto.txt"

lCount = Val(txtQty)

If lCount = 0 Then Exit Sub
t! = Timer

For lCtr = 1 To lCount
Recipient = "[email protected]"
Subject = "texto" & " (Message # " & Str(lCtr) & " )"

Next

If Connect Then
For lCtr = 1 To lCount
lbltime = "Sending message " & Str(lCtr)
Recipient = Text1.Text
Subject = "texto" & " (Message # " & Str(lCtr) & " )"

Next

End If
mensaje = MsgBox("¡Conexión establecida!", , "Conectado" )
End Sub


Bueno ese es el codigo, esta en Visual Basic 5.0, tambien lo probe en el 6.0 pero da igual.


NOTA: RESPUESTA EN COMENTARIOS


YA NO TENGO EL CODIGO. ESTO ES VIEJO!!
0
0
0
0No comments yet