vb2005にてSystem.Net.Mailを使ってメールを送っています
正しく送れているのですが、実際に送信されるまでに少々時間がかかります。
Sendを発行したと同時に送信する方法がありますでしょうか?
Dim SubjectText As String = "Subject TEST"
Dim BodyText As String = "message"
'MailMessage 作成
Dim wMailFrom As String = "aaaa@aa.com"
Dim wMailTo As String = "bbbb@bb.cm"
Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage(wMailFrom, wMailTo)
'Subjectをセット
message.Subject = SubjectText
'Bodyをセット
message.Body = BodyText
'SMTP Client 作成
Dim wSMTP As String = "smtp.aa.com"
Dim client As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient(wSMTP)
'送信する
client.Send(message)
ツイート | ![]() |