Crear PDF y luego enviarlo por hotmail.

Tengo la siguiente macro q' genera el PDF luego lo guarda con fecha y hora en un lugar especifico, en red, y luego lo visualizo en pantalla, mi pregunta es, si es factible que el PDF q' se genera lo quiero enviar por correo a varios usuarios para que lo vean, adjunto la macro y espero se entienda lo q' deseo, desde ya muchas gracias.

MiMACRO1 Macro
'

'
Application.Visible = False
    Range("B2").Select
    Selection.Copy
    Range("B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40"). _
        Select
    Range("B40").Activate
    ActiveWindow.SmallScroll Down:=44
    Union(Range( _
        "B86,B88,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68,B70,B72" _
        ), Range("B82,B84")).Select
    Range("B88").Activate
    ActiveWindow.SmallScroll Down:=10
    Union(Range( _
        "B86,B88,B90,B92,B94,B96,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B50,B52,B54,B56,B58,B60,B62,B64" _
        ), Range("B66,B68,B70,B72,B82,B84")).Select
    Range("B96").Activate
    ActiveWindow.SmallScroll Down:=-66
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-87
    Range("A1:V99").Select
    Application.CutCopyMode = False
    Selection.Copy
    ChDir "C:\Diarios\Prueba_2015"
    Workbooks.Open Filename:= _
        "C:\Diarios\Prueba_2015\prueba.xlsm"
    Range("H14").Select
    ActiveWindow.SmallScroll ToRight:=19
    Range("X1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:V99").Select
    Selection.Copy
    Windows("Prueba.xlsm").Activate
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("Prueba.xlsm").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWorkbook.Save
    Dim Hora As String
 Dim Fecha As String
 Hora = WorksheetFunction.Text(Hour(Now()), "0#") & "-" & WorksheetFunction.Text(Minute(Now()), "0#")
 Fecha = WorksheetFunction.Text(Day(Now()), "0#") & "-" & WorksheetFunction.Text(Month(Now()), "0#") & "-" & WorksheetFunction.Text(Year(Now()), "0#")
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "C:\Diarios\Prueba_2015\Archivo-ABC\" & [C1] & " " & Fecha & " " & Hora, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False
 Application.ScreenUpdating = True
 Application.Visible = True
 Application.ScreenUpdating = True