質問編集履歴

具体的なこと記載

2021/07/25 02:39

投稿

rotaww

スコア3

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -232,6 +232,8 @@
 いろいろ調べてみたのですが改善されず困っております。
+具体的には調べたのですが、エラー箇所から進めず困っています。
 ### 補足情報（FW/ツールのバージョンなど）

エラーの追記をしました。

2021/07/25 02:39

投稿

rotaww

スコア3

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -206,7 +206,7 @@
 ```
-エラーメッセージ
+コンパイルエラー　ユーザー定義型は定義されていません。
 ```
@@ -214,6 +214,8 @@
 ### 該当のソースコード
+R As Cells
 ```ここに言語名を入力

本文に記載してしまったコードを削除してCODEにうつしました

2021/07/25 02:38

投稿

rotaww

スコア3

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -202,280 +202,6 @@
-わたしが書いたコードは
-Option Explicit
-Sub sendmail()
-    Dim ws As Worksheet
-    Set ws = ThisWorkbook.Sheets("mail")
-    Dim OutApp As Outlook.Application
-    Set OutApp = New Outlook.Application
-    Dim R As Long, lastrow As Long
-    lastrow = ws.Cells(2, 1).End(xlDown).Row
-    For R = 3 To lastrow
-        Dim OutMail As Outlook.MailItem
-        Set OutMail = OutApp.CreateItem(olMailItem)
-        Dim BodyOfMail As String
-        BodyOfMail = CreateBodyOfMail(ws, R)
-    'PDFファイル名生成
-        Dim R As Cells, ws  As Object, dt As Variant
-        Set R = Cells(3, 7)
-        Set ws = CreateObject("WScript.shell")
-        dt = ws.SpecialFolders("Desktop") & "＼" & "返信.pdf"
-        With OutMail
-            .SendUsingAccount = Session.Accounts(aaaaa@aaa.com)
-            .To = ws.Cells(R, 5).Value
-            .CC = ws.Cells(R, 6).Value & bbb@bbb.com &　ccc@ccc.com & ddd@ddd.com
-            .subject = Replace(ws.Cells(2, 10).Value, "コード", ws.Cells(R, 3).Value, "都道府県", ws.Cells(R, 2).Value)
-            .body = BodyOfMail
-            .Attachments.Add dt & " .pdf"
-        End With
-        OutMail.Save
-        Set OutMail = Nothing
-    Next R
-End Sub
-Function CreateBodyOfMail(ws As Worksheet, R As Long) As String
-    Dim shimei As String, link As String
-    shimei = ws.Cells(R, 4).Value
-    shisetsu = ws.Cells(R, 2).Value
-    Dim subject As String
-    subject = ws.Cells(2, 2).Value
-    subject = Replace(subject, "都道府県", todou)
-    subject = Replace(subject, "コード", code)
-    Dim body As String
-    body = ws.Cells(3, 10).Value
-    body = Replace(body, "名前", shimei)
-    body = Replace(body, "都道府県", todou)
-    body = body & vbCrLf
-    CreateBodyOfMail = body
-End Function
 ```

codeに記載いたしました。

2021/07/25 02:33

投稿

rotaww

スコア3

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,4 +1,184 @@
+```ここに言語を入力
+Option Explicit
+Sub sendmail()
+Dim ws As Worksheet
+Set ws = ThisWorkbook.Sheets("mail")
+Dim OutApp As Outlook.Application
+Set OutApp = New Outlook.Application
+Dim R As Long, lastrow As Long
+lastrow = ws.Cells(2, 1).End(xlDown).Row
+For R = 3 To lastrow
+Dim OutMail As Outlook.MailItem
+Set OutMail = OutApp.CreateItem(olMailItem)
+Dim BodyOfMail As String
+BodyOfMail = CreateBodyOfMail(ws, R)
+'PDFファイル名生成
+Dim R As Cells, ws  As Object, dt As Variant
+Set R = Cells(3, 7)
+Set ws = CreateObject("WScript.shell")
+dt = ws.SpecialFolders("Desktop") & "＼" & "返信.pdf"
+With OutMail
+.SendUsingAccount = Session.Accounts(aaaaa@aaa.com)
+.To = ws.Cells(R, 5).Value
+.CC = ws.Cells(R, 6).Value & bbb@bbb.com &　ccc@ccc.com & ddd@ddd.com
+.subject = Replace(ws.Cells(2, 10).Value, "コード", ws.Cells(R, 3).Value, "都道府県", ws.Cells(R, 2).Value)
+.body = BodyOfMail
+.Attachments.Add dt & " .pdf"
+End With
+OutMail.Save
+Set OutMail = Nothing
+Next R
+End Sub
+Function CreateBodyOfMail(ws As Worksheet, R As Long) As String
+Dim shimei As String, link As String
+shimei = ws.Cells(R, 4).Value
+shisetsu = ws.Cells(R, 2).Value
+Dim subject As String
+subject = ws.Cells(2, 2).Value
+subject = Replace(subject, "都道府県", todou)
+subject = Replace(subject, "コード", code)
+Dim body As String
+body = ws.Cells(3, 10).Value
+body = Replace(body, "名前", shimei)
+body = Replace(body, "都道府県", todou)
+body = body & vbCrLf
+CreateBodyOfMail = body
+End Function
-### 前提・実現したいこと
+```### 前提・実現したいこと