Programación General > Visual Basic 6.0 e inferiores
Enviar Correo Con Vb Con Adjunto
(1/1)
bouras:
:( quisiera enviar correo desde visual basic sin MAPI, ya que esto hace un llamado a outlook y este a su vez emite una ventanita de que se esta enviando un correo desde otro programa... etc.
Lo envía sin problemas con el metodo webdav, pero no se como hacerlo adjuntando un archivo.
quisiera saber si tienen una forma de enviar un mail con adjunto desde visual basic a cualquier servidor de correo.
gracias de antemano
mau:
mira, aqui te paso un trozo de código que uso yo ahora mismo en uno de mis programitas :)
Espero que te sirva para tomar la idea de cmóo hacerlo, el código casi que se explica por sí mismo, pero si tienes dudas solo pregunta puntualmente:
--- Código: Text ---For i = 1 To 10 'Es un loop para enviar muchos correos With MAPIMessages1 .SessionID = MAPISession1.SessionID .Fetch .Compose .RecipAddress = Rst("mail" + tabla(i)) 'tabla es mi recordset aqui se puede poner la direccion en texto .RecipType = 1 'Dirigido directamente a la direccion especificada .MsgSubject = "Reporte Generado Para XX" 'Tema del Mensaje .MsgNoteText = "Reporte Generado Para " 'Texto del Mensaje .AttachmentIndex = 0 .AttachmentName = "RepVentasInv.xls" ' Nombre del Archivo Adjunto .AttachmentPathName = App.Path & "\" & "RepVentasInv.xls" 'Ruta y nombre del Archivo Adjunto .AttachmentIndex = 1 .AttachmentName = "Ventas.xls" ' Otro Nombre de Archivo .AttachmentPathName = App.Path & "\Ventas.xls" ' y la dire del otro archivo .Send False 'Enviar el Mensaje End WithNext
Suerte :D
bouras:
lo que sucede con las MAPI es que manda una ventanita de advertencia por cada mail, y eso hace que los casi 700 correos que se van a mandar se haga bastante engorroso.
Gracias por la ayuda.
mau:
ahhhhh disculpa, tienes razón.
Leí sin poner atención.
Navegación
Ir a la versión completa