E pelo Outlook (não é SMTP, é E-mail corporativo), alguém aí tem algum exemplo?
[]s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Marco Aurélio Enviada em: quinta-feira, 16 de fevereiro de 2006 11:13 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Enviando e-mail Boa Tarde, Segue abaixo um passo-a-passo de como mandar email em DELPHI, sem ser um tutorial, mas sim detalhando passo a passo como pode utilizar, as funções. O que gostaria do grupo é que analisa-se e falassem como poderia melhorar e se essa 'receitinha' funcionaria normalmente em um programa de envio de email? Como criar um programa para envio de email 1º Passo: Colocar dois componentes no formulário: -IdSMTP(Paleta IndyClients) -IdMessage (palheta Indy Misc); 2º Passo: Incluir no Formulário componentes(Edit,Label), dados que deseja ser configurado manualmente. Exemplo: Para(To), Assunto(Subject), Corpo da Mensagem(Body); 3º Passo: Configurar o componente que irá enviar as mensagens: -IdSMTP -->[nomedoIdSmtp].Host := 'servidor.smtp.com.br'; -->[nomedoIdSmtp].UserName := '[EMAIL PROTECTED]'; -->[nomedoIdSmtp].Password := 'senhadelogin'; //A linha abaixo é utilizada quando o usuário necessita fazer o login no servidor de email -->[nomedoIdSmtp].AuthenticationType := atLogin; 4º Passo: Terá de conectar no servidor de email: -->[nomedoIdSmtp].Connect; 5º Passo: Inserir um bloco de tentativa/exceções(try); Try {dentro deste bloco conterá o código para montar e tentar enviar a mensagem} //Inserir os próximos passos aqui. Finally -->[nomedoIdSmtp].disconnect; End; 6º Passo: Configurar a mensagem a ser enviada: //Configura o endereço que está enviando o email -->[nomedoIdMessage].From.Address := nome ou componente que contenha o nome; //Configura o nome de envio -->[nomedoIdMessage].From.Name := nome ou componente que contenha o nome; //Configura para qual e-mail será enviada a mensagem; -->[nomedoIdMessage].Recipients.EmailAdresses := nome ou componente que contenha o nome; //Configurar a prioridade desejada -->[nomedoIdMessage].priority := nome ou componente que contenha as prioridades; //Configura o assunto da mensagem -->[nomedoIdMessage].Subject := assunto ou nome do componente que contenha o asssunto; //Configura o corpo da mensagem -->[nomedoIdMessage].Body := nomedocomponente ou corpodotextodamensagem; //Configura a mensagem para aceitar ou não text/html -->[nomedoIdMessage].ContentType := 'text/html'; 7º Passo: Enviar a Mensagem -->[nomedoIdSmtp].Send(nomedoIdMessage); Um forte abraço a todos. Ass: Marco Aurélio [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html