使用从属单元格数据从Excel用户窗体发送电子邮件

Question

我们的员工需要两年一次的认证。员工姓名认证日期和即将到来的认证日期保存在主电子表格中。在此电子表格中，您可以打开用户表单以发送认证日期的Outlook约会。在UserForm中，选择要为其发送证书的员工。我的问题是：约会的日期取决于您选择的员工？我使用什么代码，在矩阵中搜索B列中正确的员工姓名，并使用相应行的H列中的日期？我目前正处于这个过程中：

Dim Otlk 'As Outlook.Application
Dim Appt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
    Set Otlk = CreateObject("Outlook.Application")
    Set Appt = Otlk.CreateItem(olAppointmentItem)

'30 Day Invite
With Appt
    .Subject = Me.Employee1ComboBox.Value & " " & "Cft Certification"
    .Start = 

Answer 1

类似的东西：

'30 Day Invite
With Appt
    .Subject = Me.Employee1ComboBox.Value & " " & "Cft Certification"
    .Start = GetDate(Me.Employee1ComboBox.Value)

获取日期的功能（对您可能需要更正的布局进行一些猜测）

Function GetDate(eName)
   Dim f As Range, rwNum
   Set f = ThisWorkbook.Sheets("hidden").Range("namehere").find( _
                        What:=eName, lookat:=xlWhole)
   If Not f is Nothing then
       GetDate = thisworkbook.sheets("master").cells(f.Row,"H").value
   Else
       'should never happen
   End if
End Function