Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2013)
オートメーションエラー回避したい(添付PDF五枚以上になるとエラー)
投稿日時: 20/11/11 16:50:02
投稿者: ザックん

いつもお世話になっております。
 
メールにPDFを五枚以上添付しようとするとオートメーションエラーしてしまいます。
 
回避方法をご教授願います。
 
下記は、4枚分ですので正常動作します。
 
Dim Tantou As String
Dim SMAd As String
Dim sendad As String
Dim ApAd As String
Dim TMAd As String
 
AllRow = ActiveSheet.Rows.Count
 
'Outlookオブジェクト生成
Dim OL As Outlook.Application
Dim MI As Outlook.MailItem
Set OL = CreateObject("Outlook.Application")
Set MI = OL.CreateItem(olMailItem)
Dim FName As String
Dim FPath As String
Dim F2Name As String
Dim F2Path As String
Dim F3Name As String
Dim F3Path As String
Dim F4Name As String
Dim F4Path As String
 
Dim ws2 As Object
Set ws2 = Worksheets("アドレス")
 
FPath = ThisWorkbook.Path
FName = "***.pdf"
 
F2Path = ThisWorkbook.Path
F2Name = "***.pdf"
 
F3Path = ThisWorkbook.Path
F3Name = "***.pdf"
 
F4Path = ThisWorkbook.Path
F4Name = "***.pdf"
 
SMAd = ws2.Cells(2, 4) '発信者
sendad = ws2.Cells(2, 5) 'あて先
ApAd = ws2.Cells(3, 5) 'cc
 
    'メール各設定
MI.SentOnBehalfOfName = SMAd '差出人
MI.To = sendad 'TO
MI.CC = ApAd 'CC
 
MI.Attachments.ADD FName
MI.Attachments.ADD F2Name '添付
MI.Attachments.ADD F3Name
MI.Attachments.ADD F4Name
 
 

回答
投稿日時: 20/11/11 19:50:10
投稿者: mattuwan44

ステップインでゆっくり1行毎にマクロを実行しても同じエラーになりますか?
 
エラーが出て、「デバッグ」でVBEの画面に戻った後、
F8キー押下で試してみてください。
それでうまくいくなら、矢継ぎ早に命令しているので、
処理が追い付かないで「待って」って言われているということなので、
「待つ」という処理を入れてあげればよいかと思います。

投稿日時: 20/11/13 18:29:55
投稿者: ザックん

いつもお世話になっております。
 
mattuwan44様
 
ご回答ありがとうございました。
 
何とかエラーメッセージ出ない様になりました。