Macro Excel para adjuntar archivo a email
Soy nuevo en esto de las Macros y he creado una para realizar envíos de email a un listado de personas, pero ahora quiero añadir un archivo y no encuentro la forma de hacerlo.
El archivo a ajuntar se llama Cuestinario.xlsx y está en C:\Users\gonzalo.nadal\Desktop
La macro es:
Sub EnviarEmail()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Saldo As String
Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B11:B144")
'
'Asignamos valor a las variables
'
Asunto = "Asunto Email"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Saldo = Format(cell.Offset(0, 1).Value, "$#,##0")
FechaVencimiento = Format(cell.Offset(0, 2).Value, "dd/mmm/yyyy")
'
'Cuerpo del mensaje
'
Msg = " Buenas tardes, " & vbNewLine & vbNewLine
Msg = Msg & "Necesitamos, antes del viernes 12, para xxxxxxxxxx " & Destinatario & vbNewLine & vbNewLine
Msg = Msg & "Para cualquier consulta o duda, 6xxxxxxx. Atentamente:" & vbNewLine
Msg = Msg & "Departamento xxxxx."
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub
