Macro en VBA para adjuntar ficheros a mensajes y enviar mensajes en el Outlook

combinar correspondencia
Macro en VBA para adjuntar ficheros a mensajes y enviar mensajes en el Outlook:
Public Sub AddAttach()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim mail As Outlook.MailItem

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders(FicheroDeDatos).Folders(Carpeta)

For Each Item In myFolder.Items
Set mail = Item
mail.Attachments.Add Fichero, olByValue, 1
mail.Save 
Next Item
End Sub

Public Sub SendFolder()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim mail As Outlook.MailItem

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders(FicheroDeDatos).Folders(Carpeta)

For Each Item In myFolder.Items
Set mail = Item
mail.Send
Next Item

End Sub

Deja un comentario