Programar reuniones 📆 de Outlook de forma masiva con adjuntos 📎 desde Excel con VBA - Excel Avanzado

Tutorial para crear cientos de reuniones o citas de Outlook con Excel de forma automática. Solo con darle a un botón se incluye en el calendario y se mandan los mails necesarios con día, duración, adjuntos o lo que necesitemos. Índice: 0:00 Introducción 1:34 Visual Basic 9:29 Mandar citas Código macro usado: Sub Citas() '   / aprendizdeexcel   Dim App As Object Dim Cita As Outlook.AppointmentItem 'AppointmentItem Representa una reunión, una cita única o una cita o reunión periódica en la carpeta Calendario. Sheets("Cita").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") Set Cita = App.CreateItem(olAppointmentItem) Cita.MeetingStatus = olMeeting ' Cita.MeetingStatus = olMeetingCanceled With Cita .Subject = Range("B" & i).Value .Start = Range("C" & i).Value .Duration = Range("D" & i).Value .Location = Range("E" & i).Value .Body = Range("F" & i).Value .Attachments.Add Range("G" & i).Value Set myRequiredAttendee = Cita.Recipients.Add(Range("A" & i).Value) .Display .Save '.Send .ReminderMinutesBeforeStart = 30 End With Next Set Cita = Nothing Set App = Nothing End Sub