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

rouber590324

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 = "CFS@nanyapcb.com.tw"
    .CC = "ROUBER@NANYAPCB.COM.TW;Giaco_Chang@nanyapcb.com.tw;Jovi_Chen@nanyapcb.com.tw;Nate_cho@nanyapcb.com.tw;Yeah@nanyapcb.com.tw;eddie_lin@nanyapcb.com.tw;kevin_liu@nanyapcb.com.tw;ritatsai@nanyapcb.com.tw;jacky_chen@nanyapcb.com.tw;allen@nanyapcb.com.tw;channing@nanyapcb.com.tw;chinghe@nanyapcb.com.tw;jasonweng@nanyapcb.com.tw;jim_lai@nanyapcb.com.tw;adamchen@nanyapcb.com.tw;jo_lin@nanyapcb.com.tw;king@nanyapcb.com.tw;N000150301@nanyapcb.com.tw"
    .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

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

或宣告為Object:
  Dim oltAPP As Object
  Dim myMail As Object

rouber590324

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