返回列表 上一主題 發帖

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

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2014-12-3 11:56 | 只看該作者
DEAR  SIR
  感謝您.於 工具>設定引用項目 勾選 "Microsoft outlook 11.0 object library"
  後即可正常運作.  thanks*10000
羅

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-12-2 17:07 | 只看該作者
本帖最後由 stillfish00 於 2014-12-2 17:10 編輯

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

或宣告為Object:
  Dim oltAPP As Object
  Dim myMail As Object
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題