vbaマクロを使用してoutlookでメールを送りたい

前提・実現したいこと

はじめて利用させて頂きます。
マクロというものに知識皆無なのですが、
検索などで作ったものがエラーとなってしまってどうしようもなくなってしまいました…

エクセルマクロで作成したリストからメールを作成したいです。
宛先ごとに異なる添付データをつけたいのですが、
フォルダの指定のコードが違うのかマクロの実行をするとエラーとなります。

発生している問題・エラーメッセージ

エラーメッセージ
実行時エラー'-2147024894(80070002)':
ファイルが見つかりません。パスとファイル名が正しいかどうかを確認してください。

該当のソースコード

 Sub Outlook()

    Dim oApp
    Dim Wm_ITEM
    Dim Wm_TO
    Set oApp = CreateObject("Outlook.Application")
    Set myNameSpace = oApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(6)
    myFolder.display
        
    Dim folder As String
    Dim FileAd As String
    Dim row As Long
    Dim shname As String
    
    row = 2
    shname = "sheet1"

Do Until row = 5
       
        Set Wm_ITEM = oApp.CreateItem(0)
        Wm_TO = ""
        WS_OutLk = ""
       
    If ThisWorkbook.Sheets(shname).Cells(row, 1) <> "" Then
    
          
        Wm_ITEM.To = ThisWorkbook.Sheets(shname).Cells(row, 5).Value     
        Wm_ITEM.CC = ThisWorkbook.Sheets(shname).Cells(row, 6).Value
        Wm_ITEM.Subject = ThisWorkbook.Sheets(shname).Cells(row, 7).Value
        Wm_ITEM.Body = ThisWorkbook.Sheets(shname).Cells(row, 2) & _
                       ThisWorkbook.Sheets(shname).Cells(row, 4).Value
        Wm_ITEM.Body = Wm_ITEM.Body _
                       & vbCrLf _
                       & ThisWorkbook.Sheets(shname).Cells(row, 8).Value

        folder = ThisWorkbook.Sheets(shname).Cells(row, 9).Value
        FileAd = ThisWorkbook.Sheets(shname).Cells(row, 10).Value
        
        Wm_ITEM.Attachments.Add folder & "\" & FileAd　★
        Wm_ITEM.display
       
        Wm_ITEM.Save

    End If
    
  row = row + 1
    
Loop

MsgBox "OK"


End Sub

デバッグ（F8で進んでいく）というものをした時に２周めの★印のところでエラーが表示されます。
見に行くエクセルの方は１行目と同じフォルダの場所となっており、ファイル名が異なる状態です。
エクセル側の問題なのかもしれませんが、どこをどう直したらいいのか
さっぱりわからずお手上げです…お助けいただければとても助かります。
よろしくお願いします。


 

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

meg_

2020/09/17 14:34

「Wm_ITEM.To = ThisWorkbook.Sheets(shname).Cells(row, 5)」を「Wm_ITEM.To = ThisWorkbook.Sheets(shname).Cells(row, 5).Value」にしたらどうなりますか？

ajiko

2020/09/18 00:54

ありがとうございます！先に進むことが出来ました！！感動です＾＾

行動規範の内容に同意します

回答2件

MailItemオブジェクトにToメソッドは公開されていませんから、エラーの内容からして、★の行ではなくSendしたときにエラーが発生しているのではないでしょうか？
そうなるとToに代入しているメールアドレスが正しくないということになりそうです。
以下のようにして正しいメールアドレスが取得できているか確認してみてください。

VBA
1Debug.Print ThisWorkbook.Sheets(shname).Cells(row, 5)

あとできればもう少し前後のコードを提示していただいたほうが解決が早いかと思います。

追加質問の回答

見に行くエクセルの方は１行目と同じフォルダの場所となっており、ファイル名が異なる状態です。

１周目が問題ないのであれば、ファイル名が間違っているということになります。
シートに記載されているファイル名が実際に存在しているか確認してみてください。
また前回と同様にDebug.PrintでfolderとFileAdが期待した値になっているか確認してみてください。
ステップ実行しているのであれば、ローカルウィンドウで確認してもOKです。

投稿2020/09/17 23:59

編集2020/09/18 02:39

ttyp03

総合スコア16998

ajiko

2020/09/18 01:04

教えて頂いてありがとうございます。教えていただいたコードをどこに書いていいかもわからない初心者でして、恥ずかしいばかりです。失礼にあたったら大変申し訳ないのですが他の方に教えていただいた「value」をつける対策で先に進むことが出来ました。でもその先でまたエラーになってしまいまして、ご指摘いただいたように前後（全部）のコードを、もしよろしければ見ていただければ非常に助かるのですが、こちらに書いてしまって良いものでしょうか？