摘要:        
```
Option Explicit Sub SendEmail() Dim olApp As Object, newEmail As Object Set olApp = New outlook.Application
Set newEmail = olApp.CreateItem(olMailItem) With newEmail: .To = Sheet1.Range("...    阅读全文
posted @ 2017-08-29 16:54
idlewith
阅读(424)
评论(0)
推荐(0)
        
                    
                
浙公网安备 33010602011771号