VBA 「Rangeメソッドは失敗しました。Worksheetsオブジェクト」というエラーが出てしまう

outlookでのメール送信マクロを作成中でして、Ccを2アドレス分入力する場合のコードの記載方法についてエラーが出てしまいました。

具体的には、
参照元のxismファイルには入力したいアドレスがそれぞれA3、A4セルに記載してあるのですが、
下記のコードを入力したところ、「Rangeメソッドは失敗しました。Worksheetsオブジェクト」というエラーが出てしまいました。
（With outlookMailから以下に問題があるのでしょうか…？）

この場合、どのようにコードを記載すればoutlookに正常にアドレスが転記されるのでしょうか？

VBA
1Sub sendStartMail()
2
3    On Error GoTo Error1
4    
5    Dim outlookObj As Outlook.Application
6
7    Dim outlookMail As Outlook.MailItem
8    
9    Dim ws As Worksheet
10    
11    
12    Set outlookObj = CreateObject("Outlook.Application")
13    
14    Set outlookMail = outlookObj.CreateItem(olMailItem)
15    
16    outlookMail.Display
17    
18    Set ws = Worksheets("メール作成")
19    
20    
21    With outlookMail
22        .To = ws.Range("A2").Value
23        .Cc = ws.Range(ws.Cells(3, 1) & ";" & ws.Cells(4, 1)).Value
24        .Subject = ws.Range("A5").Value
25        .Body = ws.Range("A6").Value
26    End With
27    
28
29    Exit Sub
30    
31Error1:
32    
33    MsgBox Err.Description
34    
35    outlookMail.Save
36
37End Sub

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

回答1件

ベストアンサー

https://teratail.com/questions/373373
で、解決してましたね。
失礼しました

<hr> まずは、深呼吸して、 .Cc = ws.Range**(**ws.Cells(3, 1) & ";" & ws.Cells(4, 1)**)**.Value ↑よくみると、（）の形が・・・

.Cc
= ws.Range(ws.Cells(3, 1)
& ";"
& ws.Cells(4, 1)).Value

上記のように、勝手に分解してみると、何か、見えてくるような・・・

＞入力したいアドレスがそれぞれA3、A4セルに記載してある
なら、素直に(動くか、わかりませんが)

.To = ws.Range("A2").Value
.Cc = ws.Cells(3, 1).Value & ";" & ws.Cells(4, 1).Value
.Subject = ws.Range("A5").Value

と
ws.Cells(3, 1).Value '←でA3の値
ws.Cells(4, 1).Value '←でA4の値
を & で ";" すればいいのかなぁ。

それか、
.To = ws.Range("A2").Value
みたいにつかっているので、固定のアドレスでそろえたいなら
(CCが複数あってループで回すとかなければ)

素直に
.To = ws.Range("A2").Value
.Cc = ws.Range("A3").Value & ";" & ws.Range("A4").Value
.Subject = ws.Range("A5").Value
と、A3 ; A4 を &でつなげると前後のコードと同じで読みやすいかも。

＞「Rangeメソッドは失敗しました。Worksheetsオブジェクト」というエラー
の原因は
ws.Range(ws.Cells(3, 1) & ";" & ws.Cells(4, 1)).Value

Range(範囲)の場所・範囲の指定を
ws.Cells(3, 1) & ";" & ws.Cells(4, 1) でやり、.Valueで取り出す。
と変なかき方をしているからかなぁ。

解決のヒントとなれば、、、※ccが複数件で;を付けた文字列を作りたい時は、別質問などを立てたほうが良いかも。

投稿2021/12/11 15:48

編集2021/12/11 15:54