rosalin
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim MsgText, MsgFrom, User, sam
MsgText = InputBox("Опишите Вашу проблему как можно подробнее","Письмо администратору")
'MsgFrom = InputBox("Enter something")
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 |
