Board logo

標題: [發問] 編輯錯誤,使用者自訂形態尚未定義-問題請教 [打印本頁]

作者: rouber590324    時間: 2014-12-2 15:03     標題: 編輯錯誤,使用者自訂形態尚未定義-問題請教

DEAR  ALL大大
1如表一程式 於原 EXCEL使用正常
2我將之 COPY至另一新EXCEL 執行後出現 "編輯錯誤,使用者自訂形態尚未定義"
  2.1 請問前輩們如何定義於何處定義?煩不吝賜教  THANKS*10000

表一
Option Explicit
Sub SenddMail()
  Dim oltAPP As Outlook.Application
  Dim myMail As MailItem
  Dim Sender As Long
  Application.DisplayAlerts = False
  Set oltAPP = CreateObject("Outlook.Application")
  Set myMail = oltAPP.CreateItem(olMailItem)
  With myMail
    .To = "[email protected]"
    .CC = "[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected]"
    .BodyFormat = olFormatPlain
    .Body = "" & Sheet18.Range("A1") & "" & Chr(10) & "" & Sheet18.Range("A2") & "" & Chr(10) & "" & Sheet18.Range("A3") & "" '內容
    .Subject = "" & Sheet18.Range("A4") & "" '主旨
    .Send
  End With
  'oltAPP.Quit '關閉MAIL
  Set oltAPP = Nothing
  Set myMail = Nothing

End Sub
作者: stillfish00    時間: 2014-12-2 17:07

本帖最後由 stillfish00 於 2014-12-2 17:10 編輯

回復 1# rouber590324
工具>設定引用項目,去設定物件正確的引用項目

或宣告為Object:
  Dim oltAPP As Object
  Dim myMail As Object
作者: rouber590324    時間: 2014-12-3 11:56

DEAR  SIR
  感謝您.於 工具>設定引用項目 勾選 "Microsoft outlook 11.0 object library"
  後即可正常運作.  thanks*10000




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)