'MailMessageの作成 Dim msg As New System.Net.Mail.MailMessage() '送信者 msg.From = New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx") '宛先 msg.To.Add(New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx")) 'あて先をもう一人追加 msg.To.Add(New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx")) 'CC msg.CC.Add(New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx")) 'BCC msg.Bcc.Add(New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx")) 'ReplyTo msg.ReplyTo = New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx") 'Sender msg.Sender = New System.Net.Mail.MailAddress("xxxxxx@xxxx.xxxx") '件名 msg.Subject = "こんにちは" '本文 msg.Body = "こんにちは。" + vbCrLf + vbCrLf + "それではまた。" '優先順位を「重要」にする msg.Priority = System.Net.Mail.MailPriority.High 'メールの配達が遅れたとき、失敗したとき、正常に配達されたときに通知する msg.DeliveryNotificationOptions = _ System.Net.Mail.DeliveryNotificationOptions.Delay Or _ System.Net.Mail.DeliveryNotificationOptions.OnFailure Or _ System.Net.Mail.DeliveryNotificationOptions.OnSuccess Dim sc As New System.Net.Mail.SmtpClient() 'SMTPサーバーを指定する sc.Host = "localhost" 'メッセージを送信する sc.Send(msg) '後始末 msg.Dispose()