[delphi-br] Re: Envio EMail pelo Delphi
var i: Integer; begin Result := True; with IdMessage1 do //Composição da mensagem: begin Body.Assign(MmMenssagem.Lines); //Corpo da mensagem From.Text := '"' + EditApelido.text + '" ' + CBoxRemet.text; //Seu E-mail ContentType := 'text/HTML'; // Aqui permite que seu email tenha tags html! Recipients.EMailAddresses := Trim(lBDestinatario.items[lBDestinatario.itemindex]); //Destinatários Subject := EdAssunto.Text; //Assunto CCList.EMailAddresses := ''; //Com cópia para end; IdPOP31.Disconnect; IdPOP31.Host := EditServPop.text; IdPOP31.Port := 110; IdPOP31.Username := EditLogin.text; //Sua conta no servidor IdPOP31.Password := EditSenha.text; //sua senha no servidor idpop31.Connect; idSMTP1.Disconnect; if Aut.Checked = true then IdSMTP1.AuthenticationType := atLogin; //atNone atLogin IdSMTP1.Host := EditSerSmtp.text; //endereço SMTP do servidor IdSMTP1.Port := 25; //Porta do Servidor IdSMTP1.Username := EditLogin.text; //Sua conta no servidor IdSMTP1.Password := EditSenha.text; //sua senha no servidor IdSMTP1.Connect; //conecta ao servidor try try IdSMTP1.Send(IdMessage1); //envia a mensagem except Result := false; end; finally //quando terminar de enviar // IdPOP31.Disconnect; //disconecta // IdSMTP1.Disconnect; //disconecta end; --- Em delphi-br@yahoogrupos.com.br, Eduardo Suruagy escreveu > > Estou usando o Delphi 7 com a versão do Indy "indy10.1.5_d7". > > o erro que ocorre é esse: "Must issue a STARTTLS command first. > m13sm960157ybn.21" > > o meu código é esse: > > if not SMTP.Connected then > begin > SMTP.Port := 25; > SMTP.Username := 'meun...@...'; > SMTP.Password := 'minha senha'; > > if cbAutenticar.Checked then > SMTP.Authenticate; > > SMTP.Host := smtp.gmail.com; > > //Conecta com o servidor smtp > SMTP.Connect(); > end; > > with IdMessage do > begin > //O seu endereço de e-mail > From.Address := 'meu ender...@...'; > > //Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail > Recipients.EMailAddresses := 'destinata...@...'; > > //O assunto da mensagem > Subject := 'Assunto'; > > //A mensagem que você quer mandar > Body.Text := 'Mensagem'; > MessageParts.Clear; > end; > > //Aqui para poder anexar um arquivo > if ExisteAnexo <> '' then > TIdAttachmentFile.Create(IdMessage.MessageParts, 'Anexos'); > > //Envia a mensagem > SMTP.Send(IdMessage); > SMTP.Disconnect; > > > [As partes desta mensagem que não continham texto foram removidas] >
Re: [delphi-br] Quantos TSQLConnection utilizar ??
Prefiro sempre um SQLConnection único, porque assim tenho uma única conexão pra cada client. Muita gente trabalha com mais de um SQL Connection geralmente porque não é tão trivial compartilhar o componente entre os Remote Datamodules. Pelo menos não nas versões mais antigas do Delphi, não sei como está hoje. Em 22 de julho de 2010 20:00, lvmariotti escreveu: > > > Em alguns exemplos e vídeos vi que os evangelizadores utilizaram um > TSQLConnection para cada ServerModule no servidor. É vantajoso fazer isso? > > Ou é melhor utilizar um TSQLConnection único para toda a aplicação > servidora? > > Help me. > > Grato. > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo - comandos.txt
Comandos e endereços especiais do servidor eGroups - Lista delphi-br delphi...@yahoogroups.com para postar uma mensagem para a lista delphi-br-ow...@yahoogroups.com manda um email para TODOS os owners e moderadores. Tanto pode ser usado pelo assinante (ou não) para comunicação direta com os responsáveis, QUANTO pode ser usado pelos próprios owners como se fosse uma listinha privativa dos moderadores, para discussão de questões administrativas da lista sem a ciência dos membros normais. Endereços de Comandos: (Envie uma msg em branco) delphi-br-subscr...@yahoogroups.com assina a lista delphi-br-unsubscr...@yahoogroups.com cancela a assinatura da lista delphi-br-nom...@yahoogroups.com Ativa modo NO MAIL - suspende temporariamente a entrega de e-mails, sem sair da lista delphi-br-dig...@yahoogroups.com Ativa modo DIGEST - Assinante passa a receber as mensagens em modo Digest (uma única mensagem é enviada, com todo texto, a cada final de dia, ou a cada vez que houverem 25 mensagens - o que ocorrer primeiro) delphi-br-nor...@yahoogroups.com Desativa NO MAIL ou DIGEST - Estando em modo "digest" ou "no mail", o assinante volta ao modo NORMAL de recebimento por e-mails individuais. Obs. Note que o e-mail remetente deve ser o mesmo e-mail de recebimento das mensagens. -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Arquivo - Files.txt
COMO OBTER ACESSO À SEÇÃO DE ARQUIVOS DA LISTA. --- Para ter acesso à todos os recursos da Lista Delphi-BR, você precisa estar inscrito no YahooGrupos. Todas as listas hospedadas pelo YahooGrupos possuem espaço para disponibilização de arquivos, enquetes, fotos, URL's e histórico de mensagens, entre outros recursos. Os passos abaixo o auxiliarão no acesso à seção de arquivos da lista: - Acesse o site da lista http://lista.delphi-br.org/. - Clique no link "Entre neste grupo". - Irá aparecer uma caixa de diálogo pedindo um login e uma senha do YahooGrupos. Quem já for filiado ao YahooGrupos por outros motivos, bastará digitar seu login e sua senha nos respectivos locais para que o mesmo vincule sua conta à lista. NOTA: Este cadastro é independente da sua inscrição na mesma feita via e-mail. - Após digitar seu login e senha do YahooGrupos e confirmar volte à página do grupo e verifique se todos os links da esquerda estão habilitados (Mensagens, Arquivos, Enviar, Bate-Papo, etc..). Caso não esteja mas você já seja membro do grupo, é sinal que você precisará ativar a sua conta no YahooGrupos com o mesmo. Neste caso o link que irá aparecer será "Editar minhas opções". - Se você não tem conta no YahooGrupos, clique no link "Cadastre-se agora". - Para quem não é associado, preencha todos os dados e confirme o envio. Lhe será enviada, pelo e-mail que você definiu, uma senha com a qual você passa a ter acesso aos serviços do Yahoo entre eles a lista de discussão. - Após este cadastro, volte ao endereço do site da lista e clique no link "Entre neste grupo". Verás que aparecerá uma tela de cadastro DO SEU PERFIL NO GRUPO. Basta cofigurar tudo do jeito que você desejar e confirme as alterações. - Feito isto, você verá que quando voltar ao site da lista novas opções estarão disponíveis para você, entre as quais a área "Arquivos" que é a área onde você pode baixar os arquivos que o pessoal disponibiliza na lista. Quaisquer dúvidas, favor contactar o moderador da lista: modera...@delphi-br.org -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html