Enviar Email

XerXi
30 de Septiembre del 2004
Hola,
alguien me puede decir dónde encontrar información o código sobre como mandar emails con ficheros adjuntos desde visual basic?

Salu2 y Gracias

zabait
30 de Septiembre del 2004
www.freevbcode.com
De todas firmas, creo que te vale esto

Sub Send_Mails(PARA As String, TITULO As String, CUERPO As String, ATTACH As String, NOMBREATT As String)

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

'Enables automatic "YES" clicks for Outlook
Turn_Auto_Yes_On
'set variables for Outlook and a message
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = PARA
.SUBJECT = TITULO
.HTMLBody = CUERPO
.Attachments.Add ATTACH, olByValue, 1, NOMBREATT
.Send
End With

'Turns off the Auto_Yes program
Turn_Off_Auto_Yes
Set MailOutLook = Nothing
Set appOutLook = Nothing

End Sub

zabait
30 de Septiembre del 2004
Lo siento que no me he explicado bien en la respuesta anterior.

Esta es una función desarrollada por mi a partir del código que aparecía en la freevbcode.com
Tienes que añadir al proyecto la referencia de Outlook y a partir de ahí enviar los mails que quieras con la función. Los parámetros son los siguientes:

PARA son la/s dirección/es separadas con comas ","
SUBJECT es el titulo que quieres que aparezca en el mail
CUERPO del mail (lo que quieres escribir)
ATTACH es la dirección donde se encuentra el archivo que quieres enviar como attachment (dirección completa de la localización del archivo, no valen direcciones relativas)
NOMBREATT es el nombre del fichero que quieres que aparezca

Puedes enviar tantos attachment como quieras, solo tienes que copiar la sentencia .add y modificar los attachs. Para ello necesitarás un par de vectores de nombres y direcciones de attachments (solución más sencilla).

Espero que te sea de ayuda