Buscar
 
 

Resultados por:
 


Rechercher Búsqueda avanzada

Últimos temas
» Enviar mail por visual basic 6.0
Vie 1 Jul - 3:57 por blacksoul899

» Modificacion del foro
Vie 5 Nov - 18:14 por Admin

» Controlar PC a travez de un programa
Vie 5 Nov - 17:53 por Admin

» Hack de PC's con puertos liberados
Mar 2 Nov - 12:35 por Admin

» Sacar contraseña a una cuenta de administrador
Mar 2 Nov - 12:34 por Admin

» Como rastrear una IP
Mar 2 Nov - 12:33 por Admin

» MS-DOS Pr0-Gramer
Dom 31 Oct - 19:55 por Admin

» Como crear un programa de acceso restringido
Dom 31 Oct - 19:55 por Admin

» MS-DOS Pach Basico
Dom 31 Oct - 19:54 por Admin


Enviar mail por visual basic 6.0

Ver el tema anterior Ver el tema siguiente Ir abajo

Re: Enviar mail por visual basic 6.0

Mensaje por blacksoul899 el Vie 1 Jul - 3:57

porfavor hace un video Y.Y te lo ruego u.u !

blacksoul899

Mensajes : 1
Puntos : 2305
Reputación : 0
Fecha de inscripción : 01/07/2011

Volver arriba Ir abajo

Enviar mail por visual basic 6.0

Mensaje por Admin el Sáb 16 Oct - 19:12

Hola amigos del foro de porteritoo, hoy les enseñare como enviar un email utilizando la referencia de microsoft CDO... espero que los ayude y aqui se los dejo:

Vista del formulario:

[Tienes que estar registrado y conectado para ver este vínculo]


Nota: yo intenté usar este mismo ejemplo mediante una cuenta de yahoo pero me dió error.

Con Gmail funciona perfecto. [Tienes que estar registrado y conectado para ver este vínculo]

Para poder usar el servidor SMTP de Gmail, se debe tener en cuenta los siguientes datos al momento de configurar el componente Microsoft CDO

1. El nombre del servidor debe ser : smtp.gmail.com
2. El puerto que dispone google para dichos servidores es el 465 o el 587. A mi este ultimo me dió error
3. El nombre de usuario para la autentificación, debe ser el nombre de la cuenta de correo de gmail, incluyendo el @gmail.com .
4. El password es la misma contraseña de logueo para la cuenta de Gmail
5. Una cosa importante, es que como Gmail utiliza SSL para el correo, debemos indicar en el código que se utilizará SSL, si no no funcionará



Para usar el la referencia primero se debe agregar el componente Activex Microsoft CDO desde el menú referencias:

(Menu de arriva -> Proyecto -> referencias -> Seleccionen Microsoft CDO for windows 2000 Library o Microsoft CDO o algo asi)

Si se quiere hacer mediante automatización, para no incluir la referencia se debe crear el objeto con CreateObject, si lo van a hacer asi, aqui tienen el texto que deben poner antes del formulario:

Dim Obj As Object

Set Obj = CreateObject("CDO.Message")


Controles para el formulario

Añadir los siguietnes controles como muestra el gráfico que está al comienzo de la página

Controles del primer Frame " datos remotos "

1. Un control Textbox para indicar el servidor SMTP ( puede ser la dirección ip o el nombre del servidor de mail ) : txt_Servidor
2. Un textbox para el puerto ( si no se indica el puerto se usa por defecto el 25 ) : txt_Puerto
3. Un text para el id de usuario de la cuenta : txt_Usuario
4. Un text para el password : txt_Password

Controles para el Frame " datos del mensaje "

1. Un textbox para el nombre del remitente : txt_De
2. textbox para el destinatario : txt_Para
3. Textbox para el texto del asunto : txt_Asunto
4. Testbox para el archivo adjunto : txt_Adjunto
5. textbox para el texto del mensaje : txt_Mensaje
6. Un CommandButton para enviar el mail : Command1

Código fuente en el formulario (Haganle doble click al formulario y borren lo que aparezca, y pongan esto):




Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' El ejemplo para poder enviar el mail necesita la referencia a: _
> Miscrosoft CDO Windows For 2000 Library ( es el archivo dll cdosys.dll )

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Function Enviar_Mail_CDO(SerVidor_SMTP As String, _
Para As String, _
De As String, _
Asunto As String, _
Mensaje As String, _
Optional Path_Adjunto As String, _
Optional Puerto As String = "25", _
Optional Usuario As String, _
Optional Password As String, _
Optional Usar_Autentificacion As Boolean = True, _
Optional Usar_SSL As Boolean = True) As Boolean


Me.MousePointer = vbHourglass

' Variable de objeto Cdo.Message
Dim Obj_Email As CDO.Message


' Crea un Nuevo objeto CDO.Message
Set Obj_Email = New CDO.Message

' Indica el servidor Smtp para poder enviar el Mail ( puede ser el nombre _
del servidor o su dirección IP )
Obj_Email.Configuration.Fields(cdoSMTPServer) = SerVidor_SMTP

Obj_Email.Configuration.Fields(cdoSendUsingMethod) = 2

' Puerto. Por defecto se usa el puerto 25, en el caso de Gmail se usan los puertos _
465 o el puerto 587 ( este último me dio error )

Obj_Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(Puerto)


' Indica el tipo de autentificación con el servidor de correo _
El valor 0 no requiere autentificarse, el valor 1 es con autentificación
Obj_Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/" & _
"configuration/smtpauthenticate") = Abs(Usar_Autentificacion)



' Tiempo máximo de espera en segundos para la conexión
Obj_Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30


' Configura las opciones para el login en el SMTP
If Usar_Autentificacion Then

' Id de usuario del servidor Smtp ( en el caso de gmail, debe ser la dirección de correro _
mas el @gmail.com )
Obj_Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = Usuario

' Password de la cuenta
Obj_Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password

' Indica si se usa SSL para el envío. En el caso de Gmail requiere que esté en True
Obj_Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Usar_SSL

End If


' *********************************************************************************
' Estructura del mail
'**********************************************************************************

' Dirección del Destinatario
Obj_Email.To = Para

' Dirección del remitente
Obj_Email.From = De

' Asunto del mensaje
Obj_Email.Subject = Asunto

' Cuerpo del mensaje
Obj_Email.TextBody = Mensaje

'Ruta del archivo adjunto

If Path_Adjunto <> vbNullString Then
Obj_Email.AddAttachment (Path_Adjunto)
End If

' Actualiza los datos antes de enviar
Obj_Email.Configuration.Fields.Update

On Error Resume Next
' Envía el email
Obj_Email.Send


If Err.Number = 0 Then
Enviar_Mail_CDO = True
Else
MsgBox Err.Description, vbCritical, " Error al enviar el amil "
End If

' Descarga la referencia
If Not Obj_Email Is Nothing Then
Set Obj_Email = Nothing
End If

On Error GoTo 0
Me.MousePointer = vbNormal

End Function

Private Sub Command1_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

Private Sub Form_Load()

Me.Caption = " Ejemplo para enviar correo usando la libreria Microsoft CDO by porteritoo"
Command1.Caption = " Enviar mail "

msgbox("By [Tienes que estar registrado y conectado para ver este vínculo] / [Tienes que estar registrado y conectado para ver este vínculo]
txt_Servidor.Text = "smtp.gmail.com"
txt_Para = "destinatario@dominio.com"
txt_De = "remitente@dominio.com"
txt_Asunto = "Prueba"
txt_Mensaje = " ... Cuerpo del mensaje "
txt_Adjunto = vbNullString
txt_Puerto.Text = 465
txt_Password = "tu contraseña"
txt_Usuario = "otra vez tu usuario"
End Sub









LISTO ! YA NO COPIEN MAS...
Bueno, ahora simplemente pruevenlo (haciendo click al triangulo azul apuntando hacia la derecha, parecido al boton de Play, que esta en el menu de arriva). Y se les abrira el formulario, con los controles que les dije que pongan... Y ahora unos datos:
donde dice: smpt.gmail.com NO LO BORREN, PORQUE ES PARA QUE MANDE EL MENSAJE A GMAIL (MAIL DE GOOGLE).
donde dice: [Tienes que estar registrado y conectado para ver este vínculo] PONGAN EL EMAIL DE LA PERSONA A LA QUE LE VAN A ENVIAR EL MENSAJE (TIENE QUE SER GMAIL ME PARECE)
donde dice: [Tienes que estar registrado y conectado para ver este vínculo] PONGAN SU EMAIL
donde dice: Prueba VA EL ASUNTO DEL MENSAJE
donde dice: ... Cuerpo del mensaje PONGAN EL MENSAJE QUE VAN A ENVIAR
donde dice: 465 NO LO CAMBIEN, PORQUE ES EL PUERTO DE GMAIL
donde dice: tu contraseña DEBEN PONER SU CONTRASEÑA DEL EMAIL DE GMAIL PARA QUE SE CONECTE Y ENVIE EL MAIL DESDE AHI
donde dice: otra vez tu usuario DEBEN PONER SU EMAIL OTRA VEZ

Y ESO FUE TODO AMIGOS, ESPERO QUE LES ALLA GUSTADO Y FIJENSE QUE ME GASTE MUCHO PARA HACER ESTO PORQUE TUBE QUE EXPLICAR TODO PASO POR PASO Y MUCHAS GRACIAS POR VER MI POST ! HASTA LA PROXIMA !

Admin
Admin

Mensajes : 37
Puntos : 2147486210
Reputación : 1
Fecha de inscripción : 16/10/2010
Edad : 21
Localización : Argentina, Buenos Aires, Olavarria

http://porteritoo.com.ar

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.