Visual Basic - Como enviar correo automaticamente visual basic 6.0

Life is soft - evento anual de software empresarial
   
Vista:

Como enviar correo automaticamente visual basic 6.0

Publicado por EDGAR MONGE (3 intervenciones) el 11/10/2013 18:37:24
Tengo un programa que está funcionando en mi trabajo desde hace un año, cree una opcion de generar claves automaticamente y que son temporales.

Pero se muestran en un Msgbox. quiero que esas claves se envien por correo automaticamente tengo el siguiente código que lo obtuve en esta pagina pero me da un problema pues fichero es una variable pero no se que debe cargarse en esa variable para ver si me ayudan, soy nuevo en esto.

Function EnvioMail()

'On Error GoTo Error
Dim correo As Object



' </> ---&--- </> Envio del Correo

Set correo = CreateObject("CDO.Message")

correo.From = "Mi_Direccion@mail.com"
correo.To = "Destino@mail.com"
correo.BCC = "Copia_Oculta@mail.com"
correo.Subject = "ASUNTO"
correo.AddAttachment fichero
correo.TextBody = "Cuerpo"
correo.Send
Set correo = Nothing

Exit Function
'
'Error:
'MsgBox "Error en el envio del Correo"
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como enviar correo automaticamente visual basic 6.0

Publicado por Juan Gilberto (278 intervenciones) el 12/10/2013 19:52:08
Trata cargando en la variable la ruta completa al archivo

Ejemplo :
1
Fichero = "C:\Carpeta1\SubCarpeta1\Archivo.txt"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como enviar correo automaticamente visual basic 6.0

Publicado por Edgar (3 intervenciones) el 14/10/2013 16:14:02
Perfecto con esto le agradezco.

ahora no se por que me da un error "No es valido el error de configuracion "sendUsing "
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como enviar correo automaticamente visual basic 6.0

Publicado por Juan Gilberto (278 intervenciones) el 15/10/2013 16:16:39
El siguiente es un codigo que funciona...
El asunto contigo es que tienes que definir el servidor de correo que vas a usar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Ejemplo CDO Message"
objMessage.From = "miemail@micorreo.com"
objMessage.To = "prueba@gmail.com"
objMessage.TextBody = "Este es un ejemplo de mensaje..."
 
'---Aqui se configura el servidor remoto de SMTP
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'---Nombre o IP del Servidor Remoto de SMTP
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"
 
'---Puerto del servodor (normalmente 25)
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
'---Actualizar
objMessage.Configuration.Fields.Update
 
'---Fin de configuracion
 
objMessage.Send

Si no tienes un servidor de correo, puedes utilizar el de gmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como enviar correo automaticamente visual basic 6.0

Publicado por Edgar Monge (3 intervenciones) el 17/10/2013 17:52:41
Indico el servidor de gmail y uno de mi trabajo, en el caso de gmail el puerto seria 465 ó 587 creo que serian esos dos, pero con ambos servidores trabajo y gmail me da un error "Error de transporte en la conexion al servidor"

tengo este otro codigo y me da el mismo error

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 "
Command1.Caption = " Enviar mail "

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 = ""
txt_usuario = ""
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar