none
Como adjuntar un archivo en un Mail RRS feed

  • Pregunta

  •  

    Hola amigos ...

     

    Tengo un problema .. tengo una aplicacion de atencion al cliente q envia un mail.. cada vez q se produce una nueva consulta... ahora el problema es que cuando... el usuario.. adjunta un archivo.. ese archivo se guarda en server todo bien... pero necesito q ese archivo.. tambien este adjuntado al mail q envio al administrador del sitio... mi codigo es el siguiente:

     

     Private Sub SendMails()

            Dim emails As New MailMessage()
            emails.Subject = "preguntas.."
           

            Dim fileReader As System.IO.StreamReader
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Server.MapPath("/common/html/TechnicalAssistance.htm"))


            'body of message
            Dim strMessage As String
            strMessage = fileReader.ReadToEnd
            strMessage = strMessage.Replace("[-Date-]", DateTime.Now.ToString("MM/dd/yyyy HH:mmTongue Tieds")) 'ToUniversalTime.
            strMessage = strMessage.Replace("[-FirstName-]", Me.txt_Firts_Name.Text)
            strMessage = strMessage.Replace("[-LastName-]", Me.txt_Last_Name.Text)
            strMessage = strMessage.Replace("[-Email-]", Me.txtEmail.Text)
            strMessage = strMessage.Replace("[-Company-]", Me.txtCompany.Text)
            strMessage = strMessage.Replace("[-Question-]", Me.txtQuestion.Text)

            emails.Body = strMessage
            emails.IsBodyHtml = True

            Try
                If SendEmail.SendEmail(emails, _
                   New MailAddress(ConfigurationManager.AppSettings("emailTo")), _
                   New MailAddress(ConfigurationManager.AppSettings("emailFrom") ) Then

     

     Me.ltLiteral.Text = "Your message was not send, plase try again later"
    Else
                    'lbMessageError.Text = "Your message was not send, plase try again later"
                    Me.ltLiteral.Text = "Your message was not send, plase try again later"
                End If
            Catch ex As Exception
                'lbMessageError.Text = ex.Message
            End Try
        End Sub

     

    ***********************************************************************************************************************************

    si puedieran ayudarme se los agradeceria un monton

     

    lunes, 22 de diciembre de 2008 23:02

Todas las respuestas