Private Function SendMail()
Try
'MailMessage を定義する
Dim MailMessage As jmail.MessageClass = New jmail.MessageClass
'受取人のリストをクリアする
MailMessage.ClearRecipients()
'Unicode
MailMessage.Charset = Charset
'from address
MailMessage.From = FromAddr
'from name
MailMessage.FromName = FromName
For i As Integer = 0 To ToAddr.Count - 1
'to address
MailMessage.AddRecipient(ToAddr(i))
Next
Try
'MailMessage を定義する
Dim MailMessage As jmail.MessageClass = New jmail.MessageClass
'受取人のリストをクリアする
MailMessage.ClearRecipients()
'Unicode
MailMessage.Charset = Charset
'from address
MailMessage.From = FromAddr
'from name
MailMessage.FromName = FromName
For i As Integer = 0 To ToAddr.Count - 1
'to address
MailMessage.AddRecipient(ToAddr(i))
Next
For i As Integer = 0 To CcAddr.Count - 1
'cc address
MailMessage.AddRecipientCC(CcAddr(i))
Next
'cc address
MailMessage.AddRecipientCC(CcAddr(i))
Next
For i As Integer = 0 To BccAddr.C