摘要:
```
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号