我正在尝试创建一个宏来发送自动提醒。
我有两个宏：

Sub Auto_Open()
    Dim vResp As Variant, dTime As Date
    vResp = MsgBox("Inviare email ora?", vbYesNo)
    If vResp = 6 Then 'YES
        Call EmailReminder
    ElseIf vResp = 7 Then 'NO
        dTime = CDate(InputBox("Send email at:", , Time + TimeValue("00:00:10")))
        Do Until Time = dTime 'OR = #8:00:00 AM#
            DoEvents
        Loop
        Call EmailReminder
    End If
End Sub
    
Sub EmailReminder()
    Dim oOL As Outlook.Application, oMail As Outlook.MailItem, oNS As Outlook.Namespace
    Dim oMapi As Outlook.MAPIFolder, oExpl As Outlook.Explorer
    Dim sBody As String, dDate As Date
    Dim oWS As Worksheet, r As Long, i As Long, sStart As String
    
    Set oWS = Foglio1
    Set oOL = New Outlook.Application
    Set oExpl = oOL.ActiveExplorer
    
    If TypeName(oExpl) = "Nothing" Then
        Set oNS = oOL.GetNamespace("MAPI")
        Set oMapi = oNS.GetDefaultFolder(olFolderInbox)
        Set oExpl = oMapi.GetExplorer
    End If
    
    With oWS.Range("E1")
        r = .CurrentRegion.Rows.Count
        For i = 1 To r
            dDate = .Cells(i, 1)
            sBody = "Oggi è il compleanno di" & .Cells(i, 2) & dDate & .Cells(i, -4) & " " & .Cells(i, -3) & vbCrLf & "Facciamo i nostri auguri!"
            If Date = dDate Or Date = Int(dDate) Then ' Use INT to eliminate time info
                Set oMail = oOL.CreateItem(oIMailItem)
                With oMail
                    .Recipients.Add "umberto.roselli@openfiber.it" 'Indirizzo ricevente
                    .Subject = "Nuovo compleanno oggi:" & .Cells(i, -4) & " " & .Cells(i, -3) & .Body = sBody:  .Send
                End With
            End If
        Next i
    End With
    MsgBox "Messaggio email inviato correttamente!"
        
End Sub

然而，我在第二个宏上不断地得到错误
运行时间13：类型不匹配
但它没有给予我错误在哪里。