任务清单到期发邮件不能启动FOXMAIL

seide

这个代码，我在公司电脑可以运行FOXMAIL，换台电脑就只能运行Outlook了,同样是装了Foxmail和Outlook,但Outlook没设置，为什么呢，该怎么办？
Sub SendEmail()
    ' 定义变量
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim LastRow As Long
    Dim i As Long

    ' 获取最后一行
    LastRow = ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row

    ' 循环每一行
    For i = 1 To LastRow
        ' 判断时间是否到达
        If Now >= Range("F" & i).Value Then
            ' 创建邮件对象
            Set OutlookApp = CreateObject("Outlook.Application")
            Set OutlookMail = OutlookApp.CreateItem(0)

            ' 设置收件人，主题和正文
            With OutlookMail
                .To = Range("D" & i).Value
                .Subject = Range("B" & i).Value
                .Body = Range("C" & i).Value
                .Send
            End With

            ' 释放对象
            Set OutlookMail = Nothing
            Set OutlookApp = Nothing
        End If
    Next i
End Sub