Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3300 / 9994

←次へ　｜　前へ→


	【9955】Re:メール送信について

LUNA - 07/11/1(木) 13:12 -


	引用なし

	パスワード

▼小僧さん：
回答ありがとうございます。

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)

867 hits

▼

【9950】メール送信について LUNA 07/10/30(火) 22:40