Fórum Enviar Email pelo meu sistema #13358
28/12/2009
0
Segue o Código do Meu botão enviar:
var
Msg : MailMessage;
Smtp : SmtpClient;
Conn : SqlConnection;
Comand : SqlCommand;
Read : SqlDataReader;
Grupo : string;
i : integer;
begin
For i := 0 to ListBox_Grupos.Items.Count-1 do
begin
if ListBox_Grupos.Items[I].Selected then
Grupo := Grupo + ListBox_Grupos.Items[I].Value+',';
end;
if assigned(Grupo) then
Grupo := Grupo.Remove(Grupo.Length-1,1);
Conn.ConnectionString := ConfigurationManager.ConnectionStrings['ConexaoShalom'].ToString;
Comand := SqlCommand.Create('spEnviarEmails', Conn);
Comand.CommandType := CommandType.StoredProcedure;
Comand.Parameters.Add('@IDGRUPO', Grupo );
Conn.Open;
Read := Comand.ExecuteReader;
Msg := MailMessage.Create;
Msg.From := MailAddress.Create('paulo@4freires.com.br','Paulo Freire');
Msg.Subject := txtAssunto.Text;
while Read.Read do
begin
Msg.Bcc.Add(Read.GetString(0));
end;
Msg.Priority := MailPriority.High;
Msg.Body := txtMensagem.Text;
Smtp := SmtpClient.Create('smtp.4freires.com.br',25);
Smtp.Credentials := NetWorkCredential.Create('paulo@4freires.com.br','minhasenha');
Smtp.Send(Msg);
Valeu...
Paulo Freire
Curtir tópico
+ 0Posts
28/12/2009
Rodrigo Mourão
Bem este está me parecendo um dos famosos Bugs do Delphi. O que pode ter ocorrido e a chamada do evento ter se perdido, ou seja, vc tem o codigo do evento escrito em delphi mas não tem a chamada dele no Aspx.
Para termos certeza clique no botão que tem o código. Vá no object inspector no evento onclick e verifique se tem la o evento programado. Caso não tenha de um duplo clique como se fosse escrever o codigo novamente.
Ele ja deve levar para o código que ja existe.
Acho que isso resolverar !!
Abs !!!
Gostei + 0
29/12/2009
Paulo Freire
Gostei + 0
29/12/2009
Rodrigo Mourão
Bem este erro e o Acess Violation do .Net, ou seja, é quando tentamos acessar o metodo ou propriedade de um objeto que não foi criado. Lembrando que no .Net String, Inteiro, etc são tratados como métodos.
Analisando o código o que pode esta acontecendo é que a variavel Grupo pode estar vazia, e isso só ocorreria se não fosse selecionado nenhum item no seu listbox.Quando testou tinha pelo menos um item selecionado no ListBox ???
No aguardo !!!!
Gostei + 0
29/12/2009
Paulo Freire
Gostei + 0
30/12/2009
Rodrigo Mourão
Você poderá utilizar o disco virtual.
Att,
Gostei + 0
30/12/2009
Paulo Freire
Gostei + 0
30/12/2009
Rodrigo Mourão
Primeiro comentei o redirect do topo.ascx pois não estaria logado.Depois adicionei na mão dois itens no ListBoxGrupos pois não tenho acesso ao banco. Feito isso conmentei as configurações do connectionString no WebConfig.
Após isso coloquei o breakpoint e executei a aplicação. Para minha surpresa o ero não ocorreu. Não na linha citada por você. Ocorreu um erro mas foi na Linha:
Conn.ConnectionString := ConfigurationManager.ConnectionStrings['ConexaoShalom'].ToString;
Isso pq eu retirei o ConnectionString do WebConfig.
Sendo assim tente recriar o diretório virtual ou executar com o Cassine.
Fico no aguardo !!!
Att,
Gostei + 0
02/01/2010
Rodrigo Mourão
Tem algo mais que podemos ajudar ???
Estamos aguardando para encerrr o chamado !!!
Att,
Gostei + 0
04/01/2010
Paulo Freire
Gostei + 0
04/01/2010
Rodrigo Mourão
Att,
Gostei + 0
04/01/2010
Paulo Freire
Gostei + 0
04/01/2010
Rodrigo Mourão
MAS ele não especifica em qual linha deu o erro.
Existe um configuração que podemos fazer no web config para mostrar o erro. Se não me engano e custom error colocar Off. Assim poderemos ver detalhes do erro.
De qualquer forma vou gravar um vídeo mostrando que ele passa no código informado na imagem abaixo.
Att,
Gostei + 0
04/01/2010
Paulo Freire
Gostei + 0
11/01/2010
Rodrigo Mourão
Ainda não gravei a video devido a problema em minha maquina virtual. Estarei procedendo a gravação e enviando para você rapidamente.
Abs!!
Gostei + 0
20/01/2010
Paulo Freire
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)