将VB6代码从Outlook 2007升级到Outlook 2010
|
我们想要升级我们的VB6代码以使用Outlook 2010,但出现以下错误:
Active x cannot create object
这是我们当前的代码:
Public Sub SendEmail()
Set emailOutlookApp = CreateObject(\"Outlook.Application.12\")
Set emailNameSpace = emailOutlookApp.GetNamespace(\"MAPI\")
Set emailFolder = emailNameSpace.GetDefaultFolder(olFolderInbox)
Set emailItem = emailOutlookApp.CreateItem(olMailItem)
Set EmailRecipient = emailItem.Recipients
EmailRecipient.Add (EmailAddress)
EmailRecipient.Add (EmailAddress2)
emailItem.Importance = olImportanceHigh
emailItem.Subject = \"My Subject\"
emailItem.Body = \"The Body\"
\'-----Send the Email-----\'
emailItem.Save
emailItem.Send
\'-----Clear out the memory space held by variables-----\'
Set emailNameSpace = Nothing
Set emailFolder = Nothing
Set emailItem = Nothing
Set emailOutlookApp = Nothing
Exit Sub
我不确定\“ Outlook.Application.12 \”是否正确。但是我找不到确切的答案。
没有找到相关结果
已邀请:
4 个回复
队辅坟阮阶
。 但是,我不知道Office 2007怎么办。 我认为它是3美元,而对于较低的版本,它只是\“ Outlook.Application \”。
唤副埂侧壬
雄鞋谋塘
揽芳僵迷仇
。但不确定是否与此相关:2007年到2010年的升级问题 我意识到这不是确切的问题,但是它可能会带您走上正确的道路。