我有两个要连接的一维数组...一个是时间戳，另一个是相应的注释
例如：
2012 年 11 月 9 日上午 11:17:30 - Bob 跟进 Jim Smith
2012 年 11 月 13 日上午 11:17:38 - 根据请求跟进 LOB 的状态。等待回应。
2012 年 11 月 28 日上午 11:18:15 - Mtg 与 Bob，同意需要将所有权转让给 Mary Jones
2012 年 11 月 29 日上午 11:18:27 - Mtng w/MJ，伸手寻找文件。截止日期为 2012 年 12 月 7 日
2012 年 12 月 10 日上午 11:18:43 - 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 中。它只捕获并发送连接数组的最后一行（即最后一条注释）。
我的电子邮件创建代码在同一个子目录中……在我用来创建数组的上述代码之后。
任何帮助/建议将不胜感激
谢谢你。