Sub send_message()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
  .To = ""         'Кому отправить
  .From = ""       'От кого
  .Subject = ""    'Тема  
  .TextBody = ""   'Текст
  .AddAttachment "Путь до файла"  'Отправка файла
With .Configuration.Fields
  .Item(v_Conf & "sendusing") = 2
  .Item(v_Conf & "smtpserver") = "smtp.mail.ru"
  .Item(v_Conf & "smtpauthenticate") = 1
  .Item(v_Conf & "sendusername") = "" 'От кого
  .Item(v_Conf & "sendpassword") = "" 'Пароль от кого отправляется письмо
  .Item(v_Conf & "smtpserverport") = 25
  .Item(v_Conf & "smtpusessl") = False
  .Item(v_Conf & "smtpconnectiontimeout") = 60
  .Update
End With
  .send
End With
End Sub

Private Sub Command1_Click()
  Call send_message   ' запуск отправки письма
End Sub