小程序开发资讯 给1000东说念主发送不同邮件，用VBA圭臬一键分发，十秒贬责
发布日期：2024-08-08 11:14 点击次数：177
要是需要发送多封邮件给不同的东说念主，不错将要发送的邮件信息，包括邮箱地址、邮件主题、邮件正文、邮件附件等信息，裁剪、保存在Excel责任表中小程序开发资讯，如下图：
图片
排列三第2024177期-第2024181期连续5期奖号为：579-663-535-215-323。
这么，就不错借助VBA调用OutLook一键分发。底下是简要的建筑形态：
领先，建筑OutLook账户
这一步很关节，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扫视：圭臬中的发件信息要与保存在责任表中信息的位置保合手一致。
终末，在保证保存发件信息的责任表为举止责任表的前提下，实行这个经过即可自动发送邮件。
宥恕我小程序开发资讯，学习更多Excel技术
本站仅提供存储奇迹，所有履行均由用户发布，如发现存害或侵权履行，请点击举报。