Excel VBA質問箱 IV

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

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


25573 / 76736 ←次へ | 前へ→

【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が定義されていません とでます。
なにがたりないでしょうか。
御教示ください。
0 hits

【56166】自身を添付ファイルにしてメーラーを起動するには にしもり 08/6/6(金) 18:21 質問
【56167】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/6(金) 18:33 発言
【56178】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/7(土) 15:45 発言
【56217】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/9(月) 8:51 お礼
【56501】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/19(木) 16:25 質問
【56503】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/19(木) 16:31 発言
【56505】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/19(木) 16:46 質問
【56506】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/19(木) 16:50 発言
【56509】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/19(木) 17:07 お礼

25573 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free