Fórum Como enviar Anexo em Email pelo INDY 10 #369372

26/03/2009

0

Delphi

Pessoal estou tentando envia um anexo por email usando o INDY 10 mais ele esta anexando o arquivo junto com a mensagem colocando um monte de sugeira no corpo da mensagem o codigo que estou usando é o seguinte


IdMessage.Subject := edtAssunto.Text;
IdMessage.Body.Text := Ed_Message.text;
IdMessage.ContentType := ´text/html´;

// Arquivos anexos ===============================================================================
for xAnexo := 0 to List_ArqAnex.Items.Count - 1 do
TIdAttachmentFile.create(idmessage.MessageParts, TFileName(List_ArqAnex.Items.Strings[xAnexo]));
//TIdAttachment.create(idmessage.MessageParts, TFileName(´c:\Answer.txt´));
//===================================================================================================

IdSMTP.Connect();
IdSMTP.Authenticate;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;


Luciano_f

Luciano_f

Responder

Posts

27/03/2009

.lg.

Luciano,
Estou precisando usar estes componentes, mas não sei fazer a configuração dos componentes para connexão com o gmail.

O que eu coloco nas suas propriedades???
Meu componente trava ao tentar connectar.

Até criei um email dedicado ao programa.


Responder

Gostei + 0

27/03/2009

Rodc

Estou precisando usar estes componentes, mas não sei fazer a configuração dos componentes para connexão com o gmail. O que eu coloco nas suas propriedades??? Meu componente trava ao tentar connectar.

Dá uma olhada nesse tópico:
http://forum.devmedia.com.br/viewtopic.php?p=327083#327083


Responder

Gostei + 0

28/03/2009

Luciano_f

Apenas resaltando o post pois ainda não consegui enviar o anexo.


Responder

Gostei + 0

05/04/2009

Luciano_f

Apenas resaltando o post pois ainda não consegui enviar o anexo.


Responder

Gostei + 0

05/04/2009

Onjahyr

no mesmo site onde baixou o indy você encontra os DEMOS, que mostra como enviar anexos...


Responder

Gostei + 0

07/04/2009

Luciano_f

no mesmo site onde baixou o indy você encontra os DEMOS, que mostra como enviar anexos...


Negativo jovem eu já procurei isso mais não faz o que preciso..


Responder

Gostei + 0

07/04/2009

Onjahyr

Ok Jovem, desculpe então. Alias, eu tenho um sistema usando o Indy que envia anexos e funciona muito bem, parti do exemplo que vem com o INDY.

Sucesso.


Responder

Gostei + 0

08/04/2009

Rodc

Se não me engano nos exemplos do Indy 10 não tem exemplo de envio de email, mas nos exemplos do Indy 9 tem este exemplo, inclusive com envio de anexo.


Responder

Gostei + 0

10/04/2009

Luciano_f

Pessoal eu já vi todos os exemplos de envio de email da Indy mais só consigo fazer funcionar no Indy 9 no indy 10 não funciona e como eu disse no post ele envia mais dá problemas se alguem consegiu fazer isso com o indy 10 e poder me mostrar o codigo eu ficarei muito agradecido.

Grato.


Responder

Gostei + 0

10/04/2009

Landersongomes

Bom dia campeão...
Faz tempo que nao programo, mas há uns 3 anos atras consegui enviar um email conforme abaixo...

Sinceramente nao me recordo muita coisa mas dava certo...
Adapte e veja se te serve.
=============================================
procedure TfrmExportador.EnviarMail (Destinatario, Arquivo : string);
var
Config : TIniFile;
begin
// Servidor de saida
Config := TIniFile.Create(ExtractFilePath(ParamStr(0))
+ ´configuracoes.ini´);
IdSMTP1.Host := Config.ReadString(´MAIL´, ´SMTP´, ´´);
IdSMTP1.Username := Config.ReadString(´MAIL´, ´USER´, ´´)+ ´=brunidas.com.br´;
IdSMTP1.Password := ´brlogistica´;
IdSMTP1.AuthType := atDefault;
IdSMTP1.Connect;
if IdSMTP1.Connected = True then
begin
// Mensagem
IdMessage1.Clear;
IdMessage1.Subject := Config.ReadString(´MAIL´, ´SUBJECT´, ´´);
// Aqui sera colocado o nome do arquivo
IdMessage1.From.Text := Config.ReadString(´MAIL´, ´USER´, ´´)+ ´@brunidas.com.br´;
IdMessage1.Recipients.EMailAddresses := Destinatario;
// IdMessage1.CCList.EMailAddresses := Config.ReadString(´MAIL´, ´CC´, ´´) + ´@´ + Config.ReadString(´MAIL´, ´DOMINIO´, ´´);
IdMessage1.Body.LoadFromFile(ExtractFilePath(ParamStr(0)) +
Config.ReadString(´MAIL´, ´BODY´, ´´));
// Anexando o arquivo
TIdAttachmentFile.Create(IdMessage1.MessageParts,
TFileName(Arquivo));

IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
Config.Free;
end;
end;


Responder

Gostei + 0

12/04/2009

Luciano_f

Bom dia campeão... Faz tempo que nao programo, mas há uns 3 anos atras consegui enviar um email conforme abaixo... Sinceramente nao me recordo muita coisa mas dava certo... Adapte e veja se te serve. ============================================= procedure TfrmExportador.EnviarMail (Destinatario, Arquivo : string); var Config : TIniFile; begin // Servidor de saida Config := TIniFile.Create(ExtractFilePath(ParamStr(0)) + ´configuracoes.ini´); IdSMTP1.Host := Config.ReadString(´MAIL´, ´SMTP´, ´´); IdSMTP1.Username := Config.ReadString(´MAIL´, ´USER´, ´´)+ ´=brunidas.com.br´; IdSMTP1.Password := ´brlogistica´; IdSMTP1.AuthType := atDefault; IdSMTP1.Connect; if IdSMTP1.Connected = True then begin // Mensagem IdMessage1.Clear; IdMessage1.Subject := Config.ReadString(´MAIL´, ´SUBJECT´, ´´); // Aqui sera colocado o nome do arquivo IdMessage1.From.Text := Config.ReadString(´MAIL´, ´USER´, ´´)+ ´@brunidas.com.br´; IdMessage1.Recipients.EMailAddresses := Destinatario; // IdMessage1.CCList.EMailAddresses := Config.ReadString(´MAIL´, ´CC´, ´´) + ´@´ + Config.ReadString(´MAIL´, ´DOMINIO´, ´´); IdMessage1.Body.LoadFromFile(ExtractFilePath(ParamStr(0)) + Config.ReadString(´MAIL´, ´BODY´, ´´)); // Anexando o arquivo TIdAttachmentFile.Create(IdMessage1.MessageParts, TFileName(Arquivo)); IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; Config.Free; end; end;


Esse codigo ainda não funcionou, o problema esta relacionado ao
´ContentType´ se eu usar

ContentType := ´text/html´;
ele envia a mensagem correta mais não envia o anexo
se eu uso ´multipart/related´; ele envia o anexo mais não envia a mensagem

a mensagem eu estou enviando no formato HTML

Como devo proceder para envia a mensagem no formato HTML e o Anexo junto..

grato a todos.


Responder

Gostei + 0

19/04/2009

Luciano_f

Reforçando o topico pois ainda não consegui..


Responder

Gostei + 0

24/04/2009

Devmedia

Reforçando o topico pois ainda não consegui..


Amigo Luciano_F, tudo bom contigo?
Olha, primeiramente qual a versão do seu Delphi?

Caso seja o Delphi 2009 o Indy 10 nativo, apresentava erros ao anexar um arquivo no email.
Porém este problema foi resolvido e postei a solução aqui mesmo no fórum neste link : [url]http://forum.devmedia.com.br/viewtopic.php?t=98360[/url]

Abraço.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar