|
我的版本是office 365,win7平台。
公司同事在win10上也可以运行
- Sub Send_Mails()
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Dim subject As String
- Dim i As Integer
- Dim l As Integer
- Dim wst As Worksheet
- Dim myitem
- Dim y As Long
- Dim z As String
- Dim mailWord As Object
- Dim wapp As Object
- Dim wb As Object, wb1 As Object
- Dim k As Integer
- Dim j As Integer
- Dim zhengwen_cn, zhengwen_en
- Dim timee
- Dim email_time
- timee = Sheets("Dashboard").Range("k4").Value '邮件发送间隔时间
- Set wst = Worksheets("email_recipients")
- trr = wst.Range("a1").CurrentRegion
- Set myolapp = CreateObject("outlook.application")
- i = wst.Range("j1").End(xlDown).Row
- subject_cn = "" '邮件标题
- zhengwen_cn = "" '邮件正文
- cal = 0
- For l = 2 To i
- Set myitem = myolapp.CreateItem(olMailItem)
- receiver = recipient(trr(l, 4), trr(l, 5), trr(l, 6), trr(l, 7), trr(l, 8), trr(l, 9)) '收件人邮箱
- With myitem
- .subject = subject_cn '标题
- .body = zhengwen_cn '正文
- .To = receiver '收件人
- .cc = trr(l, 3) & ";" & trr(l, 2) '抄送人
- .display '显示邮件窗口
- .Attachments.Add trr(l, 10) '添加附件
- .send '发送
- If Sheets("Dashboard").Range("k2").Value = "YES" Then
- Application.Wait Now + TimeValue(timee) '设置发送邮件的间隔
- Else
- End If
- cal = cal + 1 '发送邮件计数
- End With
- Next l
- Set myolapp = Nothing
- Set myitem = Nothing
- Application.ScreenUpdating = True
- Application.DisplayAlerts = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|