以下代码会出先用户定义类型未定义是什么意思，感谢回复

3310852

Public Sub 技巧19_012()
    Dim n As Integer, i As Integer
    Dim ws As Worksheet
    Dim OutlookApp As Outlook.Application
    Dim newMail As Outlook.MailItem
    Set OutlookApp = New Outlook.Application
    Set ws = Worksheets("sheet1")
    n = ws.Range("A65536").End(xlUp).Row
    For i = 2 To n
       Set newMail = OutlookApp.CreateItem(olMailItem)    '创建新邮件
       With newMail
            .Subject = "实验"      '设置邮件主题
            .Body = "实验数据：" & ws.Range("D" & i)      '设置邮件正文
            .to = ws.Range("A" & i)       '设置收件人地址
            .Send        '开始发送
        End With
    Next i
    Set ws = Nothing
    Set newMail = Nothing
    Set OutlookApp = Nothing
End Sub
以上代码会出先用户定义类型未定义是什么意思，感谢回复

闻启学

这个要事前引用引用：Microseft Outlook  14.0 Object Library   

3310852

闻启学 发表于 2014-11-24 22:47
这个要事前引用引用：Microseft Outlook  14.0 Object Library

非常感谢，