Excel VBA: 使用宏将多行内容发送至同一电子邮件地址

{/'title/':/'Excel VBA: 使用宏将多行内容发送至同一电子邮件地址/',/'description/':/'本指南介绍如何在Excel中使用VBA宏将多行内容发送到同一电子邮件地址。教程包括代码示例和详细说明，可帮助您轻松实现自动化邮件发送功能。/',/'keywords/':/'Excel VBA, 宏, 邮件, 发送, 多行, 自动化, Outlook, 电子邮件/',/'content/':/'要在Excel中发送多行内容到同一邮件地址，可以使用VBA宏来实现。下面是一个示例代码：//n//nvba//nSub SendEmail()//n Dim OutlookApp As Object//n Dim OutlookMail As Object//n Dim rng As Range//n Dim EmailAddress As String//n Dim EmailSubject As String//n Dim EmailBody As String//n //n ' 设置邮件地址//n EmailAddress = ///'example@example.com///'//n //n ' 设置邮件主题//n EmailSubject = ///'Excel Email///'//n //n ' 创建Outlook对象//n Set OutlookApp = CreateObject(///'Outlook.Application///')//n //n ' 循环遍历每一行//n For Each rng In Range(///'A1:A///' & Cells(Rows.Count, 1).End(xlUp).Row)//n ' 设置邮件内容//n EmailBody = rng.Value//n //n ' 创建邮件对象//n Set OutlookMail = OutlookApp.CreateItem(0)//n //n ' 设置邮件属性//n With OutlookMail//n .To = EmailAddress//n .Subject = EmailSubject//n .Body = EmailBody//n .Display ' 如果要发送邮件而不是显示，请使用 .Send//n End With//n //n ' 释放邮件对象//n Set OutlookMail = Nothing//n Next rng//n //n ' 释放Outlook对象//n Set OutlookApp = Nothing//nEnd Sub//n//n//n将上面的代码复制粘贴到Excel的VBA编辑器中（按下Alt + F11打开），然后运行宏即可。这将逐行发送内容到指定的邮件地址。请确保已经安装了Outlook并登录了有效的邮件账户。/