台灣最大程式設計社群網站
線上人數
1067
 
會員總數:246134
討論主題:189713
歡迎您免費加入會員
討論區列表 >> ACCESS >> Dim objContactItem As ContactItem 此句出示警示"使用者自訂型態尚
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Dim objContactItem As ContactItem 此句出示警示"使用者自訂型態尚
價值 : 20 QP  點閱數:212 回應數:2
樓主

Andy Si
門外漢
0 22
235 25
發送站內信

Dim objContactItem As ContactItem 此句出示警示"使用者自訂型態尚未定義"
----------------------------------------------------------------------各位老師, 請多多指教!

Private Sub cmdCreateOutlookContact_Click()
Dim objContactItem As ContactItem

Dim snpContacts As DAO.Recordset
Dim intCurrRec As Integer, intRecCount As Integer
Application.Echo True, "初始化Outlook連接,請稍等。。。"
Set snpContacts = CurrentDb.OpenRecordset("Persons", dbOpenSnapshot)

snpContacts.MoveLast
intRecCount = snpContacts.RecordCount
snpContacts.MoveFirst
SysCmd acSysCmdInitMeter, "正在創建連絡人。。。", intRecCount
intCurrRec = 1

Set olkapp = CreateObject("Outlook.Application")
Set olknamespace = olkapp.GetNamespace("MAPI")
Do Until snpContacts.EOF
SysCmd acSysCmdUpdateMeter, intCurrRec

Set objContactItem = olkapp.CreateItem(olContactItem)
With objContactItem
.FirstName = snpContacts!FirstName '名字
.LastName = snpContacts!LastName '姓氏
.BusinessAddress = snpContacts!Address '地址
.BusinessAddressCity = snpContacts!City '城市
.BusinessAddressState = snpContacts!State '省/市/自治區
.BusinessAddressPostalCode = snpContacts!PostalCode '郵遞區號
.BusinessTelephoneNumber = snpContacts!TelephoneNumber '電話
.Email1Address = snpContacts!Email1Address '郵箱地址
.Save '保存
End With
snpContacts.MoveNext
intCurrRec = intCurrRec + 1

Loop
MsgBox "添加成功。", vbInformation
Set objContactItem = Nothing
Set olknamespace = Nothing
Set olkapp = Nothing
SysCmd acSysCmdClearStatus
End Sub





搜尋相關Tags的文章: [ Dim objContactItem As ContactItem 此句出示警示"使用者自訂型態尚 ] ,
本篇文章發表於2020-07-22 17:33
1樓
最有價值解答

P陳
檢舉此回應
因為沒有引用 OUTLOOK

工具->設定引用項目-> 選 Microsoft Outlook 16.0 object Library
就可以了
本篇文章回覆於2020-07-24 15:48
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

Andy Si
檢舉此回應
謝謝!
本篇文章回覆於2020-07-24 16:38
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.