VB.Net - 데이터베이스 열에서 이미지 검색 후 전자 메일에 첨부 파일로 첨부하십시오.

Question

지원하는 응용 프로그램이 있습니다. 데이터베이스 (이미지 데이터 유형)에서 이미지를 검색 한 다음이 이미지를 전자 메일에 첨부 할 수 있는지 궁금합니다. 응용 프로그램은 현재 전자 메일에 이미지를 포함하지만 대신 이미지를 첨부해야합니다.

전자 메일에 첨부 파일을 추가하는 방법을 설명했지만 데이터베이스 필드가 아닌 파일 위치에서 이미지를 가져 왔습니다. 나는 내 필요에 부합하는 것을 찾아 오지 않았다.

어떻게 든 로컬로 이미지를 저장 한 다음 저장된 이미지를 사용하여 이메일을 보내야합니까?

SQL 서버 2014

전 기존 가져 오기 이미지 기능

 Private Function GetImage() As Byte() 
      Dim rdrImage As SqlDataReader 
      Dim strSQL As String 
      Dim arrContent As Byte() 
      strSQL = "SELECT Photo FROM " & CommonThings1.GetDatabaseSuffix & "Images " 
      strSQL = strSQL & "WHERE PhotoID = " & Request("ZQ") & " AND Random = " & Request("WXP") 
      cmCM.CommandText = strSQL 
      rdrImage = cmCM.ExecuteReader 
      rdrImage.Read() 
      arrContent = CType(rdrImage("Photo"), Byte()) 
      rdrImage.Close() 
      Return arrContent 
     End Function 

도움이 크게 감사합니다.

Answer 1

당신이 사용하는 어떤 데이터베이스

Dim stream as new MemoryStream(GetImage()) 
stream.Position = 0 'If I remember correctly, need to be at beginning of stream to read from first position when attaching 
Dim MSG As New MailMessage 
Dim ToAddress = New MailAddress(SomeEmailAddress) 
Dim FromAddress As New MailAddress("SomeEmail@AnEmail.com") 
Try 
    With MSG 
     .To.Add(ToAddress) 
     .From = FromAddress 
     .Subject = "Your Photo" 
     .IsBodyHtml = True 
     .Body = SomeHTML 
     .Attachments.Add(New Attachment(stream , "Photo.jpg", "application/jpg")) 
    End With 
Dim SendMessage As New SmtpClient("smtp.MyMailServer.com") 
SendMessage.Send(MSG)