vb.net　メール送信

‘ MailMessageの作成
Dim msg As New System.Net.Mail.MailMessage()

‘ 送信者
msg.From = New System.Net.Mail.MailAddress(“xxx@xxx.jp”)

‘ 宛先
msg.To.Add(New System.Net.Mail.MailAddress(“yyy@yyy.jp”))

‘ CC
msg.CC.Add(New System.Net.Mail.MailAddress(“zzz@zzz.jp”))

‘ BCC
msg.Bcc.Add(New System.Net.Mail.MailAddress(“bbb@bbb.jp”))

‘ 件名
msg.Subject = “vb.netからの送信テスト”
‘ 本文
msg.Body = “テスト”

‘ 添付ファイル
Dim attach1 As New System.Net.Mail.Attachment(“C:\abc.zip”)
msg.Attachments.Add(attach1)

‘ SmtpCilendオブジェクトを作成する
Dim sc As New System.Net.Mail.SmtpClient()

‘ Smtpサーバーを指定する
sc.Host = “smtmpserver.xx.jp”
‘ ポート番号を指定する
sc.Port = 25
‘ ユーザー名とパスワードを設定する
sc.Credentials = New System.Net.NetworkCredential(“user”, “p@ss”)

‘ メールを送信する
sc.Send(msg)
sc.Dispose()