摘要: ``` 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 阅读(412) 评论(0) 推荐(0) 编辑