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
Question
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;
Edited by luiz9Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.