VBA Outlook 电子邮件，在发送前更新当前/选定的字段答案

【问题标题】：VBA Outlook Email, update current/selected field before sendingVBA Outlook 电子邮件，在发送前更新当前/选定的字段
【发布时间】：2022-07-11 10:39:48
【问题描述】：

我写了一个宏，在会议的“主题”字段中输入会议的开始时间，然后邮件将自动发送。

当我通过一个按钮启动宏并且选择并更改了主题或开始时间等最后选择的字段时，将发送电子邮件，但使用旧数据。

例如：
我对电子邮件的最后输入是空白主题字段中的文本“测试”。之后，我通过按钮发送电子邮件。
电子邮件已发送，但主题字段仍为空。

有没有办法更新主题和开始时间等字段？

我尝试使用 update、SendKeys "{TAB}"、myItem.Close olDiscard 等命令来关闭和更新字段并在之后立即发送。

Sub startTimeSend()
    On Error GoTo HandleErr

        Dim myItem As Object
        Set myItem = Application.ActiveInspector.CurrentItem
        Dim oldTitle As String
        Dim startTime As String
        Dim scanForOldNr As String
        Dim newStartTimeFormat As String
        
'       olPromptForSave
'        SendKeys "{ENTER}"
'        SendKeys "{ENTER}", True
'        Application.SendKeys ("{ENTER}")

        oldTitle = myItem.Subject
        startTime = myItem.Start

'        MsgBox (oldTitle)
        

'       scanForOldNr contains third char (usually ":")
        scanForOldNr = Mid(oldTitle, 3, 1)
        If scanForOldNr Like "*:*" Then
'       7 da es von 1 hochzählt nicht null
'            MsgBox (scanForOldNr)
            oldTitle = Mid(oldTitle, 7)
        End If

'        Cancel = True
        
        newStartTimeFormat = Format(startTime, "hh:mm")
        myItem.Subject = newStartTimeFormat & " " & oldTitle

        myItem.Send

ExitHere:
            Exit Sub


HandleErr:
'        Cancel = False

        Resume ExitHere
End Sub

【问题讨论】：

.Save 发送前。
如果不向我们展示您尝试使用的宏，恐怕您将无法获得任何帮助。无论如何，提出问题时需要显示有问题的代码...
Why should I not upload images of code/errors when asking a question?
代码现已更新
从oldTitle = myItem.Subject 之前删除了myItem.Close olDiscard，看起来一切都很好。

标签： vba outlook

【解决方案1】：

在您关闭并重新打开项目之前，Outlook 不会将通过 OOM 所做的更改传播到 UI。或者，在保存项目之前，您手动所做的更改可能在 OOM 中不可见。我建议处理适当的 OOM 属性，而不是发明用于发送和接收数据的新机制。

使用AppointmentItem.Start 属性返回或设置Date，指示Outlook 项目的开始日期和时间。要获得相关的约会，您可以使用MeetingItem.GetAssociatedAppointment 方法。

【讨论】：