好累啊,^_^

解决方案 »

  1.   

    回复人: bbs791109(小别) ( ) 信誉:100  2003-06-09 09:52:00  得分:0 
     
     
      謝謝﹗愛死你了。
      
     
    晕!跑啊!
      

  2.   

    解决下我的问题啊!我在你 加一百分 让你早日到 两个星vb 邮件发送的问题Private WithEvents outObj As Outlook.Application
     
     Private Sub send_click()        Dim outObj As New Outlook.Application        'Dim myItem As Outlook.MailItem
            Set outObj = CreateObject("Outlook.application")
            Set myItem = outObj.CreateItem(olMailItem)
            
             myItem.To = "[email protected] "       myItem.Subject = "hello"       myItem.Body = "hell"        myItem.Attachments.Add ("C:\2\mail\zl.xls")        myItem.sendEnd Sub
    为什么发不出去啊?
      

  3.   

    to:
    smile0913(冰颜傲雪) ( 可以我多给点分就行了  。