WinTr raporlar\u0131 otomatik olarak mail ile g\u00f6nderiliyor. Bazen raporlar toplu olarak olu\u015fturulduktan bir s\u00fcre sonra g\u00f6nderilmek istenebilir. A\u015fa\u011f\u0131daki script ile Rapor klas\u00f6r\u00fcndeki t\u00fcm raporlar, Y\u0131l-Ay-G\u00fcn \u015feklinde olu\u015fturulan bir klas\u00f6re ta\u015f\u0131n\u0131r, \u015f\u0131k\u0131\u015ft\u0131r\u0131l\u0131r ve mail ile g\u00f6nderilir.<\/p>\n
Not: \u00d6rne\u011fimizde mail server olarak gmail kullan\u0131lm\u0131\u015ft\u0131r. Gmail kullanacaksan\u0131z gmail ayarlar\u0131nda 3rd yaz\u0131l\u0131mlar i\u00e7in izin olu\u015fturmal\u0131s\u0131n\u0131z. Farkl\u0131 mail hesaplar\u0131 kullanacaksan\u0131z script i\u00e7erisinde baz\u0131 ayarlar\u0131 de\u011fi\u015ftirmeniz gerekebilir.<\/p>\n
Bu script 5.5.1 versiyonu ve sonras\u0131nda \u00e7al\u0131\u015f\u0131r.<\/p>\n
Imports System
\nImports System.IO
\nImports System.Windows.Forms
\nImports Microsoft.VisualBasic
\nImports System.Net.Mail<\/p>\n
Namespace WinTr
\nPublic Class MainClass
\nPublic Sub Load
\nDim Files() As String = IO.Directory.GetFiles(“C:\\Users\\Scada\\Desktop\\NewSCADA\\ReportFolder”)
\nIf Files.Length > 0 Then
\n‘Move
\nDim MyPath As String = “C:\\Users\\Scada\\Desktop\\NewSCADA\\ReportFolder\\” & Now.Year & “-” & Now.Month & “-” & Now.Day
\nIf (Not System.IO.Directory.Exists(MyPath)) Then
\nSystem.IO.Directory.CreateDirectory(MyPath)
\nEnd If
\nFor Each FileName As String In Files
\nDim Path() As String = Split(FileName, “\\”)
\nFile.Copy(FileName, MyPath & “\\” & Path(Path.Length – 1), True)
\nFile.Delete(FileName)
\nNext
\n‘Zip
\nDim FileList() As String = IO.Directory.GetFiles(MyPath)
\nIf FileList.Length > 0 Then
\nUsing zip As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile
\nzip.UseUnicodeAsNecessary = True
\nFor Each FileName As String In FileList
\nzip.AddFile(FileName , “”)
\nNext
\nzip.Save(MyPath & “\\MyZipFile.zip”)
\nEnd Using
\nEnd If
\n‘E-mail
\nTry
\nDim Mail As New MailMessage
\nMail.Subject = “SCADA Report.”
\nMail.To.Add(“xxx@fultek.com.tr”)
\nMail.From = New MailAddress(“xxx@gmail.com”)
\nMail.Body = “Please find report file attached.”
\nDim Attachment As Attachment
\nAttachment = New Attachment(MyPath & “\\MyZipFile.zip”)
\nMail.Attachments.Add(Attachment)
\nDim SMTP As New SmtpClient(“smtp.gmail.com”)
\nSMTP.EnableSsl = True
\nSMTP.Credentials = New System.Net.NetworkCredential(“xxx@gmail.com”, “Password”)
\nSMTP.Port = 587
\nSMTP.Send(Mail)
\nMsgBox(“Email sent successfully!”)
\nCatch ex As Exception
\nMsgBox(ex.Message)
\nEnd Try
\nEnd If
\nEnd Sub
\nEnd Class
\nEnd Namespace<\/p>\n","protected":false},"excerpt":{"rendered":"
WinTr raporlar\u0131 otomatik olarak mail ile g\u00f6nderiliyor. Bazen raporlar toplu olarak olu\u015fturulduktan bir s\u00fcre sonra g\u00f6nderilmek istenebilir. A\u015fa\u011f\u0131daki script ile Rapor klas\u00f6r\u00fcndeki t\u00fcm raporlar, Y\u0131l-Ay-G\u00fcn \u015feklinde olu\u015fturulan bir klas\u00f6re ta\u015f\u0131n\u0131r, \u015f\u0131k\u0131\u015ft\u0131r\u0131l\u0131r ve mail ile g\u00f6nderilir. Not: \u00d6rne\u011fimizde mail server olarak gmail kullan\u0131lm\u0131\u015ft\u0131r. Gmail kullanacaksan\u0131z gmail ayarlar\u0131nda 3rd yaz\u0131l\u0131mlar i\u00e7in izin olu\u015fturmal\u0131s\u0131n\u0131z. Farkl\u0131 mail hesaplar\u0131 kullanacaksan\u0131z […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_swpsp_post_exclude":false,"footnotes":""},"categories":[20],"tags":[366,372,332,367,365],"class_list":["post-872","post","type-post","status-publish","format-standard","hentry","category-scada-script","tag-arsiv","tag-mail","tag-rapor","tag-sikistirma","tag-zip"],"yoast_head":"\n