英文:
How can one update non-default mailbox contacts with a distribution list?
问题
Here are the translated parts of your code:
这是基于我在网上找到的一个示例。它在默认邮箱中创建一个分发列表。我想要为除默认邮箱之外的任何邮箱创建一个分发列表。我想要选择创建分发列表的邮箱。我想要在创建分发列表时提示用户确认正确的联系人窗口已打开。如何解决以下两行？- Set oItem = 需要一些代码在当前选择的窗口中创建分发列表- Set oRecipient = 需要一些代码在新的分发列表中创建收件人
Please note that code translation can vary depending on specific requirements and context, so you may need to adapt these translations accordingly.
英文:
This is based on an example I found on the web. It creates a distribution list in the default mailbox.
I want to create a distribution list for any mailbox other than the default.
Dim oNameSpace As Outlook.NameSpaceDim oRecipient As Outlook.RecipientSet oNameSpace = Application.GetNamespace("MAPI")Set oRecipient = oNameSpace.CreateRecipient("Some Person")oRecipient.ResolveIf oRecipient.Resolved ThenSet oItem = Application.CreateItem(olDistributionListItem)Set oRecipient = Application.Session.CreateRecipient("Some User")oRecipient.ResolveIf oRecipient.Resolved ThenoItem.AddMember oRecipient'Add note to list and displayoItem.DLName = "Northwest -------------------"objItem.Body = "Regional Sales Manager - NorthWest"oItem.SaveEnd IfEnd If
I want to select the mailbox the distribution list will be created in.
I want to prompt the user to confirm the correct Contacts window is open when creating the distribution list.
Dim oParent As ObjectSet oParent = Application.ActiveExplorer.CurrentFolder.ParentResp = MsgBox("Acting on Account: " & oParent & vbCrLf & vbCrLf & "OK to Continue, Cancel to Quit", vbOKCancel)If Resp = vbCancel ThenEndEnd If
How do I resolve the below two lines?
- Set oItem = need some code to create the distribution list in the currently selected window
- Set oRecipient = need some code to create the recipient in the new distribution list
答案1
得分: 0
请使用MAPIFolder.Items.Add而不是Application.CreateItem，其中MAPIFolder需要来自Outlook存储库而不是默认的存储库。
尝试以下更改：
Dim oStore As Outlook.StoreDim oFolder As Outlook.MAPIFolderSet oStore = Application.ActiveExplorer.CurrentFolder.StoreSet oFolder = oStore.GetDefaultFolder(olFolderContacts)Set oItem = oFolder.Items.Add("IPM.DistList")
英文:
Instead of using Application.CreateItem, use MAPIFolder.Items.Add, where MAPIFolder needs to come from the Outlook store other than the default one.
Try the following change:
Dim oStore As Outlook.StoreDim oFolder As Outlook.MAPIFolderSet oStore = Application.ActiveExplorer.CurrentFolder.Storeset oFolder = Store.GetDefaultFolder(olFolderContacts)Set oItem = oFolder.Items.Add("IPM.DistList")
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论