Excel VBA メール一括送信でエラーが発生する

Question

下記コードを実行すると
ストアアプリ版Officeの環境下のみ下図のエラーが発生します。
（デスクトップ版では正常に動作することを確認しています。）

原因や- リスト回避策がありましたらご教授ください。

Enum col '1以降の数値を省略した場合は+1される
    宛先 = 1
    社名
    担当者名
End Enum
 
Sub Outlookメール一括作成()
 
    Dim OutlookObj As Outlook.Application 'Outlookオブジェクトの作成
    Set OutlookObj = CreateObject("Outlook.Application")
    
    Dim r As Long
    For r = 2 To Cells(1, 1).End(xlDown).Row '対象人数分の処理を繰り返す
    
        Dim mailItemObj As Outlook.MailItem 'メールアイテムオブジェクト作成
        Set mailItemObj = OutlookObj.CreateItem(olMailItem)
 
        Dim mailBody As String
        mailBody = CreateMailBody(r) 'メール本文作成
        
        With mailItemObj 'メールアイテム作成
            .To = Cells(r, col.宛先).Value 'Toを設定
            .subject = Cells(1, "H").Value '件名を設定
            .Body = mailBody '本文を設定
        End With
        
        Dim attached As String
        Dim myattachments As Outlook.Attachments 'Outlookで使用するオブジェクト生成
        Set myattachments = mailItemObj.Attachments
        attached = Cells(33, "H").Value     '添付ファイル
        myattachments.Add attached
        
        mailItemObj.Display '下書きを表示
        
        '次のメールアイテムを作成するためいったん破棄
        Set mailItemObj = Nothing
    
    Next r
 
End Sub
 
Function CreateMailBody(r As Long) As String
' 機能：Excelシート上の指定行番号のメール本文を作成する
 
    Dim sName As String, DayOfUse As String, price As Long
    CName = Cells(r, col.社名).Value
    sName = Cells(r, col.担当者名).Value
    
    Dim sign As String '署名
    sign = Cells(25, "H").Value
    
    Dim mBody As String 'メール本文
    mBody = Cells(2, "H").Value '初期値を設定
    mBody = Replace(mBody, "(社名)", CName)
    mBody = Replace(mBody, "(担当者名)", sName)
    mBody = mBody & vbCrLf & vbCrLf & sign '末尾に署名を付与
    
    CreateMailBody = mBody
 
End Function

<補足>　情報不足ですみませんでした。追記いたします。

        Dim attached As String
        Dim myattachments As Outlook.Attachments 'Outlookで使用するオブジェクト生成
        Set myattachments = mailItemObj.Attachments
        attached = Cells(33, "H").Value     '添付ファイル
　　　　'↑ここで処理がとまり、エラーが発生します。

        myattachments.Add attached

Comments

[imihito]

ストアアプリ側のセキュリティ的な兼ね合いだと思われるので、VBA側での対処は難しいと思います(調べればストアアプリ版のOffice、とくにOutlookの挙動が変わっているという話がたくさん出てきます)

また、純粋な質問の仕方として、エラーメッセージだけでなく「どの行でエラーが起きているか」、「エラーが起きた行の操作に関連する変数の値」あたりの情報も欲しいところです。

[akinco]

ご回答・ご指摘ありがとうございます。
エラーコードを調べても説明がなく行き詰っていました。

補足しましたのでよろしくお願いいたします。

[imihito]

String型の変数`attached`へのセルの値の代入でエラーになっている(デバッグ時に黄色になっている)ということでよろしいですか？

その位置のエラーで、そのエラーメッセージがでるとは考えにくいのですが…

[akinco]

おっしゃる通りです。
ストア版のみこのエラーがでるので、ソースが間違っている可能性は低いと思っています。

officeの詳細設定、またはWindowsのサービス又はセキュリティ等の設定で回避できるのか…
調べても同様のケースがなく完全に行き詰っています。。。

お付き合いいただきましてありがとうございます。