Autor Tema: Enviar Correo Con Vb Con Adjunto (Leído 3280 veces)

bouras · « **en:** Martes 11 de Abril de 2006, 22:27 »

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(&#34;mail&#34; + tabla(i)) 'tabla es mi recordset aqui se puede poner la direccion en texto
            .RecipType = 1 'Dirigido directamente a la direccion especificada
            .MsgSubject = &#34;Reporte Generado Para XX&#34;  'Tema del Mensaje
            .MsgNoteText = &#34;Reporte Generado Para &#34; 'Texto del Mensaje
            .AttachmentIndex = 0
            .AttachmentName = &#34;RepVentasInv.xls&#34;  ' Nombre del Archivo Adjunto
            .AttachmentPathName = App.Path & &#34;&#092;&#34; & &#34;RepVentasInv.xls&#34; 'Ruta y nombre del Archivo Adjunto
            .AttachmentIndex = 1
            .AttachmentName = &#34;Ventas.xls&#34; ' Otro Nombre de Archivo
            .AttachmentPathName = App.Path & &#34;&#092;Ventas.xls&#34; ' y la dire del otro archivo
            .Send False 'Enviar el Mensaje
    End With
Next
 

Suerte

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.

SoloCodigo

Autor Tema: Enviar Correo Con Vb Con Adjunto (Leído 3280 veces)

bouras

Enviar Correo Con Vb Con Adjunto

mau

Re: Enviar Correo Con Vb Con Adjunto

bouras

Re: Enviar Correo Con Vb Con Adjunto

mau

Re: Enviar Correo Con Vb Con Adjunto