VBA程式跳出(物件不支援屬性或方法) 一直找不出問題請大神幫幫忙解惑

excel vba

ryo760825 2023-03-24 15:42:18 ‧ 1390 瀏覽

分享至

Sub NewEmail3V1含備註() '定義一個名為NewEmail3的子程式
Dim objApp As Outlook.Application '宣告一個名稱為objApp的Outlook應用程式對象
Dim objMail As Outlook.MailItem '宣告一個名稱為objMail的Outlook郵件項目對象
Dim objInsp As Outlook.Inspector '宣告一個名稱為objInsp的Outlook檢視器對象
Dim objDoc As Word.Document '宣告一個名稱為objDoc的Word文件對象
Dim objSelection As Word.Selection '宣告一個名稱為objSelection的Word選擇對象
Dim objInlineShape As Object '宣告一個名為objInlineShape的物件類型對象

                                    Set objApp = CreateObject("Outlook.Application") '創建一個Outlook應用程式對象並指定給objApp變數
                                    Set objMail = objApp.CreateItem(olMailItem) '創建一個新的郵件項目，並指定給objMail變數

                                    With objMail '使用With語句引用objMail變數
                                    .To = "收件者電子郵件地址" '設置收件人的電子郵件地址為"To"屬性
                                    .Subject = "郵件主旨" '設置郵件的主旨為"Subject"屬性
                                    .Display '顯示新建的郵件項目
                                    End With '結束With語句區塊

                                    Set objInsp = objMail.GetInspector '取得剛剛建立的郵件項目的檢視器並指定給objInsp變數
                                    Set objDoc = objInsp.WordEditor '取得該郵件項目所使用的Word文件對象並指定給objDoc變數
                                    Set objSelection = objDoc.Application.Selection '取得該文件的選擇（Selection）並指定給objSelection變數
                                    Set objInlineShape = objSelection.InlineShapes.AddPicture("C:\Users\ryo76\Downloads\123.jpg", False, True) '使用objSelection選擇對象添加一張圖片，第一個參數為圖片路徑，第二個參數表示圖片是否連接到文件，第三個參數表示是否顯示圖片提示文字。

                                    With objMail '使用With語句引用objMail變數
                                    '.HTMLBody = "<html><body><img src='cid:123.jpg'></body></html>" '將郵件的主體設置為包含圖片的HTML代碼    cid:123.jpg.
                                    objInlineShape.Range.InlineShapes(1).Height = 216 '更改圖片大小
                                    objInlineShape.Range.InlineShapes(1).Width = 400 '更改圖片大小
                                    .HTMLBody = "<html><body><img src='cid:" & objInlineShape.ContentID & "'></body></html>" '將郵件的主體設置為包含圖片的HTML代碼
                                    .Display '顯示包含圖片的新建郵件項目
                                    End With '結束With語句區塊

                                    Set objMail = Nothing '將objMail變數設置為空值，釋放對該對象的引用
                                    Set objApp = Nothing '將objApp變數設置為空值，釋放對該Outlook應用程式的引用
                                    End Sub '結束子程式

偵錯都停在這段( .HTMLBody = "" '將郵件的主體設置為包含圖片的HTML代碼)---------------------(物件不支援屬性或方法)
能教教我怎麼修改嗎?拜託拜託

孫守真任真甫 iT邦研究生 4 級 ‧ 2023-03-24 15:58:43 檢舉

菩薩慈悲：如果原來可運行，而只有您這裡不能的話，也可能是不同版本的程式庫所支援的屬性與方法有所改易了。您可以用那個關鍵字去查找瀏覽物件（在VBE中按下F2 ）看找不找得到。若沒有，就是您的版本不支援了。再去問問Bing大菩薩或Google大神，看看有沒有人解決此方法闕如的方案。感恩感恩　南無阿彌陀佛

登入發表討論