Dim myMsg As Net.Mail.MailMessage
myMsg = New Net.Mail.MailMessage("
froschgeiser@hs-albsig.de", "
froschgeiser@hs-albsig.de", "Mailbox Size Report", "Attachment File")
Dim Attachment As New Net.Mail.Attachment("c:\temp\MailBoxStatistics.txt")
myMsg.Attachments.Add(Attachment)
myMsg.IsBodyHtml = False
myMsg.BodyEncoding = Encoding.GetEncoding(1251)
myMsg.SubjectEncoding = Encoding.GetEncoding(1251)
Dim mySMTPServer As New Net.Mail.SmtpClient("izcexchange.ad.fh-albsig.de", 25)
Dim myCredential As New System.Net.NetworkCredential("login", "password")
mySMTPServer.UseDefaultCredentials = True
mySMTPServer.Credentials = myCredential
mySMTPServer.Send(myMsg)
No interesno, etot kod uge rabotaet. A v PowerShell to ge samoe net