| |
▼小僧 さん：
回答ありがとうございます。
hi-hoの方でいろいろ見てみたのですが、下記のコードを参照しました。
もともとがエクセルのでのコードだったので、セルの参照をテキストボックスに
変更しました。
参照設定では、Microsoft CDO for Windows 2000 Liblaryにチェックを入れました。
コードの中の
strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
MailSubject, MailBody)
の部分「SendMailByCDO」でsubまたはfunctionが定義されてないとエラーが発生します。
Excelでは動いたのですが、Accessでは動きません。なぜでしょうか？？
Dim MailSmtpServer As String
Dim MailFrom As String
Dim MailTo As String
Dim MailSubject As String
Dim MailBody As String
Dim strMSG As String
If MsgBox("メールを送信します。" & vbCr & _
"SMTP,発信者,宛先等は正しいですか？", vbYesNo) <> vbYes Then Exit Sub
MailSmtpServer = Me!txt1.Value
MailFrom = Me!txt2.Value
MailTo = Me!txt3.Value
MailSubject = Me!txt4.Value
MailBody = Me!txt5.Value
strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
MailSubject, MailBody)
If strMSG <> "OK" Then MsgBox Mid(strMSG, 3)
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
