Pular para o conteúdo principal

Envio de e-mail no Silverlight

 

email Enviar e-mail é algo corriqueiro mas ainda existem alguns sites que se descuidam na hora de deixar aquele espaço reservado para que possamos entrar em contato, com dúvidas, sugestões ou reclamações.

Usando o Silverlight não pode ser diferente, seja qual for a funcionalidade envolvida, iremos disponibilizar hoje uma maneira para mandar e-mails, abaixo mostraremos a classe responsável pelo envio, o projeto pode ser baixado aqui, dúvidas e sugestões são bem vindas nos comentários.

   1: using System;



   2: using System.Collections.Generic;



   3: using System.Linq;



   4: using System.Web;



   5: using System.Web.Services;



   6: using System.Net.Mail;



   7: using System.Configuration;



   8: using System.Net.Configuration;



   9: using System.Net;



  10: using System.Web.Configuration;



  11: using System.Text;



  12:  



  13: namespace Email_Silverlight.Web



  14: {



  15:     /// <summary>



  16:     /// Summary description for Email



  17:     /// </summary>



  18:     [WebService(Namespace = "http://tempuri.org/")]



  19:     [WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]



  20:     [System.ComponentModel.ToolboxItem(false)]



  21:     // To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. 



  22:     // [System.Web.Script.Services.ScriptService]



  23:     public class Email : System.Web.Services.WebService



  24:     {



  25:  



  26:         /// <summary>



  27:         /// Método para envio de E-mail



  28:         /// </summary>



  29:         /// <param name="endereco">Endereço de e-mail de quem irá receber  a mensagem</param>



  30:         /// <param name="titulo">Titulo do E-mail</param>



  31:         /// <param name="mensagem">Mensagem do E-mail</param>



  32:         /// <returns></returns>



  33:         [WebMethod]



  34:         public bool EnviarEmail(string endereco, string titulo, string mensagem)



  35:         {



  36:             try



  37:             {



  38:                 //



  39:                 //envia email



  40:                 MailMessage email = new MailMessage();



  41:                 email.To.Add(endereco);



  42:                 email.From = new MailAddress("remetente@email.com.br");



  43:                 //



  44:                 email.Subject = titulo;



  45:                 email.Body = mensagem;



  46:                 //



  47:                 SmtpClient sC = new SmtpClient("smtp.email.com.br");



  48:                 sC.Port = 25;



  49:                 sC.Credentials = new System.Net.NetworkCredential("remetente@email.com.br", "senha_do_remetente");



  50:                 //sC.EnableSsl = true;



  51:                 try



  52:                 {



  53:                     sC.Send(email);



  54:                 }



  55:                 catch (Exception ex)



  56:                 {



  57:                     string e = ex.Message;



  58:                     return false;



  59:                 }



  60:                 //



  61:                 email.Dispose();



  62:                 email = null;



  63:                 return true;



  64:             }



  65:             catch (Exception ex)



  66:             {



  67:                 string e = ex.Message;



  68:                 return false;



  69:             }



  70:         }



  71:     }



  72: }


Comentários

  1. Muito importante esta dica.
    Vai ser útil para muitos que estão precisando agora dessa dica e muitos outros vão guarda-la para aproveitar num futuro.

    Até mais.

    ResponderExcluir
  2. Fico frustrada quando entro em um site ou blog, e depois de ler descubro que não há um formulário de contato ou espaço para comentários.

    Acredito que seja preciso que todos que usam a internet como um meio de informação, estejam também abertos a receber opiniões e críticas.

    ResponderExcluir
  3. Olá Genilda, agradeço a sugestão, enquanto não o faço fique a vontade para usar os comentários da maneira que julgar necessária.

    ResponderExcluir
  4. Opa cara, blz? To passando aqui pra te convidar pra migrar seu blog para meu novo site, o Galacta. Lá você também terá com seu perfil uma rede social, o que possibilita criar grupos e fóruns, álbuns de fotos, adicionar amigos (se eles se cadastrarem no galacta), enviar mensagens privadas, postar atividades e criar blogs. Se quiser poderei ajudá-lo com a migração.

    Abraços
    do Terrinha

    ResponderExcluir
  5. Ah, não coloquei o endereço do Galacta para não ficar parecendo spam e nao ficar agressivo o comentário! huaheuaehueahueahuea!

    Se estiver interessado, me deixa um comentário lá no meu blog que te envio um e-mail.

    Abraços
    do Terrinha

    ResponderExcluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow; ...

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...