basp21を利用した送信
basp21を利用した送信
エクセル2002使用です。
VBAを利用してbasp21.dll（Proではない）を使ってメール送信ををしたいのですが、
フリーソフト版のbasp21.dllで、(POP before SMTP）は利用できるのでしょうか？
sub test()
dim bobj as Object
dim kekka as string, strkk as string, strjikan as string
dim mailServer as string, mailFrom as string, mailTo as string, MailSubject as string, mailBody as string, mailFiles as string
Set bobj = CreateObject("basp21")
mailServer = "mail.***.com" ’←(POP before SMTP）にしたいのです。
mailFrom = "***@***.com"
mailTo = "***@***.com"
MailSubject = "タイトル"
mailBody = "本文"
mailFiles = "d:\autocsv\wddc\" & strkk & strjikan & ".doc"
kekka = bobj.SendMail(mailServer, mailTo, mailFrom, MailSubject, mailBody, mailFiles)
end sub
よろしくお願いします。
お礼
ありがとうございます. 以下で解決しました。 Dim msg As New System.Net.Mail.MailMessage() msg.From = New System.Net.Mail.MailAddress("ｘｘｘ@ｘｘｘｘｘｘ.co.jp", "A者") msg.To.Add(New System.Net.Mail.MailAddress("ｘｘｘｘ@ｘｘｘｘｘｘｘ.co.jp", "BB")) '件名 msg.Subject = "***件名**" msg.Body = "ｚｚｚｚｚｚｚｚ。" + chr(13) + "Mail" Dim sc As New System.Net.Mail.SmtpClient() sc.Host = "smtp.nifty.com" sc.Send(msg) msg.Dispose()