連結している2つの1D配列があります...1つはタイムスタンプで、もう1つは対応するコメントです
例えば：
11/9/2012 11:17:30 AM - Bob が Jim Smith にフォローアップ
11/13/2012 11:17:38 AM - 要求に応じてステータスの LOB をフォローアップしました。応答待ちです。
11/28/2012 11:18:15 AM - ボブとの会談、所有権をメアリー ジョーンズに譲渡する必要があることに合意
2012 年 11 月 29 日 11:18:27 AM - MJ とのミーティング、ファイルを見つけるために手を差し伸べます。2012 年 12 月 7 日の期日
2012 年 12 月 10 日 11:18:43 AM - Joe から MJ へのステータス更新のメール。
これが私のコードです：
Private Sub Test_Arrays_Click()
Dim dbs As Database, rst As Recordset, Count As Integer
Dim TimeArray()
Dim CommentArray()
Dim strsql As String
Dim i As Long
Dim TimeCommentArray As Variant
Set dbs = CurrentDb
strsql = "SELECT Timestamp, Comment from Conversation_Log where Item_ID = '" & Me.ID & "'"
Set rst = dbs.OpenRecordset(strsql)
Count = 0
ReDim Preserve TimeArray(0)
rst.MoveFirst
Do Until rst.EOF
TimeArray(Count) = rst![Timestamp]
ReDim Preserve TimeArray(UBound(TimeArray) + 1)
Count = Count + 1
rst.MoveNext
Loop
ReDim Preserve TimeArray(UBound(TimeArray) - 1)
rst.Close
For i = LBound(TimeArray) To UBound(TimeArray)
Next i
Set rst = dbs.OpenRecordset(strsql)
Count = 0
ReDim Preserve CommentArray(0)
rst.MoveFirst
Do Until rst.EOF
CommentArray(Count) = rst![Comment]
ReDim Preserve CommentArray(UBound(CommentArray) + 1)
Count = Count + 1
rst.MoveNext
Loop
ReDim Preserve CommentArray(UBound(CommentArray) - 1)
rst.Close
For i = LBound(CommentArray) To UBound(CommentArray)
TimeCommentArray = TimeArray(i) & " - " & CommentArray(i)
Debug.Print TimeCommentArray
Next i
End Sub
私が実行するとき
Debug.Print TimeCommentArray
それはまさに私が必要とする方法でイミディエイトウィンドウにありますが、Outlook電子メールの.Bodyにそれを取り込む方法がわかりません。連結された配列の最後の行 (つまり、最後のコメント) のみをキャプチャして送信します。
私の電子メール作成コードは、この同じサブ内にあります...配列を作成するために使用している上記のコードの後にあります。
どんな助け/提案も大歓迎です
ありがとうございました。