电子邮件到阵列 VBA

Question

下面的代码完全可以满足我的需要，除了我希望.To 从“A1”开始的特定工作表“电子邮件列表”中拉入一个数组。我在此代码中添加或减去的所有内容都会导致代码停止。任何帮助都非常感谢。

    Dim AWorksheet As Worksheet
    Dim Sendrng As Range
    Dim rng As Range

    On Error GoTo StopMacro

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set Sendrng = Worksheets("Daily Notes").Range("A1:M67")            
    Set AWorksheet = ActiveSheet    
    With Sendrng    
        .Parent.Select    
    Set rng = ActiveCell    
        .Select    
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            .Introduction = "Daily Notes *ad items are in bold*"    
            With .Item
                .To = ""
                .CC = ""
                .BCC = ""
                .Subject = "Daily Notes"
                .Send
            End With    
        End With
        rng.Select
    End With
    AWorksheet.Select    
StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False    
End Sub

Answer 1

所以，如果你改写你的问题，它是这样的：

如何获取Excel到字符串范围内的值，用“;”分隔？

假设您的值在“A1:D1”范围内。那么，如果引入如下函数：

Public Function GetArrayToString(myRange As Range) As String

    Dim cnt     As Range

    For Each cnt In myRange
        GetArrayToString = GetArrayToString & cnt & ";"
    Next cnt

End Function

您将获得类似value1; value2; value3; value4 的值。这是在您的代码中引用它的方法：

.To = GetArrayToString(Worksheets("TheSpecialOneAkaMrM").Range("A1:D1"))