p to k anhang im kommentar

       Dim attachment As System.IO.FileInfo = New System.IO.FileInfo("C:\E-mail anhänge\" & objItem.SenderEmailAddress & "\Zip\" & objItem.Subject & ".zip")

        Dim fs As System.IO.FileStream = attachment.OpenRead()

        Dim bytes As Byte() = New Byte(CInt(attachment.Length)) {}

        fs.Read(bytes, 0, CInt(fs.Length))

 

 

 

 

 

 

For Each ATM In objItem.Attachments

 

            With issueAttach

                .IssueID = objSelectedIssue.IssueID

                .CommentID = issueComment.CommentID

                .FileName = "C:\E-mail anhänge\" & objItem.SenderEmailAddress & "\Zip\" & objItem.Subject & ".zip"

                .FileData = bytes

                .ProjectID = objSelectedIssue.ProjectID

            End With

 

        Next

 

        issueAttach = mobjServiceManager.IssuesService.CreateAttachment(issueAttach.IssueID, issueAttach)