vba - VBA - 基于单元格数据通过 Outlook 发送电子邮件
问题描述
我一直在尝试为此编写代码而失败,所以如果有人可以帮助我在 excel 中创建一个宏,我会很高兴。我希望根据我添加到 excel 的数据,通过 Outlook 向一群用户发送访问凭据。具体来说,我有两个工作表:
1) 电子邮件信息(全是静态的)
这包含:
- 单元格 C5 中的电子邮件主题
- 单元格 C6 中的电子邮件正文(基本上这是说您好,您的用户凭据如下)
- 单元格 C7 中的附加电子邮件正文(这部分会说“如果您有任何问题,请告诉我们”)当然可以更新单元格 C6 和 C7 以包含任何语言
2) 用户信息(用户数量可能不同)
这包含:
- A 列 - 名字
- B 列 - 姓氏
- C 列 - 全名(不需要)
- D 列 - 电子邮件地址
- E 列 - 密码
理想情况下,宏将能够查看用户信息,并为列 D 中的每个电子邮件地址创建一个新的、独立的电子邮件,格式如下:
- 电子邮件至:单元格 D2 中的电子邮件地址,直到最后一封电子邮件(用户信息工作表)
- 电子邮件主题:电子邮件信息工作表中的单元格 C5
- 用户信息工作表中 A 列的“Hi”名字值
- 电子邮件信息工作表中单元格 C6 中的电子邮件正文第 1 部分
- 用户名:这是 D 列中的电子邮件地址(与电子邮件收件人相同)
- 密码:来自用户信息工作表中的 E 列
- 电子邮件信息工作表中单元格 C7 中的电子邮件正文第 2 部分
希望有人有时间帮助我。
提前致谢!!
编辑
谢谢你的帮助,巴里。这是我的代码,因为我试图引用两个不同的工作表。你能告诉我我做错了什么吗?
Sub GenerateEmail()
Dim sEmailBodyp1 As String
Dim sEmailBodyp2 As String
Dim sEmailSubject As String
Dim sEmailTo As String
Dim sFirstName As String
Dim sPassword As String
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSheet As Worksheet
Dim UserSheet As Worksheet
Dim UsedRange As Range
Set EmailSheet = Sheets("Email Information")
Set UserSheet = Sheets("User Information")
Set sEmailSubject = EmailSheet.Cells("C5")
Set sEmailBodyp1 = EmailSheet.Cells("C6")
Set sEmailBodyp2 = EmailSheet.Cells("C7")
Set UsedRange = UserSheet.UsedRange
For Each Row In UsedRange.Rows
sFirstName = Row.Columns(1)
sEmailTo = Row.Columns(4)
sPassword = Row.Columns(5)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sEmailTo
.Subject = sEmailSubject
.Body = "Hi " + sFirstName + "," + vbCrLf + vbCrLf + sEmailBodyp1 + vbCrLf + vbCrLf + "Username: " + sEmailTo + vbCrLf + "Password: " + sPassword + vbCrLf + vbCrLf + sEmailBodyp2
.Display
End With
Set OutMail = Nothing
Next
Set OutApp = Nothing
结束子
解决方案
根据讨论,这是我对此解决方案的编辑。
Excel 宏
Public Sub GenerateEmail()
Dim sEmailBodyp1 As String
Dim sEmailBodyp2 As String
Dim sEmailSubject As String
Dim sEmailTo As String
Dim sFirstName As String
Dim sPassword As String
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSheet As Worksheet
Dim UserSheet As Worksheet
Dim UsedRange As Range
Set EmailSheet = Sheets("Email Information")
Set UserSheet = Sheets("User Information")
sEmailSubject = EmailSheet.Range("C5").Value
sEmailBodyp1 = EmailSheet.Range("C6").Value
sEmailBodyp2 = EmailSheet.Range("C7").Value
Set UsedRange = UserSheet.UsedRange
For Each Row In UsedRange.Rows.Offset(1, 0).Resize(UsedRange.Rows.Count - 1, UsedRange.Columns.Count)
sFirstName = Row.Columns(1)
sEmailTo = Row.Columns(4)
sPassword = Row.Columns(5)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sEmailTo
.Subject = sEmailSubject
.Body = "Hi " + sFirstName + "," + vbCrLf + vbCrLf + sEmailBodyp1 + vbCrLf + vbCrLf + "Username: " + sEmailTo + vbCrLf + "Password: " + sPassword + vbCrLf + vbCrLf + sEmailBodyp2
.Display
End With
Set OutMail = Nothing
Next
Set OutApp = Nothing
End Sub
推荐阅读
- python - 在pycharm中使用C++ dll
- django - 根据变化的值过滤 Django 中的查询集
- php - 如何在 CodeIgniter 中使用 CSV 导入库?
- angular - 子路线未正确显示角度
- gremlin - 查询每个连接顶点的边数
- keras - CNN 中的模型损失分布
- bash - 如何分别对文件夹内的所有文件运行 awk 然后将输出合并为一个?
- angular - 预期的间谍导航已使用 [ [ '/ProjectData/MasterSequence' ] ] 调用,但从未调用过
- ansible - Ansible 使用“原始”模块从一台主机 scp 到主机列表(最好在清单中)
- c# - 当您有两个日期时如何清除数据库?