Module Program Sub Main() Dim Message As New MailMessage("from", "to", "subject", "body") Dim Client As New SmtpClient("smtp server name") Client.Credentials = New NetworkCredential("user name", "password") 'Client.EnableSsl = True 'SSL認証のときは、コメントアウト Client.Timeout = 100000 'これ必要 Client.Send(Message) End Sub End Module
匿名 2018/03/31 (Sat) 10:23:03
最初からusingでやって、可読性を考えてくれ・・・・