能否截获表格(a1:g8)的区域数据放在outlook上

29206

Sub SendMail()
    Dim objOL As Object
    Dim itmNewMail As Object     '引用Microsoft Outlook 物件模型
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
    With itmNewMail
        .Subject = WorksheetFunction.Text(Now(), "mm月dd日hh时mm分") & "发生的问题"  
       .Body = "时间:" & WorksheetFunction.Text(Now(), "mm月dd日hh时mm分") & "我是" & [a1].Value & "的:" & [a65536].End(xlUp).Value         
       .To = liujh@163.com
        .Display  
         Application.OnTime Now + TimeValue("00:00:01"), "dd"
    End With
    Set objOL = Nothing
    Set itmNewMail = Nothing
End Sub

Sub dd()
SendKeys "%s"
End Sub

会的老师帮忙修改下！

alwstr

可以尝试一下循环行不行  
没有附件也不知道内容长啥样