Visual Basic para Aplicaciones - Enviar documentos adjuntos individuales a una misma direccion

Public correoDestino As String

Public asuntoCorreo As String

Public mensajeCorreo As String

Public documentoAdjunto As String

Public Sub envio1()

    Dim OutlookApp As Outlook.Application

    Dim Mitem As Outlook.MailItem

    Set OutlookApp = New Outlook.Application

    Set Mitem = OutlookApp.CreateItem(olMailItem)

    With Mitem

        .To = correoDestino

        .Subject = asuntoCorreo

        .Body = mensajeCorreo

        '.Attachments.Add documentoAdjunto'quitar comentario si se adjunta uno o mas archivos al correo

        .Send

    End With

End Sub

Public Sub autoEnvio()

    Dim fechaEnvio As String

    Dim ultfila As Long

    ultfila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To ultfila

        fechaEnvio = Hoja1.Range("A" & i)

        If DateValue(fechaEnvio) = Date And Hoja1.Range("E" & i) <> "ENVIADO" Then

            correoDestino = Hoja1.Range("B" & i)

            asuntoCorreo = Hoja1.Range("C" & i)

            mensajeCorreo = Hoja1.Range("D" & i)

            'documentoAdjunto = "" 'direccion completa del archivo a adjuntar, si no se adjunta nada dejar comentado

            Hoja1.Range("E" & i) = "ENVIADO"

            Call ModuloCorreo.envio1

        End If

    Next i

End Sub