1

在excel中，我有三列：

A:        B:               C:
UserName  UsermailAddress  RecordToBeDeleted

我在 excel 中使用下面的代码从 Outlook（使用 OFT 文件）向 Excel 电子表格 B 列中的每个电子邮件地址发送和发送电子邮件。

我的代码可以发送到 B 列中的每个电子邮件地址

我遇到的问题是，在电子邮件（OFT 文件）中，我有两个关键字（UserName和RecordToBeDeleted），我需要在与该邮件地址一起发送的每封电子邮件中替换它们。

该代码在 OFT 文件中找到这两个关键字，但只是将它们删除或用空条目替换它们。

我做错了什么，以便我可以替换 OFT 邮件消息中 excel 文件中的单词。

我在 excel 表中的 VBA 是：

Sub RunEmails()
    Dim i As Integer
    Dim rngCell As Range

    For Each rngCell In Range("A2", "A" & CStr(Cells(Rows.Count, "A").End(xlUp).Row))
        Call DoTest(rngCell.Offset(0, 1).Value, "JDoe@abc.com", rngCell.Offset(0, 2).Value, rngCell.Value)
    Next rngCell

End Sub

Sub DoTest(EmailAddress As String, CCAddress As String, RecordToBeDeleted As String, UserName As String)
    Dim oApp As New Outlook.Application

    Dim olNewMail As Outlook.MailItem
    Const Template As String = "D:\Documents\list\list-mail.oft"

    Set olNewMail = oApp.CreateItemFromTemplate(Template)

    olNewMail.Recipients.Add EmailAddress
    olNewMail.HTMLBody = Replace(olNewMail.HTMLBody, ">UserName<", UserName)
    olNewMail.HTMLBody = Replace(olNewMail.HTMLBody, ">RecordToBeDeleted<", RecordToBeDeleted)
    olNewMail.VotingOptions = "Can distribution list be Deleted YES;Can distribution list be Deleted NO"

    olNewMail.Send
End Sub
4

1 回答 1

0

似乎UserNameand RecordToBeDeletedin DoTest（和其他变量）的值是空的，因为您从主过程调用 sub ，但是参数是通过ByRef- 或通过引用传递的，这是默认情况下的。在你的情况下，这意味着你得到你所拥有的 - 因为它们没有在 中声明/分配RunEmails，所以ByRefvalue 也是空的。在您的情况下使用ByVal参数：

Sub DoTest(ByVal EmailAddress As String, ByVal CCAddress As String, ByVal RecordToBeDeleted As String, ByVal UserName As String)

阅读更多：通过值或引用传递参数。

希望这会有所帮助。

于 2013-02-26T19:00:57.767 回答