#Este é um post fechado Este post está disponível somente para quem possui Créditos DevMedia. (Ele não está associado a nenhuma publicação DevMedia). Clique aqui para saber mais sobre como visualizar este post!
download
dê seu feedback
post favorito
Video: Enviando e-mail utilizando o SMTP do GMAIL (Delphi 2010 - Rad Studio - Indy 10)
Está vídeo-aula ensina de forma simples como utilizar no SMTP do GMAIL para enviar e-mails. Utiliza Delphi 2010 (Rad Studio) + Componentes Indy (Indy10).
Está vídeo-aula ensina de forma simples como utilizar no SMTP do GMAIL para enviar e-mails. Utiliza Delphi 2010 (Rad Studio) + Componentes Indy (Indy10).
Trecho do Código: (Código Completo na vídeo-aula)
//Envio da mensagem
// Assunto da Msg
Msg.Subject := edtAssunto.Text;
// Destinatários
Msg.Recipients.Clear;
for i := 0 to lstDestinatarios.Count - 1 do
begin
Msg.Recipients.Add;
Msg.Recipients.Items[Msg.Recipients.Count - 1].Address := lstDestinatarios.Items[i];
end;
// Counteúdo
Msg.Body.Text := mCorpo.Text;
// Conectando e enviando
Try
SMTP.Connect;
if SMTP.Connected then
begin
SMTP.Send(Msg);
SMTP.Disconnect;
ShowMessage('E-Mail enviado com sucesso !!! ');
end;
Except
on e: Exception do
begin
ShowMessage('ERRO: ' + e.Message);
SMTP.Disconnect;
end;
End;
Trecho do Código: (Código Completo na vídeo-aula)
//Envio da mensagem
// Assunto da Msg
Msg.Subject := edtAssunto.Text;
// Destinatários
Msg.Recipients.Clear;
for i := 0 to lstDestinatarios.Count - 1 do
begin
Msg.Recipients.Add;
Msg.Recipients.Items[Msg.Recipients.Count - 1].Address := lstDestinatarios.Items[i];
end;
// Counteúdo
Msg.Body.Text := mCorpo.Text;
// Conectando e enviando
Try
SMTP.Connect;
if SMTP.Connected then
begin
SMTP.Send(Msg);
SMTP.Disconnect;
ShowMessage('E-Mail enviado com sucesso !!! ');
end;
Except
on e: Exception do
begin
ShowMessage('ERRO: ' + e.Message);
SMTP.Disconnect;
end;
End;
0 COMENTÁRIO
[Este post ainda não foi associado a uma sequência]
Você está em:
canal Delphi
Publicidade
Estudo comparativo entre banco de dados IBM Informix e Microsoft SQL
Leonardo Bertolini
Space do autor
Curso Superior em Ciências da Computação. Programador Delphi a 8 anos.
Space do autor
1
0
Conheça os planos de créditos DevMedia e visualize esse post agora mesmo!