border
VB 6
 
 
  1 links from elsewhere to this Post. Click to view. #1 (permalink)  
Antiguo 03-02-2006, 20:46:55
Nuevo Amigo
 
Registrado: abr 2005
Posts: 22
Créditos: 746
jenari Valoración +2
Predeterminado ENVIAR CORREO DESDE VISUAL BASIC

HOLA A TODOS; NECESITO ENVIAR UN MAIL A TRAVES DE MI APLICACION EN VB 6.0.

ME EXPLICO MEJOR:
TENGO UNA APLICACION QUE ME GENERA TRANSFERENCIAS PARA
PAGO DE PROVEEDORES, LUEGO QUE EL BANCO LAS PROCESA ME
DEVUELVE SI SE REALIZO CON EXITO O NO, EL USUARIO TIENE QUE
LLAMAR A CADA UNA DE LAS TRANSFERENCIAS Y MARCAR TRANSFERIDO Y AL PRESIONAR EL OK ME DEBE GENERAR UN MAIL
A LA DIRECCION QUE TENGA REGISTRADO MI PROVEEDOR,
CON UNA DESCRIPCION DE LAS FACTURAS QUE LE ESTOY CANCELANDO
EL VALOR ETC.

NO SE COMO REALIZARLO.

GRACIAS
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 06-02-2006, 08:08:10
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.481
Créditos: 28.838
Alella Valoración +2
Predeterminado

Hola, que tal.

Espero que te contesten más preciso que yo , pero para empezar es una idea.

El siguiente código es para enviar correos con fichero adjunto.En este fichero adjunto podrías incluir toda esa información que tienes que tratar.

Espero que te sirva.

Código:
Public Function MailTo(Byval Dest As String, Byval Subject As String, Byval Body As String, Optional Byval Adjunto As String) As Boolean
  On Error Goto Err_MailTo

  Dim objOLMAIL As Object
  Dim objMAIL As Object
  Dim objATCH As Object
  Dim objDEST As Object   

  Set objOLMAIL = CreateObject("Outlook.Application")
  Set objMAIL = objOLMAIL.CreateItem(0)
  objMAIL.Subject = Subject
  objMAIL.Body = Body

  Set objDEST = objMAIL.Recipients
  objDEST.Add Dest
  If Not objDEST.ResolveAll Then
       MsgBox "Error en destinatario de correo " & Dest & "."
       GoTo Exit_MailTo
  End If

  If Adjunto <> "" Then
     Set objATCH = objMAIL.Attachments
     objATCH.Add Adjunto
  End If

  objMAIL.Send

  MailTo = True   

Exit_MailTo:
  Set ObjDEST = Nothing
  Set ObjATCH = Nothing
  Set objMAIL = Nothing
  Set objOLMAIL = NOthing
  Exit Function

Err_MailTo:
  MsgBox Err.Description
  Resume Exit_MailTo

End Function
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 07-02-2006, 19:46:43
Nuevo Amigo
 
Registrado: abr 2005
Posts: 22
Créditos: 746
jenari Valoración +2
Predeterminado

gracias, voy a probar
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 09-02-2006, 17:48:12
Nuevo Amigo
 
Registrado: abr 2005
Posts: 22
Créditos: 746
jenari Valoración +2
Predeterminado

La prueba fue un exito.

Gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado

LinkBacks (?)
LinkBack to this Thread: http://www.foro.vb-mundo.com/f24/enviar-correo-visual-basic-6438/
Escrito Por For Type Fecha
como enviar correo con archivo adjunto en vb - Buscar con Google This thread Refback 23-07-2009 23:36:17

Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Enviar Email desde Visual Basic .NET spider_Ramon Visual Basic .NET 4 17-09-2009 20:16:19
Como enviar un correo desde VB6, Niurka Hernández Escobar Visual Basic 6.00 1 13-11-2007 14:20:21
Enviar Correo desde vb usando el outlook express llo_mysm4 Visual Basic 6.00 3 17-05-2007 16:57:15
LEER CORREO DESDE VISUAL BASIC Jgonzalez Visual Basic 6.00 0 16-02-2006 13:33:21
enviar emails desde visual basic pollitito Visual Basic 6.00 2 17-09-2004 00:00:00


La franja horaria es GMT. Ahora son las 07:03:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design