Enviar correos de calificaciones en automático

Te gustaría aprender cómo enviar por correo la calificación a cada uno de tus alumnos.

Tienes que pasar cada calificación a un formato, guardarlo como archivo pdf y enviar el archivo por correo a cada alumno.

Eso te lleva MUCHO tiempo y en ocasiones te faltaron correos o no está la información completa.

Revisa el vídeo, ahí te explico cómo enviar correos en automático.

Código para enviar correos:

Sub EnviarCalificaciones()

'Por Dante Amor

  Dim c As Range

  Dim matricula As Range, nombre As Range, evaluacion As Range, curso As Range

  Dim sh2 As Worksheet

  Dim dam As Object

  Dim archivo As String, columnaCorreo  As String, sArea As String

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

  '

  'Parámetros

  Set curso = [A4]          'celda con el nombre del curso

  Set matricula = [B6]      'celda con la matrícula

  Set nombre = [E6]         'celda con el nombre del alumno

  Set evaluacion = [B8]     'celda con la evaluación

  columnaCorreo = "G"

  '

  sArea = ActiveSheet.PageSetup.PrintArea

  For Each c In Range("matriculas")

    matricula.Value = c.Value

    archivo = ThisWorkbook.Path & "\" & matricula.Value & ".pdf"

    Range(sArea).ExportAsFixedFormat xlTypePDF, archivo

    

    Set dam = CreateObject("outlook.application").createitem(0)

    dam.To = Sheets(c.Parent.Name).Range(columnaCorreo & c.Row).Value

    dam.Subject = "Evaluación " & evaluacion.Value & _

                  ", " & nombre.Value

    dam.body = "Buen día, en el archivo encontrarás " & _

               "el resultado de tu evaluación del curso : " & curso.Value & vbCr & _

               "Saludos"

    dam.Attachments.Add archivo

    'dam.Display  'El correo se muestra

    dam.Send

  Next

  MsgBox "Calificaciones Enviadas", vbInformation, "Excel y Macros"

End Sub