Vby
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dim MsgText, MsgFrom, User, sam MsgText = InputBox("Опишите Вашу проблему как можно подробнее","Письмо администратору") 'MsgFrom = InputBox("Enter something") if (MsgText <>"") then Set objEmail = CreateObject("CDO.Message") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) User = CurrentUser.fullname ' Полное имя пользователя sam = CurrentUser.samaccountname ' пре-Win2000 логин 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") = "username" 'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "userpwd" 'objEmail.From = MsgFrom objEmail.From = "adm@xxx.ru" objEmail.To = "adm@xxx.ru" objEmail.Subject = "Письмо от " & User 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") = "192.168.0.6" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send end if |