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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

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