Έχω ένα πολύ περίεργο πρόβλημα σε μια φαινομενικά πολύ απλή διαδικασία
Προσπαθώ να στείλω ένα email με τον παρακάτω κώδικα.
Dim mailClient1 As New Mail.SmtpClient(My.Settings.outgoingServerName)
Dim emailMsg As New Mail.MailMessage("xxx", [email protected])
emailMsg.Subject =
"Orders"
mailClient1.UseDefaultCredentials =
False
Dim myCredentials As NetworkCredential = New NetworkCredential(My.Settings.outGoingUserName, My.Settings.outGoingUserPassword)
mailClient1.Credentials = myCredentials
Dim di As New IO.DirectoryInfo(My.Settings.attFolder)
Dim aryFi As IO.FileInfo() = di.GetFiles("*.sdf")
Dim fi As IO.FileInfo
Dim att As Mail.Attachment
For Each fi In aryFi
att =
New Mail.Attachment(fi.FullName)
emailMsg.Attachments.Add(att)
Next
mailClient1.Send(emailMsg)
Το περίεργο είναι ότι την πρώτη φορά που καλείς την ρουτίνα δεν κάνει τίποτα ενώ τις επόμενες δουλεύει κανονικά. Το πιθανότερο είναι ότι κάποιο αντικείμενο μένει ανοιχτό
Σας ευχαριστώ
Melesanakis Georgios
MCAD .Net, MCT
IT Manager