Hola, bueno les vengo a pedir ayuda por lo siguiente: estoy elaborando mi proyecto de tesis que se vasa en un control de inventario la cual nesecito que envie nominas a el correo electronico del supervisor del area. un pana me dio un codigo el cual es este:
Private Sub Enviar_Click()
Dim ret As Boolean
' Asegurarse de pasar bien los últimos dos parámetros _
( Si usa login y si el server usa SSL)
ret = Enviar_Mail_CDO(Txt_Servidor, _
Txt_Para, _
Txt_De, _
Txt_Asunto, _
Txt_Mensaje, _
Txt_Adjunto, _
Txt_Puerto, _
Txt_Usuario, _
Txt_Password, _
True, _
True)
' Si devuelve true es por que no hubo errores en el envio
If ret Then
MsgBox " .. Maneje enviado ", vbInformation
End If
End Sub
Pero no me sirve :-( :-(
Y tienes todos eso textboxs como sale en la secuencia? O solo copiaste la Sub a un boton?
Recuerda que todos esos datos tienen tienen que llenarse para poder enviar el mail.
En este link (http://www.vbforums.com/showthread.php?647635-vb6-send-email-with-attachment-using-smtp) hay un formulario de descarga de un ejemplo de como enviar mail con VB6.
En este otro link (https://www.google.cl/search?hl=es-419&source=hp&biw=&bih=&q=how+to+send+email+in+visual+basic+6&gbv=2&oq=how+to+send+email+in+visual+basic+6&gs_l=heirloom-hp.3..0i19j0i22i30i19l9.1101.10845.0.10989.24.19.0.1.1.0.655.3329.2-4j1j0j3.8.0....0...1ac.1.34.heirloom-hp..15.9.3346.-UyxztNtt9k) aparecen muchos ejemplos de como enviar un mail con Vb6.
Saludos, espero te sirva, no pongo un ejemplo porque yo no se como hacerlo, pero creo que demas hay algun ejemplo que te pueda servir para lo que quieres hacer.