爱情电影网aqdy 给1000东说念主发送不同邮件，用VBA法子一键分发，十秒责罚

要是需要发送多封邮件给不同的东说念主，不错将要发送的邮件信息爱情电影网aqdy，包括邮箱地址、邮件主题、邮件正文、邮件附件等信息，剪辑、保存在Excel责任表中，如下图：

图片

这么，就不错借助VBA调用OutLook一键分发。底下是简要的缔造关节：

最初，缔造OutLook账户

这一步很枢纽爱情电影网aqdy，OutLook是发送邮件要使用的器具，必不行少。

要是是初次初始OutLook，系统会给出缔造账户的辅导界面，随着教唆缔造即可。

图片

账户缔造成效，干预OutLook后的界面肖似下图。

图片

接着，写发送邮件的VBA法子

掀开缔造好发件信息的Excel责任簿，干预VBE，写入底下的VBA法子。

家庭乱伦Sub SendEmail() Dim objOutlook As Object, objMail As Object, i As Integer, lastRow As LongSet objOutlook = CreateObject('Outlook.Application') lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).RowFor i = 2 To lastRowSet objMail = objOutlook.CreateItem(0) objMail.To = Cells(i, 2).Value objMail.Subject = Cells(i, 3).Value objMail.Body = Cells(i, 4).ValueIf Cells(i, 5) <> '' Then objMail.Attachments.Add (Cells(i, 5).Value)End If objMail.SendSet objMail = NothingNext iSet objOutlook = Nothing MsgBox '总共邮件照旧发送成效！', vbInformationEnd Sub

看重：法子中的发件信息要与保存在责任表中信息的位置保抓一致。

终末，在保证保存发件信息的责任表为活动责任表的前提下，引申这个进程即可自动发送邮件。

顺心我爱情电影网aqdy，学习更多Excel妙技

本站仅提供存储奇迹，总共履行均由用户发布，如发现存害或侵权履行，请点击举报。