Hola gente , estoy programado un software simple para probar y quiero que me ayuden.
¿Cómo puedo enviar el text de un textbox directo a mi corre?
bueno agradesco cualquier ayuda
salu2s
Hola gente , estoy programado un software simple para probar y quiero que me ayuden.
¿Cómo puedo enviar el text de un textbox directo a mi corre?
bueno agradesco cualquier ayuda
salu2s
http://ipc.blogcindario.com Tu blog de noticias...
hola ya que saves como se trabaja con el webbrowser puedes hacer lo mismo para enviar mail
fijate agrega los textbox que dice el codigo con sus nombres , el label con su nombre y botones y el webbrowser
Código:Private Sub Command1_Click() On Error GoTo rason WebBrowser1.Document.Forms(0).sender.Value = TxtDe WebBrowser1.Document.Forms(0).receiver.Value = txtPara WebBrowser1.Document.Forms(0).subject.Value = txtAsunto WebBrowser1.Document.Forms(0).body.Value = txtMensage WebBrowser1.Document.Forms(0).submit lblInformacion.Caption = "Enviando..." Exit Sub rason: MsgBox Error End Sub Private Sub Command2_Click() TxtDe.Text = "" txtPara.Text = "" txtAsunto.Text = "" txtMensage.Text = "" lblInformacion.Caption = "" End Sub Private Sub Form_Load() WebBrowser1.Navigate "http://www.elguille.info/NET/ASPNET/formularioMailASP.htm" 'o bien si quieres que copia el codigo de pagina y guadala en tu carpetna del proyecto 'WebBrowser1.Navigate App.Path & "\enviarcorreoASP.htm" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next If WebBrowser1.LocationURL = "http://www.elguille.info/NET/ASPNET/sendMailASP.asp" Then lblInformacion.Caption = "Su Mensage a sido enviado correctamente a " & txtPara WebBrowser1.Navigate App.Path & "\enviarcorreoASP.htm" End If End Sub
Saludos