Question

我有两个我正在连接的一维数组...一个是时间戳，另一个是相应的注释

e.g：

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 - 与Bob合作，同意需要转让给Mary Jones所有权

11/29/2012 11:18:27 AM - Mtng w / MJ，伸手去找文件。截止日期为12/7/12

12/10/2012 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。它只捕获并发送连接数组的最后一行（即最后一条注释）。

我的电子邮件创建代码位于同一个子目录中...在我用于创建数组的上述代码之后。

非常感谢任何帮助/建议

谢谢。

Answer 1

TimeCommentArray = TimeCommentArray & vbcrlf & TimeArray(i) & _
                                    " - " & CommentArray(i)

输出连接数组到outlook电子邮件？

1 个答案: