[Tutorial] Enviando e-mail con VB6

[ssccaann43 ©]

Bueno, he visto muchos temas preguntado como se hace incluso yo también lo preguntava pero porfin conseguí como hacerlo, no solo bamos a necesitar vb6 si no también PHP ya que el email se envia por la web.

1 - Creamos un nuevo proyecto y bamos a: Proyecto>Componentes>Microsoft Internet Controls
2 - Aparecerá un icono de un mundo en herramientas, lo ponemos en el form y le cambiamos el nombre a ws ¿ok? seguimos
3 - Añadimos un command y le damos doble click y escribimos

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
ws.Navigate("www.lawebdondealojaremoselphp.es/index.php" & "?value=" & "aqui los datos a enviar")
End Sub
Bueno con este código ya lo hemos hecho todo en vb6.

== PHP ==
Abrimos el bloc de notas y escribimos

Código (php) [Seleccionar] Expandir

<?php
$val = $_GET['value'];
mail ('tuemail@taltal.com', 'Titulo', $val);
?>

y lo guardamos como index.php
ahora si subiis el archivo index.php a www.tuweb.com/index.php el codigo de vb6 seria

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
ws.Navigate("www.tuweb.com/index.php" & "?value=" & "aqui los datos a enviar")
End Sub


Aqui termina todo !! Ahora el index tienes que conseguir un hosting que acepte PHP.

Ale by ErMoja

A ver... Edu muy bueno el codigo... dije postear el source del coco y skl pero estoy un poco ocupado haciendole modificaciones, mientras se me ocurrio usar tú source para crear un MailBomber, ahora bien... Mi duda radica en lo siguiente...

Al momento de crear el archivo PHP yo quiero que el correo se lea desde visual.

Código (php) [Seleccionar] Expandir

<?php
$val = $_GET['value'];
mail ('tuemail@taltal.com', 'Titulo', $val);
?>

Por ejemplo en ves de tuemail@taltal.com que sea un valor que mando desde visual basic. Quisiera me corrijas..

Código (php) [Seleccionar] Expandir

<?php
$val = $_GET['value'];
$email=$_GET['value2'];
mail ($email, 'Titulo', $val);
?>

ahora como puedo hacer el codigo en visual basic?

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
ws.Navigate("www.tuweb.com/index.php" & "?value=" & "aqui los datos a enviar")
End Sub


No sabría que colocar... Agradezco puedas ayudarme... Saludos