Excel VBA質問箱 IV

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

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


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

25569 / 76732

←次へ　｜　前へ→


	【56501】Re:自身を添付ファイルにしてメーラーを起動するには

にしもり - 08/6/19(木) 16:25 -


	引用なし

	パスワード

紹介いただいたURLを参考にやっています.

Option Explicit
Sub TEST2()
　　Dim MailSmtpServer As String
　　Dim MailFrom As String
　　Dim MailTo As String
　　Dim MailSubject As String
　　Dim MailBody As String
　　Dim MailAddFile As Variant
　　Dim strMSG As String

　　' 添付ファイルの選択
　　MailAddFile = Application.GetOpenFilename("全てのファイル (*.*),*.*", , _
　　　　"添付ファイルを選択して下さい。", , True)
　　' 送信確認
　　If MsgBox("メールを送信します。" & vbCr & _
　　　　"SMTP,発信者,宛先等は正しいですか？", vbYesNo) <> vbYes Then Exit Sub
　　MailSmtpServer = Cells(1, 2).Text　 ' SMTPサーバ
　　MailFrom = Cells(2, 2).Text　　　　 ' 発信者
　　MailTo = Cells(3, 2).Text　　　　　 ' 宛先
　　MailSubject = Cells(4, 2).Text　　　' 件名
　　MailBody = Cells(5, 2).Text　　　　 ' 本文
　　' メール送信(CC,BCCはブランク)
　　strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
　　　　MailSubject, MailBody, MailAddFile)
　　' 文字コードを任意に指定する場合は以下のようにします。
'　　strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
　　　　MailSubject, MailBody, MailAddFile, cdoISO_2022_JP)
　　If strMSG <> "OK" Then MsgBox Mid(strMSG, 3)
End Sub

が、実行するとSendMailByCDOが反転して、
subまたはfunctionが定義されていません　とでます。
なにがたりないでしょうか。
御教示ください。

1 hits

▼

【56166】自身を添付ファイルにしてメーラーを起動するには にしもり 08/6/6(金) 18:21