pow bixu essa duvida quem postou fui eu e quem fez esse codigo fui eu mas... na moral, morria e nao sabia que o objeto sll nao tinha essas propiedades. valeu meu vei.. vou testar.
2009/8/12 Ricardo Diniz <ricardo...@yahoo.com.br> > > > Pode enviar o .pas desse fonte para testar melhor! > > --- Em ter, 11/8/09, clorenzettibr > <clorenzett...@gmail.com<clorenzettibr%40gmail.com>> > escreveu: > > De: clorenzettibr <clorenzett...@gmail.com <clorenzettibr%40gmail.com>> > Assunto: [delphi-br] Re: indy + gmail + delphi 2006 (Solução) > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Data: Terça-feira, 11 de Agosto de 2009, 21:12 > > > > Para registrar: > > após pesquisar um "bocado" consegui enviar. > > No exemplo abaixo do colega faltava setar duas propriedades. > > sll.Host := 'smtp....'; > sll.Port := 465; > > Consegui enviar utilizando o gmail e o brturbo. > Att, > > Celso Lorenzetti > www.sysrs.com. br > > --- Em delphi...@yahoogrup os.com.br, Rafael Jorge <rafael.jorge@ ...> > escreveu > > > > > estou tentando enviar email usando o gmail.. > > o pior e que na minha maquina funciona.. > > ja nos clientes nao. > > estou usando as dlls. do site http://indy. fulgan.com/ SSL/ > > mas mesmo assim nao esta funcionando. . > > abaixo esta a rotina que uso pra enviar email... > > sempre da erro dizendo que eu tenho que chamar STARTTLS antes.. > > mas nao sei como proceder.. > > > > ------------ --------- ----- codigo ------------ --------- --------- > ----- > > > > class procedure TEmail.enviaEmail( servidor_ usuario, > > servidor_senha, > > servidor_host, > > email_de_quem_ enviou, > > email_destino, > > email_copia, > > assunto, > > mensagem: string; > > servidor_porta: integer; > > autenticacao : boolean; > > anexo: string); > > var > > IdMessage : tIdMessage; > > IdSMTP : tIdSMTP; > > sll : tIdSSLIOHandlerSock etOpenSSL; > > Anx : TIdAttachmentFile; > > > > > > > > procedure mostraAviso( texto: string; progresso: integer); > > begin > > if formenviandoemail = nil then > > begin > > formenviandoemail := tformenviandoemail. create(nil) ; > > formenviandoemail. g.progress := 0; > > end; > > formenviandoemail. Show; > > formenviandoemail. acao.caption := texto; > > formenviandoemail. G.progress := progresso; > > Application. ProcessMessages; > > end; > > > > begin > > //criando os objetos... > > mostraAviso( 'Configurando para acessar conta...',0) ; > > IdMessage := tIdMessage.create( nil); > > IdSMTP := tIdSMTP.create( nil); > > sll := tIdSSLIOHandlerSock etOpenSSL. Create(nil) ; > > > > IdSMTP.ReadTimeOut := 20000; > > // Configura o servidor > > if autenticacao then > > begin > > mostraAviso( 'Autenticando. ..',1); > > sll.SSLOptions. Method := sslvSSLv2; > > sll.SSLOptions. Mode := sslmClient; //sslmUnassigned; > > idSMTP.IOHandler := sll; > > idSMTP.UseTLS := utUseExplicitTLS; // utUseRequireTLS; > > end; > > > > idsmtp.Username := servidor_usuario; // Usuário > > idsmtp.Password := servidor_senha; // Senha > > idsmtp.host := servidor_host; // Smtp > > idsmtp.Port := servidor_porta; // Porta > > > > // Configura o remetente da Mensagem > > mostraAviso( 'Configurando Assunto...', 2); > > IdMessage.Clear; > > IdMessage.Subject := LowerCase(assunto) ; // Assunto do Email > > IdMessage.From. Address := email_de_quem_ enviou; // De quem e o Email > > //Configura os destinatários (to) > > mostraAviso( 'Configurando email que vai receber msg...',3); > > IdMessage.Recipient s.Clear; > > IdMessage.Recipient s.Add; > > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Address := > > email_destino; // Para quem vai > > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Name := > > copy(email_destino, 1,pos('@' ,email_destino) -1); > > > > // Configura os destinatários (cc) > > if email_Copia <> '' then > > begin > > mostraAviso( 'Configurando Cópia de Email...',4) ; > > IdMessage.Recipient s.Clear; > > IdMessage.Recipient s.Add; > > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Address := > > email_Copia; > > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Name := > > copy(email_Copia, 1,pos('@' ,email_copia) -1); > > end; > > > > // Adiciona o HTML ao corpo da mensagem > > mostraAviso( 'Adicionando Texto a msg...',5); > > idmessage.ContentTy pe:= 'text/html'; > > IdMessage.Body. clear; > > IdMessage.body. Text := mensagem; > > > > {// Anexa os arquivos > > // for I := 0 to lstbxAnexos. items.count -1 do} > > if anexo <> '' then > > begin > > mostraAviso( 'Conectando ao servidor SMTP..',6); > > anx:= TIdAttachmentFile. Create(IdMessage .MessageParts, TFileName(anexo) > ); > > IdMessage.ContentTy pe := 'multipart/mixed' ; > > > end; > > > > IdMessage.Headers. Values['X- Library'] := ''; > > // Envia Email > > try > > try > > mostraAviso( 'Conectando ao servidor SMTP..',7); > > idsmtp.connect; > > if idsmtp.connected then > > begin > > mostraAviso( 'Enviando msg..',8); > > idSmtp.send( IdMessage) ; > > end; > > mostraAviso( 'Msg enviada',9); > > showMessage( 'MENSAGEM ENCAMINHADA COM SUCESSO'); > > except on E:exception > > do Showmessage( 'Problemas ao Conectar/enviar mensagem... Tente > > Novamente'+# 13+ e.message); > > end; > > finally > > idSmtp.disconnect; > > end; > > mostraAviso( 'Finalizando. .',8); > > //limpando memoria > > IdMessage.free; > > IdSMTP.Free; > > if formenviandoemail <> nil then > > begin > > formenviandoemail. free; > > formenviandoemail: = nil; > > end; > > end; > > > > ------------ --------- ------- fim ------------ --------- --------- > -------- > > > > -- > > ------------ --------- --------- --------- --------- --------- - > > Rafael jorge alves (Analista/desenvolv edor) > > > > www.sistemafocus. com.br > > sistema focus de gestão comercial e serviços em informatica. > > ------------ --------- --------- --------- --------- --------- - > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > -- _________________________ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
