Excel - enviar mail LotusNotes

   
Vista:

enviar mail LotusNotes

Publicado por akasma (11 intervenciones) el 02/08/2010 14:16:28
Hola!!

A ver si me podeis ayudar con este problema. Tengo que enviar unos csv´s por email mediante excel. Lo tengo hecho para que mande un csv cada vez, es decir, que cada vez quiero enviar un archivo se me crea un mail nuevo.Lo que yo quiero es poder enviar más de un archivo en un mismo correo, he encontrado este código que permite elegir más de un archivo pero luego no se como utilizarlo. El resultado del código es que me envia el libro entero.

Sub NombreArchivo()

Dim Archivo As Variant
Dim Archivos As Variant
Dim Mensaje As String

Archivos = Application.GetOpenFilename(Title:="Seleccione el archivo a adjuntar", MultiSelect:=True)

If IsArray(Archivos) Then

For Each Archivo In Archivos

Mensaje = Mensaje & Archivo & vbLf

Next Archivo

MsgBox "Se seleccionaron los archivos: " & vbLf & Mensaje

Else

MsgBox "No se seleccionó ningún archivo."

End If

End Sub

Muchas Gracias!!!
Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder