Private Sub Command1_Click()
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 = "romaprikhodko@mail.ru"         'Кому отправить
   .From = "razvodpar@mail.ru"       'От кого
   .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") = "*******@mail.ru" 'От кого
   .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