有没有办法从用户创建的下拉列表中选择 Outlook 中的约会和会议位置？

Posted 2023-03-27

【中文标题】有没有办法从用户创建的下拉列表中选择 Outlook 中的约会和会议位置？

【英文标题】：Is there a way to choose the location in Outlook for appointments and meetings from a user-created drop down list?

【发布时间】：2022-01-17 08:29:39

【问题描述】：

我的雇主要求在我的 Outlook 日历约会和会议的“位置”字段中提供一些非常具体的信息。打开每个会议邀请等添加特定信息非常耗时。我有一个可能位置的列表，我正在寻找一种方法来轻松地从该列表中进行选择...我找到了一些 VBA，它允许在模板上下拉以选择主题，而不是位置。而且，我不确定这是否适用于我未创建的会议邀请。

任何帮助将不胜感激！

这是我找到的与主题下拉菜单相关的代码。

'** The following code goes in a userform **

' Adapted for a single choice

Private Sub cmdOkay_Click()
Dim i As Long
Dim msg As String
Dim Check As String

Dim currItem As MailItem

'Generate a list of the selected items
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            msg = .List(i)
            Exit For
        End If
    Next i
End With

If msg = vbNullString Then
    'If nothing was selected, tell user and let them try again
    MsgBox "Nothing was selected!  Please make a selection!"
    Exit Sub

Else

    Set currItem = Application.ActiveInspector.currentItem
    currItem.Subject = msg
    Unload Me

End If

End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()

With Me.ListBox1
     'Clear the rowsource in case it has been set
    .RowSource = ""
     'Add the items
    .AddItem ("Cat")
    .AddItem ("Dog")
    .AddItem ("Gerbil")
    .AddItem ("Lizard")
    .AddItem ("Rat")
    .AddItem ("Snake")
    .AddItem ("Turtle")
End With

End Sub


 '** The following code goes in a standard module **

Sub Launch()
'This code will launch the userform
    UserForm1.Show
End Sub

我也找到了这段代码，但我需要更改它以允许选择不同的位置。

Option Explicit
Sub InsertConfCallInfo()
Dim myItem As AppointmentItem
    On Error GoTo lbl_Exit
    Set myItem = ActiveInspector.CurrentItem
    myItem.Location = "CALL: [phone] / CODE: 9854101812"
    'myItem.Display 'Not required as the item is already displayed.
lbl_Exit:
    Exit Sub
End Sub

【问题讨论】：

我还没有尝试任何代码。我将添加上面找到的代码。

我实际上可以使第二组代码工作，但我希望能够通过在选择约会时单击功能区中的按钮来应用代码，而不必打开约会。

Set myItem = ActiveExplorer.Selection(1)

【参考方案1】：

您可以使用用户表单开发 VBA 宏，您可以从中为约会项目选择 Location。 Userform Drop down list VBA 页面解释了如何在启动时填充下拉控件。

您也可以考虑创建一个 COM 加载项，您可以在其中创建一个带有下拉控件的表单区域。选择哪种方式由您决定。