Set objMes = CreateObject("CDO.Message")
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ru"
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pochta@mail.ru"
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль от почты"
objMes.From = "pochta@mail.ru"
objMes.To = "pochta@mail.ru"
objMes.Subject = "OK"
objMes.Textbody = "OK"
objMes.AddAttachment "C:\%appdata%\MyApp\License\application.lic"
objMes.Send

переписал немного, как теперь указать путь к файлу, а то он кричит что не может найти путь