locked
Enviar e-mail após cadastro RRS feed

  • Pergunta

  •  

    Uma dúvida: usei um DetailsView somente com a opção Insert ativada. Agora, gostaria que ao terminar o cadastro o site enviasse um e-mail pra mim automaticamente. Tem como?

     

    vlw

     

    Adriano

    sábado, 12 de abril de 2008 03:26

Todas as Respostas


  • Segue Codigo para auxilir o envio de email após a inclusão.

       
    Code Snippet

    Protected Sub DetailsView1_ItemInserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles DetailsView1.ItemInserted
            If e.AffectedRows > 0 Then
                enviaEmail("Destinatário", "Recipiente BCC", "Recipiente CC", "Endereço CC", "Assunto", "Corpo")
            End If
        End Sub

        Public Shared Sub enviaEmail(ByVal from As String, ByVal recepient As String, ByVal bcc As String, _
                                             ByVal cc As String, ByVal subject As String, ByVal body As String)

            ' cria uma instância do objeto MailMessage
            Dim mMailMessage As New MailMessage()
            ' Define o endereço do remetente
            mMailMessage.From = New MailAddress(from)
            ' Define o destinario da mensagem
            mMailMessage.To.Add(New MailAddress(recepient))

            ' Verifica se o valor para bcc é null ou uma string vazia
            If Not bcc Is Nothing And bcc <> String.Empty Then
                ' Define o endereço bcc
                mMailMessage.Bcc.Add(New MailAddress(bcc))
            End If

            ' verifica se o valor para cc é nulo ou uma string vazia
            If Not cc Is Nothing And cc <> String.Empty Then
                ' Define o endereço cc
                mMailMessage.CC.Add(New MailAddress(cc))
            End If

            ' Define o assunto
            mMailMessage.Subject = subject
            ' Define o corpo da mensagem
            mMailMessage.Body = body

            ' Define o formato do email como HTML
            mMailMessage.IsBodyHtml = True
            ' Define a prioridade da mensagem como normal
            mMailMessage.Priority = MailPriority.Normal

            ' Cria uma instância de SmtpClient - Nota - Define qual o host a ser usado para envio
            ' de mensagens, no local de smtp.server.com use o nome do SEU servidor
            Dim mSmtpClient As New SmtpClient("smtp.server.com")
            ' Envia o email
            mSmtpClient.Send(mMailMessage)
        End Sub


    segunda-feira, 5 de maio de 2008 14:02