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

1 Respuesta

Respuesta
2

Antes de la línea del Send agrega esta instrucción:

.Attachments.Add ("C:\Users\gonzalo.nadal\Desktop\Cuestinario.xlsx")             'adjuntar archivo

Y aquí sigue el resto de tu macro:

. Send
End With
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas