Email to Array 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"))