在 Excel 中通过电子邮件发送表单的 VBA 编码

Question

我已经在Excel中创建了一个加班表格。 我想做的是将加班表格通过电子邮件发送给主管批准，然后主管将批准通过电子邮件/转发给输入时间的秘书。最后我收到错误/调试

.Send

以黄色突出显示.

任何帮助词将不胜感激

Sub Rectangle1_Click()

    Dim selectedemployee As String
    
    selectedemployee = Range("B16")
    
    Dim recipientemail As String
    
    recipientemail = Lookupvalue = Range("b16")
    
    Dim ws As Worksheet
    
    Set objoutlook = CreateObject("outlook.application")
    
    Dim objemail As Object
    
    Set objemail = objoutlook.Createitem(0)
    
    With objemail
        .To = recipientemail
        .Subject = "overtime slip for " & selectedemployee
        .Body = "please review the attachedovertime slip."
        .Attachments.Add ActiveWorkbook.FullName
        .Display
        .Send
    End With
    
    Set objemail = Nothing
    Set objoutlook = Nothing
        
End Sub

我用谷歌搜索并尝试了不同的VBA，但仍然一无所获。我已经收到要发送的电子邮件一次，但是当它发送时，它在

To:

位置显示为错误的名称。

Answer 1

recipientemail = Lookupvalue = Range("b16") 是下拉列表中包含可供选择向其发送电子邮件的人员姓名的列。