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

Iniciar e Parar Serviços do Windows (Delphi)

Em certas ocasiões nos deparamos com a necessidade de manipular determinadas atividades do SO, como iniciar ou parar um banco de dados, ou qualquer outro serviço que esteja funcionando no momento. Segue abaixo um código que encontrei na Internet para tal finalidade (não me recordo à fonte, assim que eu a encontrar colocarei). Iniciar Serviço: uses WinSvc; // // start service // // return TRUE if successful // // sMachine: //   machine name, ie: \SERVER //   empty = local machine // // sService //   service name, ie: Alerter // function ServiceStart(   sMachine,   sService : string ) : boolean; var   //   // service control   // manager handle   schm,   //   // service handle   schs   : SC_Handle;   //   // service status   ss     : TServiceStatus;   //   // te...

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 ...

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;