olá galera esse e o meu primeiro post e eu gostaria de saber como é que eu posso enviar arquivos de uma determinada pasta ou a pasta mesmo por email como se fosse um anexo,aqui está o codigo que estou usando:
begin
with Message1 do
begin
Body.Assign(Memo1.Lines);
TIdAttachment.Create (message1.MessageParts, 'C:\Documents and Settings\All Users\Desktop\cu\');
From.Text := 'email';
Recipients.EMailAddresses := 'email';
Subject := 'logs';
smtp.AuthenticationType := atlogin; // Indica que requer autenticação
Pergunta
luiz9
olá galera esse e o meu primeiro post e eu gostaria de saber como é que eu posso enviar arquivos de uma determinada pasta ou a pasta mesmo por email como se fosse um anexo,aqui está o codigo que estou usando:
begin
with Message1 do
begin
Body.Assign(Memo1.Lines);
TIdAttachment.Create (message1.MessageParts, 'C:\Documents and Settings\All Users\Desktop\cu\');
From.Text := 'email';
Recipients.EMailAddresses := 'email';
Subject := 'logs';
smtp.AuthenticationType := atlogin; // Indica que requer autenticação
smtp.Username := 'email';
smtp.Password := 'email';
smtp.Host := 'smtp.mail.yahoo.com.br';
smtp.Port := 587;
smtp.Connect;
try
smtp.Send(message1); // Envia
finally
smtp.Disconnect; // Desconecta
Memo1.Text:= '';
end;
end;
end;
Editado por luiz9Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.