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.

Postagens mais visitadas deste blog

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;
//
  // temp char pointer
  psTemp : PChar;
//
  // check point
  dwChkP : DWord;
begin
  ss.dwCurrentState := -1;
// connect to the service
  // contr…

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;
  2: Control.Canvas.Font.Color:=clRed;
en…

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
begin
if TemAtributo(F.Attr, faDirectory) then
begin
if (F.Name <> '.') And (F.Name &l…