SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: jerol en Lunes 29 de Diciembre de 2003, 11:56

Título: Enviar Correo Con Excel
Publicado por: jerol en Lunes 29 de Diciembre de 2003, 11:56

Hola estoy empezando a utilizar excel, y me preguntaba si alguien sabe como enviar correos con vba. Lo que quiero hacer es enviar un fichero texto que me he generado a partir de los datos de la hoja, como adjunto a una direccion de correo que yo quiera.

Gracias!

Título: Re: Enviar Correo Con Excel
Publicado por: mau en Miércoles 14 de Abril de 2004, 00:07

Yo tengo una aplicaciòn que toma datos de dos archivos de texto:
Direcciones.txt
Donde estan escritas las direcciones a las que quiero enviar el correo y

Archivo.txt : donde esta el nombre del archivo que quiero adjuntar.

Luego la parte de còdigo que escribe el correo electrònico es esta.
Creo que les servirà para tener una idea de como es que trabaja la cosa

With MAPISession1
    .SignOn
End With

For iBack = 1 To i
    With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        .Fetch
        .Compose
        .RecipAddress = cantDirecc(iBack)
        .RecipType = 1 'Dirigido directamente a la direccion especificada
        .MsgSubject = "Reporte Generado Para Core: " & Now()  'Tema del Mensaje
        .MsgNoteText = "Reporte Generado Para Core: " & Now() 'Texto del mensaje
        .AttachmentName = Adjunto 'nombre del archivo adjunto
        .AttachmentPathName = App.Path & "\" & Adjunto 'Ruta del Archivo Adjunto
        .Send 'Enviar el Mensaje
    End With
Next