ник: Чайник2007
Как прикрепить файлы ?
Dim MsgText ', MsgFrom
MsgText = InputBox("Фамилия")
'MsgFrom = InputBox("Email")
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.Charset = "windows-1251"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "assa"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
'objEmail.From = MsgFrom
objEmail.To = "assa@yandex.ru"
objEmail.Subject = "списки" 'Тема
objEmail.TextBody = MsgText 'Руководитель
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
End Sub